Un Aviso

Que tal Enrique.

Para que te envíe un mensajes antes de enviarte a la hoja 2, y además que le
pida confirmación, utiliza la siguiente sub:
'
Sub enviar()
Dim conf As Variant
conf = MsgBox("Recuerda ... en relidad deseas moverte a la Hoja 2?",
vbYesNo, "Confirma")
If conf = vbYes Then
ThisWorkbook.Sheets("Hoja2").Activate
Else
End If
End Sub
'
Si no deseas que te mande confirmación, solo utiliza
'
Sub enviar()
MsgBox "Recuerda ... "
ThisWorkbook.Sheets("Hoja2").Activate
End Sub

<!-- Tec. Inf. Sergio A Campos H -->

¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus sugerencias de
contenido, ! se acepta de todo tipo !
http://mx.geocities.com/sergioacamposh
http://sergioacamposh.mundopc.net
"Enrique" escribió en el mensaje
news:

hola amigos..

yo deseo hacer lo siguiente:
tengo un archivo en la cual he insertado una autoforma el cual tiene un
hipervinculo hacia otra hoja del mismo libro, por decir algo a la hoja 2.
pero lo que yo quiero es que aparte de enviarme a la hoja a la hoja 2
antes
de hacerlo me de un aviso, como por ejemplo " Recuerde revisar x cosa " y
luego del mensaje me envie a la hoja 2. ¿es eso posible? ¿como puedo
hacerlo?

hola sergio..

fijate que inserte el codigo, en una hoja de prueba y efectivamente funciono
pero al ponerlo en el libro donde lo necesito, donde cada hoja tiene su nombre
me da un error.
el mensaje dice: se ha producido el error "9" en tiempo de ejecucion
sub indice fuera del intervalo.

¿que puedo hacer?

Que tal Enrique.

Como tus hojas ya tienen nombre, sólo en la siguiente línea, cambiar el
nombre Hoja2 al nombre que tú quieras que se mueva:

ThisWorkbook.Sheets("Hoja2").Activate


<!-- Tec. Inf. Sergio A Campos H -->

¿¿ Deseas colaborar en mi sitio ??, entra y envíame tus sugerencias de
contenido, ! se acepta de todo tipo !
http://mx.geocities.com/sergioacamposh
http://sergioacamposh.mundopc.net
"Enrique" escribió en el mensaje
news:

hola sergio..

fijate que inserte el codigo, en una hoja de prueba y efectivamente
funciono
pero al ponerlo en el libro donde lo necesito, donde cada hoja tiene su
nombre
me da un error.
el mensaje dice: se ha producido el error "9" en tiempo de ejecucion
sub indice fuera del intervalo.

¿que puedo hacer?