Hola,
Este código hace literalmente eso
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("B2")) Is Nothing Then
Application.EnableEvents = False
Me.Range("B3").ClearContents
With Me.Range("B3").Validation
.Delete
Select Case Me.Range("B2").Value
Case 1
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="Avion,Barco"
Case 3
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="Barco"
Case Else
End Select
End With
Application.EnableEvents = True
End If
End Sub
Por
Israel Cassales, · publicado
Excel, así como viene de fábrica puede hacer muchas cosas por si mismo.
Aunque para hacernos la vida mas fácil en cosas difíciles están los complementos.
Yo tengo instalado el ASAP Excel, ya lo he mencionado en otros temas.
Nos ayuda a hacer una gran cantidad de cosas que el Excel, sin macros, no puede hacer por defecto.
Que y para que sirve:
Pagina de descarga:
¿Que otros complementos conocen que nos puedas recomendar?