Pregunta para Luis Mondelo!
Luis!! Buen dia!!
Luis Mira!! Tengo en un libro esta macro (en un botón) que es para abrir otro libro.
Private Sub CommandButton58_Click()
With Workbooks("Sistem.Contable.xls"). Activate.Worksheets("Hoja1").Select
End With
End Sub
Pero si el libro no esta abierto me tira error!!
Como seria para que, si el libro no esta abierto, en lugar del error me tire un Mensaje que diga: "el libro no esta abierto"
¿¿ O que solución le darías vos??
Gracias!!!.
1 respuesta
Prueba con esto:
Private Sub CommandButton58_Click()
on error goto salida
With Workbooks("Sistem.Contable.xls"). Activate.Worksheets("Hoja1").Select
End With
exit sub
salida:
msgbox "ha ocurrido un error compruebe que el archivo está abierto"
End Subrecuerda finalizar
Luiss.. funciona. No me tira ningún error. PERO SERIA AL REVÉS!!.
Seria si EL ARCHIVO NO ESTA ABIERTO ME SALGA EL MENSAJE EN LUGAR DEL ERROR!!
Osea que. Si yo quiero ir al libro que esta en la macro, y el libro esta abierto, que me lleve al libro. Pero si el al accionar la macro el libro no esta abierto me de el mensaje de MSGBOX:ha ocurrido un error compruebe que el archivo NO ESTA abierto!!.
msgBox: ha ocurrido un error. El archivo NO ESTA abierto!!.
asi seria!!
Pero entonces solo tienes que modificar el entrecomillado del mensaje a tu gusto
¿Correcto?
Claro. Lo del mesnsaje en el MSGBOX te lo aclare para que te ubiques mejor en lo que decía!!.
Pero funciona al revés la macro. Porque si tengo el libro abierto tiene que mandarme al libro que señalo en la macro. La macro que me diste, por mas que el libro este abierto me dice: MSGBOX: ha ocurrido un error. El archivo NO ESTA abierto!!.
Osea: El mensaje de MsgBox me lo tendría que mostrar si el libro esta cerrado!!
se entiende??
Utiliza la macro así:
Private Sub CommandButton58_Click()
on error goto salida
Workbooks("Sistem.Contable.xls").Activate
Worksheets("Hoja1").Select
exit sub
salida:
msgbox "ha ocurrido un error compruebe que el archivo está abierto"
End Sub
