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
Enlace del archivo en Dropbox (Por Tamaño: 2.36MB):
https://www.dropbox.com/sh/ulkaemobligspzv/AAAW263LWiQ1WNVVLnYpw9Gta?dl=0
Es la 1a vez que remito por este medio, ojalá resulte.
Es muy práctico en la " VIDA REAL, funcional al 100%"
para cualquier tipo de proyecto: Obra Civil, Eléctrica
Pasos: 1) Ir al Tablero Avance de Obra, que reparte con vínculos al Cronograma y Fotos y a la Bitácora ( que no la incluyo en esta ocasión)
El Cronograma es de lo mejor, muy útil en la vida real y genera a) Gantt,
Avance Físico y Financiero c) Gráfica e avance