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:
Pues eso, una de cronómetros.
Permite llevar un control de tiempo independiente en cada fila.
El ejemplo adjunto esta aplicado al control de una sala de billares, pero puede utilizarse para cualquier control que se os ocurra.
.Control de personal
.Parkings
.Alquiler de bicicletas
.Etc
Extravagancia dedicada al amigo _ST.
Saludos a todos. Desde Alejandría con Cleopatra, "Macro" Antonio.
MultiWatch.zip