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
Hola a todos:
Ahora se viene lo mejor | Ayuda Excel
Este tema ha sido cerrado a nuevas respuestas.
Me gustaría que el moderador/administrado del foro que lo haya llevado a cabo nos proporcione una mínima explicación del porqué de tal actuación.
Mientras y continuando con el sentido deportivo del tema.
A todos los atléticos:
Una vez "muerto" el enemigo común, solo deseo que mañana veamos un gran partido de fútbol, y que gane el mejor.
Suerte @Toldeman.
PD: "La censura no es mas que una muestra de autofustración" (Anónimo)
.
.