Supongamos que tus amigos están dispersos por todos lados del mundo, pero se verán en febrero. Quieren partir la rosca y verán quien paga los tamales. Bien, aquí hay una opción. Se pasan el archivo, cada quien parte su pedazo de rosca virtualmente, graba el archivo, lo pasa al siguiente, así hasta que se complete el grupo.
La apariencia será como arriba. Es necesario hacer el dibujo que simule una rosca. Hacer la plantilla con el espacio donde se indica para que cada quien ponga su nombre.
El código está vez lo dejaremos al lector para que lo analice. Como siempre, basta con que lo copie y pegue en el área de macros para que funcione. Como apreciará aquí da una probabilidad de 1 a dos de sacar muñeco, esta se puede cambiar camgiando el código que está entre el if.
Sub PartirRosca()
Aleatorio = Int(Rnd() * 10)
If Aleatorio / 2 = Int(Aleatorio / 2) Then
TieneMuneco = "Si tiene muneco"
Else
TieneMuneco = "No tiene muneco"
End If
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
Range("B2:D2").Select
Nombre = ActiveCell.Value
Range("O1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Value = Nombre
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = TieneMuneco
ActiveCell.Offset(0, -1).Range("A1").Select
Range("B2:D2").Select
End Sub
