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
¿cómo se puede hacer la plantilla y el dibujo? Gracias
ResponderEliminarPodrías explicar un poco más como correr el programa?
ResponderEliminarOportunidad de préstamo ofrecida por el Sr. Benjamín que salva a mi familia de la esclavitud financiera { 247officedept@gmail.com }
ResponderEliminarHola a todos, soy Putri Adiratnaa madre soltera de Yakarta, me gustaría compartir este gran testimonio sobre cómo conseguí un préstamo del Sr. Benjamín, cuando nos echaron de nuestra casa cuando ya no podía pagar mis facturas, después de ser estafada por varias empresas en línea y de que me negaran un préstamo de mi banco y de alguna otra cooperativa de crédito que visité. Mis hijos fueron acogidos por una familia de acogida, yo estaba solo en la calle. El día en que me encontré vergonzosamente con un viejo compañero de escuela que me presentó a Daisy Maureen. Al principio le dije que ya no estaba preparada para correr ningún riesgo al solicitar un préstamo en línea, pero me aseguró que recibiría mi préstamo de ellos. Pensándolo bien, debido a mi falta de vivienda tuve que hacer una prueba y solicitar el préstamo, afortunadamente para mí recibí un préstamo de 80.000 dólares del Sr. Benjamin. Estoy feliz de haber tomado el riesgo y solicitado el préstamo. Mis hijos me han sido devueltos y ahora tengo una casa y un negocio propio. Todo el agradecimiento y la gratitud va a la ayuda del Sr. Benjamín por darme un sentido a la vida cuando había perdido toda esperanza. Si actualmente está buscando ayuda para un préstamo, puede contactarlos a través de: {247officedept@gmail.com WhatsApp +1-989-394-3740.
Gracias por la aportación, me permití tomar tu código y hacer una pequeña modificación para incluir castigos. Estos pueden ser editados desde el código, así mismo, la hoja está protegida, pero no tiene contraseña, es decir, para desprotegerla es suficiente con dar [enter], pueden descargarla desde este enlace https://1drv.ms/x/s!AgD0x5pqlr5gtyfaTQmRgazmCYNO?e=n6ANu8
ResponderEliminar