Abrir un UserForm al Cerrar otro UserForm

15/03/2007 - 23:44 por Insumos | Informe spam
Gente del foro:

Tengo la siguiente consulta: Tengo dos Userform llamados UserForm1 y
UserForm2. Desde el UserForm1 accedo al UserForm2 mediante un botón de
comando. Ahora lo que yo quiero es que al cerrar el UserForm2 clickeando en
el botón con la X que se encuentra en el extremo superior derecho de la
ventana (el que esta en la barra de título) en lugar de volver a la hoja de
cálculo se abra el UserForm1. He experimentando con estos códigos:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Load UserForm1
UserForm2.Hide
UserForm1.Show

End Sub

Private Sub UserForm_Terminate()

Load UserForm1
UserForm2.Hide
UserForm1.Show

End Sub

Tanto con uno con otro código lo que sucede es que la primera vez funciona y
al cerrar el UserForm2 vuelve al UserForm1, pero si vuelvo a acceder al
UserForm2 y lo vuelvo a cerrar ya no vuelve la segunda vez a abrir el
UserForm1. Se puede solucionar esto?
Desde ya muchas gracias!!!

CONTADURIA
 

Leer las respuestas

#1 Héctor Miguel
16/03/2007 - 08:16 | Informe spam
hola, 'anonimo/a' !

podrias exponer 'como' es el codigo que muestra cada uno de los useforms ???
- el que muestra el userform1
- y el que tienes en el boton que muestra al userform2 ;)

saludos,
hector.

__ la consulta original __
... dos Userform llamados UserForm1 y UserForm2. Desde el UserForm1 accedo al UserForm2 mediante un boton
... quiero... que al cerrar el UserForm2... con la X... en la barra de título) en lugar de volver a la hoja... se abra el UserForm1.
He experimentando con estos codigos:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Load UserForm1
UserForm2.Hide
UserForm1.Show
End Sub
Private Sub UserForm_Terminate()
Load UserForm1
UserForm2.Hide
UserForm1.Show
End Sub
... la primera vez funciona y al cerrar el UserForm2 vuelve al UserForm1
pero si vuelvo a acceder al UserForm2 y lo vuelvo a cerrar ya no vuelve la segunda vez a abrir el UserForm1...

Preguntas similares