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 compañeros
Aunque el tema está ya muy tocado, acompaño un archivo por si aporto algo que resulte útil.
En él se recogen dos soluciones en función de que los sábados se consideren hábiles o inhábiles.
Saludos
EDITO: He suprimido en el encabezamiento de la columna K el texto: "hasta 31 de marzo"
DÍAS HÁBILES. Más completo.zip