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
Buenas tardes
Estimados
A continuación les dejo un pequeño aporte que quizás ya lo conozcan. Es la alarma con el sonido Cuco.
Al abrir el archivo Excel, se ejecutará el código para que suene tres veces.
Pueden ver el código fuente y adaptar a gusto.
https://drive.google.com/open?id=0BxjdxiezqhOBfkgtNTgyQnc3aERhaWU0OHpPakpBbDQ3LU1ZYXJfWFJxUHZGRGhRVUNaYjQ&authuser=0
Saludos cordiales.