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

Preguntas similare

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


Respuesta Responder a este mensaje
#2 Luis Caro
28/12/2004 - 14:58 | Informe spam
Gracias KL. Feliz año 2005 desde Colombia para todos los colaboradores en el
Grupo.

Cordialmente
Luis Caro

No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
http://usuarios.lycos.es/maderascolombianas2/
http://www.geocities.com/maderascolombianas2002
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida