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:
Antonio
Aunque no es la primera vez que se suben teclados, esta vez he querido hacer uno lo mas compacto posible.
Se puede hacer mas grande o mas pequeño a voluntad y se puede posicionar en cualquier lugar de la hoja.
Escribe directamente en la celda activa.
La tecla Enter avanza a la siguiente celda en función de como esté configurada en Excel.
Paz y amor
Vuelto a subir el archivo el 04/04/2015 a las 12:00 UTC. (problemas con el separador decimal)
Vuelto a subir el archivo el 06/04/2015 a las 17:17 UTC. (problemas con el avance de celda. Tecla Enter.)
.
Teclado virtual.zip