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:
Entrecomillo "Jugar" para que no os hagais ilusiones, de jugar, nada de nada.
Hay dos macros:
PokerAbierto y PokerCerrado
Ambas macros, lo único que hacen es barajar, repartir y mostrar las cartas, eso si,
las que tienen que estar tapadas, están tapadas.
Para descubrir las cartas tapadas, pulsar y arrastrar la tapa.
Los naipes se muestran como imagen incrustada en la hoja por lo que se pueden arrastrar y soltar donde nos convenga.
Cuando disponga de tiempo, intentaré poco a poco ir completando los juegos, aunque es mas difícil de lo que parece.
Saludos a todos menos a uno.
POKER.zip