Macro con MSGBOX con distintos mensajes
Necesito hacer una macro que haga lo siguiente.
Tengo 5 mensajes, ejemplo:
mensaje1 = "Buenos días, Luciano"
mensaje2 = "Ya te dije buenos días"
mensaje3 = "Te lo digo por tercera vez... BUENOS DIAS"
mensaje4 = "No te lo repito más"
mensaje5 = "Me cansé... ME VOY!"
Necesito que al abrir el archivo, se muestren los 5 mensajes en 5 msgbox una a continuación de otro.
Sé que se escribe en THISWORKBOOK en el evento OPEN. Lo que no puedo lograr es que escribiendo un bucle FOR... NEXT y con un solo MSGBOX dentro del bucle se vaya mostrando un mensaje a continuación del otro.
Solo tienes que escribirlo separado
Ejemplo así
msgbox "Buenos días, Luciano" msgbox "Ya te dije buenos días" msgbox "Te lo digo por tercera vez... BUENOS DIAS" msgbox "No te lo repito más" msgbox "Me cansé... ME VOY!"
a mediga que valla dano enter van cambiando
Si te silve no olvides valoora para cerrar la pregunta
1 respuesta más de otro experto
Te anexo una forma de poner los mensajes en un bucle
Private Sub Workbook_Open() mensaje1 = "Buenos días, Luciano" mensaje2 = "Ya te dije buenos días" mensaje3 = "Te lo digo por tercera vez... BUENOS DIAS" mensaje4 = "No te lo repito más" mensaje5 = "Me cansé... ME VOY!" msgs = Array(mensaje1, mensaje2, mensaje3, mensaje4, mensaje5) For i = 0 To UBound(msgs) MsgBox msgs(i) Next End Sub
Pero igual puedes poner los msgbox uno después de otro:
Private Sub Workbook_Open() MsgBox "Buenos días, Luciano" MsgBox "Ya te dije buenos días" MsgBox "Te lo digo por tercera vez... BUENOS DIAS" MsgBox "No te lo repito más" MsgBox "Me cansé... ME VOY!" End Sub
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.