Macros.
Te voy a hacer la pregunta más completa, eso que me has dicho ya lo he utilizado ahí va:
He creado un libro que se llama menu.xls me he metido en el editor de Visual Basic y he creado un formulario agregado a ese libro(UserForm1) el formulario tiene un botón que llama a otro libro llamado Gastos.xls el código de este botón es:
Workbooks.Open ("C:\Dir\Gastos.xls")
UserForm1.Hide
Workbooks("Menu.xls").Close
Cuando me meto en Gastos y quiero salirme quiero que me abra de nuevo menu.xls me muestre el formulario y cierre gastos entonces al botón en Gastos.xls le pongo el siguiente código:
Workbooks.Open ("C:\Dir\menu.XLS")
Workbooks("Gastos.xls").Close
UserForm1.Show
Y me abre menu.xls pero no me muestra el formulario, he probado de todo poner el Userform1. Show en la macro Auto_Open.... Me puedes ayudar? Saludos
He creado un libro que se llama menu.xls me he metido en el editor de Visual Basic y he creado un formulario agregado a ese libro(UserForm1) el formulario tiene un botón que llama a otro libro llamado Gastos.xls el código de este botón es:
Workbooks.Open ("C:\Dir\Gastos.xls")
UserForm1.Hide
Workbooks("Menu.xls").Close
Cuando me meto en Gastos y quiero salirme quiero que me abra de nuevo menu.xls me muestre el formulario y cierre gastos entonces al botón en Gastos.xls le pongo el siguiente código:
Workbooks.Open ("C:\Dir\menu.XLS")
Workbooks("Gastos.xls").Close
UserForm1.Show
Y me abre menu.xls pero no me muestra el formulario, he probado de todo poner el Userform1. Show en la macro Auto_Open.... Me puedes ayudar? Saludos
1 respuesta
Respuesta de t4373125
1
Ok, tal y como lo veo todo esta bien excepto la ultima linea, que no se ejecutará nunca porque antes se cierra el libro y para la ejecución del código.
Entonces tienes que borrarla y hacer lo siguiente:
Dentro del editor de VB, en el libro "menu.xls" haz dobe-clic en "ThisWorkbook" y escribe:
Private Sub Workbook_Open()
Load userform1
userform1.Show
End Sub
Ya está, creo que con esto funcionará. Si no es así ya sabes...
Hasta pronto!
Entonces tienes que borrarla y hacer lo siguiente:
Dentro del editor de VB, en el libro "menu.xls" haz dobe-clic en "ThisWorkbook" y escribe:
Private Sub Workbook_Open()
Load userform1
userform1.Show
End Sub
Ya está, creo que con esto funcionará. Si no es así ya sabes...
Hasta pronto!
