Para KL.Macros

28/12/2004 - 00:19 por Luis Caro | Informe spam
Saludos a todos.
Tengo una Instrucción en Thiswokbook
Private Sub Wokbook_ Open()
Worksheets( "Ayuda").Activate
End Sub
Si quiero colocar otra instrucción para que me abra una Ventana Emergente
con algunos datos.
Donde la coloco en WorkBook? Seguida de la anterior.Hay que quitarle algo a
la anterior.
No se como hacerlo.Porque la inserto donde me marca el puntero y me da
error,de que esa instrucción tiene que ir después de End Sub.
No logro hacerlo.Por favor necesito que me colabores.
El otro Macro es:
Private Sub Workbook_Open()
Bienvenida
End Sub
Sub Bienvenida()
MsgBox "Autor:Coloca aquí tu mensaje" & vbCrLf & _
"Empresa: Continua Tu Mensaje" & vbCrLf & _
"Continua tu Mensaje" & vbCrLf & _
"Instrucciones: Tu Mensaje"
Hoja1.Select
End Sub
Gracias.

Cordialmente
Luis Caro
lgus3@NOSPAMEPM.net.co
No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
http://usuarios.lycos.es/maderascolombianas2/
http://www.geocities.com/maderascolombianas2002
 

Leer las respuestas

#1 KL
28/12/2004 - 01:02 | Informe spam
Luis,

Prueba poner esto en el modulo ThisWorkBook:

Saludos,
KL

'Inicio Codigo
Private Sub Workbook_Open()
Worksheets("Ayuda").Activate
Bienvenida
End Sub
Sub Bienvenida()
MsgBox "Autor:Coloca aquI tu mensaje" & vbCrLf & _
"Empresa: Continua Tu Mensaje" & vbCrLf & _
"Continua tu Mensaje" & vbCrLf & _
"Instrucciones: Tu Mensaje"
End Sub
'Fin Codigo


"Luis Caro" wrote in message
news:
Saludos a todos.
Tengo una Instrucción en Thiswokbook
Private Sub Wokbook_ Open()
Worksheets( "Ayuda").Activate
End Sub
Si quiero colocar otra instrucción para que me abra una Ventana Emergente
con algunos datos.
Donde la coloco en WorkBook? Seguida de la anterior.Hay que quitarle algo
a la anterior.
No se como hacerlo.Porque la inserto donde me marca el puntero y me da
error,de que esa instrucción tiene que ir después de End Sub.
No logro hacerlo.Por favor necesito que me colabores.
El otro Macro es:
Private Sub Workbook_Open()
Bienvenida
End Sub
Sub Bienvenida()
MsgBox "Autor:Coloca aquí tu mensaje" & vbCrLf & _
"Empresa: Continua Tu Mensaje" & vbCrLf & _
"Continua tu Mensaje" & vbCrLf & _
"Instrucciones: Tu Mensaje"
Hoja1.Select
End Sub
Gracias.

Cordialmente
Luis Caro

No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
http://usuarios.lycos.es/maderascolombianas2/
http://www.geocities.com/maderascolombianas2002


Preguntas similares