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
Si te gusta ver vídeos y te gusta Excel, ¿por qué no verlos sin salir de Excel? Enlace aquí: Reproductor de listas de vídeos
Descargando el fichero adjunto y habilitando el contenido y las macros se pueden ver 9 vídeos a la vez y controlarlos en Excel 2010 y posteriores.
Algunos controles no se pueden usar en Excel 2007. Este es su aspecto:
La versión 1.1 permite hacer zoom de la hoja "Videos".
Videos_PW1.0.zip
Videos_PW1.1.zip