Abrir un UserForm al Cerrar otro UserForm

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 __
Mostrar la cita

... 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...

Hola Héctor:

Aqui te pongo los códigos:

El código que llama al UserForm1 es el que sigue (el UserForm1 aparece al
abrir el archivo):


Sub Auto_open()

Load UserForm1
UserForm1.Show

End Sub


En el UserForm1 hay solo dos botones de comando y están estos códigos:

Private Sub CommandButton1_Click()

Load UserForm2
UserForm1.Hide
UserForm2.Show

End Sub


Private Sub CommandButton2_Click()

Load UserForm4
UserForm1.Hide
UserForm4.Show

End Sub



En el UserForm2 hay más elementos y los códigos son estos:




Private Sub CommandButton1_Click()

If ListBox1.ListIndex = -1 Or ComboBox2 = Empty Or ComboBox3 = Empty Or
TextBox1 = Empty Then GoTo 100 Else GoTo 10

10

Worksheets("Base").[A65536].End(xlUp).Offset(1) = Label1
Worksheets("Base").[B65536].End(xlUp).Offset(1) = ListBox1
Worksheets("Base").[C65536].End(xlUp).Offset(1) = ComboBox2
Worksheets("Base").[D65536].End(xlUp).Offset(1) = TextBox1.Value
Worksheets("Base").[E65536].End(xlUp).Offset(1) = ComboBox3

TextBox1 = Empty
ListBox1 = Empty
ComboBox2 = Empty
ComboBox3 = "Pesos"

GoTo 200

100 UserForm2.Hide
101 Load UserForm3
105 UserForm3.Show

200

End Sub

Private Sub CommandButton2_Click()

Load UserForm1
UserForm2.Hide
UserForm1.Show

End Sub

Private Sub UserForm_Activate()

TextBox1 = Empty
ListBox1 = Empty
ComboBox2 = Empty
ComboBox3 = "Pesos"
With TextBox1
.SetFocus
End With

End Sub

Private Sub UserForm_Initialize()

Label1 = Sheets("Parámetros").Range("A1")

ComboBox3.AddItem "Pesos"
ComboBox3.AddItem "U$S"
ComboBox3.AddItem "Reales"
ComboBox3.AddItem "Euros"

Sheets("Parámetros").Range("C7").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
ListBox1.AddItem ActiveCell
Loop

Sheets("Parámetros").Range("E7").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
ComboBox2.AddItem ActiveCell
Loop

End Sub

"Héctor Miguel" escribió en el mensaje
news:
Mostrar la cita

hola, 'anonimo/a' !

podrias exponer 'como' es el codigo que muestra cada uno de los useforms

???
Mostrar la cita

- 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
Mostrar la cita

> ... 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.
Mostrar la cita

> 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...
Mostrar la cita

hola, ?

1) comentarte que las instrucciones Load ['repetitivas' que usas] no son necesarias
los metodos .Hide y .Show se encargan de 'cargar' en memoria los objetos [oculto y visible]
la instruccion Load [generalmente] se usa para 'trabajar' con los objetos [cargados en memoria] si que el usuario 'se entere' ;)

2) no 'veo' la necesidad de ocultar los formularios 'anteriores' [si de todos modos se trabajan de forma 'modal'] -???-
a menos que requieras 'conservar' algunos datos segun se vayan 'llenando', en cuyo caso puedes mostrarlos como 'no modales' -?-

3) considera ademas que al mantener varios formularios 'ocultos'... estas corriendo el riesgo que al terminarse el codigo
pudieran quedar en memoria algunos objetos sin 'destruirse' y en algun momento recibiras 'errores' en otras partes del codigo -?-

4) del tema que nos ocupa... [regresar al formulario1 cuando SE CIERRA el formulario2]... y hasta donde he podido investigar:
-> el boton de cerrar el formulario [X] y/o pulsar las teclas {Alt}+{F4} cuando esta activo un formulario [que son lo mismo]...
a) puedes 'trampearlo' una vez [usarlo dos veces] y luego dejara de funcionar :-((
b) puedes agregarle una 'trampa' mas [y solo una mas] si muestras de nuevo el formulario anterior en el evento '_Terminate'

5) [en resumen]... creo que lo mas 'barato' que te puedo conseguir... es que EVITES que el boton [X] cierre el formulario
y 'obligues' al usuario a utilizar el boton que haria 'lo propio' [esconder el formulario activo y volver a mostrar al anterior] ;)
[con las 'reservas' de los comentarios en los puntos 2 y 3] -???-

6) te saldria aun mas 'barato'... si no existiendo 'necesidad' de conservar capturas previas en los formularios... [simplemente]
sigues mostrando los formularios como 'modales' [el metodo .Show 'simple y llano'] pero... -> SIN ocultar al formulario anterior -?-
lo cual obligadamente vuelve al formulario previo al cerrarse el formulario 'activo' ;)
y te evitas la necesidad de des/re ocutar/mostrar entre formulario y formulario :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la re/consulta original __
Mostrar la cita

... (el UserForm1 aparece al abrir el archivo):
Sub Auto_open()
Load UserForm1
UserForm1.Show
End Sub
En el UserForm1 hay solo dos botones de comando y están estos codigos:
Private Sub CommandButton1_Click()
Load UserForm2
UserForm1.Hide
UserForm2.Show
End Sub
Private Sub CommandButton2_Click()
Load UserForm4
UserForm1.Hide
UserForm4.Show
End Sub

En el UserForm2 hay mas elementos y los cadigos son estos: [...]

Hola Héctor:

Cómo estas? Gracias por tu valiosa ayuda. He suprimido todos los Load y anda
todo perfectamente. También usé tu idea de no Ocultar el Formulario anterior
y entonces al cerrar el formulario siguiente vuelve al anterior. Todo
bárbaro!! Y tan simple! Gracias por tus soluciones maravillosas!!!
Bueno, ahora me queda solo una cosita en el tintero, que es que yo no quiero
que los usuarios puedan "acceder" a la hoja de cálculo al cerrar el
Userform1, sino que quiero que queden confinados a usar solo los UserForm.
En el UserForm1 puse este código:

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

UserForm1.Hide
UserForm1.Show

End Sub

Y parece funcionar bien, ya que al apretar la X no se accede a la hoja de
cálculo sino que queda el UserForm1 en pantalla. Está bien lo que hize o hay
una mejor (y tal vez más segura para el código) manera?
Muchas gracias por todo!!

Mariano

"Héctor Miguel" escribió en el mensaje
news:
Mostrar la cita

hola, ?

1) comentarte que las instrucciones Load ['repetitivas' que usas] no son

necesarias
Mostrar la cita

los metodos .Hide y .Show se encargan de 'cargar' en memoria los

objetos [oculto y visible]
Mostrar la cita

la instruccion Load [generalmente] se usa para 'trabajar' con los

objetos [cargados en memoria] si que el usuario 'se entere' ;)
Mostrar la cita

2) no 'veo' la necesidad de ocultar los formularios 'anteriores' [si de

todos modos se trabajan de forma 'modal'] -???-
Mostrar la cita

a menos que requieras 'conservar' algunos datos segun se vayan

'llenando', en cuyo caso puedes mostrarlos como 'no modales' -?-
Mostrar la cita

3) considera ademas que al mantener varios formularios 'ocultos'... estas

corriendo el riesgo que al terminarse el codigo
Mostrar la cita

pudieran quedar en memoria algunos objetos sin 'destruirse' y en algun

momento recibiras 'errores' en otras partes del codigo -?-
Mostrar la cita

4) del tema que nos ocupa... [regresar al formulario1 cuando SE CIERRA el

formulario2]... y hasta donde he podido investigar:
Mostrar la cita

-> el boton de cerrar el formulario [X] y/o pulsar las teclas

{Alt}+{F4} cuando esta activo un formulario [que son lo mismo]...
Mostrar la cita

a) puedes 'trampearlo' una vez [usarlo dos veces] y luego dejara

de funcionar :-((
Mostrar la cita

b) puedes agregarle una 'trampa' mas [y solo una mas] si muestras

de nuevo el formulario anterior en el evento '_Terminate'
Mostrar la cita

5) [en resumen]... creo que lo mas 'barato' que te puedo conseguir... es

que EVITES que el boton [X] cierre el formulario
Mostrar la cita

y 'obligues' al usuario a utilizar el boton que haria 'lo propio'

[esconder el formulario activo y volver a mostrar al anterior] ;)
Mostrar la cita

[con las 'reservas' de los comentarios en los puntos 2 y 3] -???-

6) te saldria aun mas 'barato'... si no existiendo 'necesidad' de

conservar capturas previas en los formularios... [simplemente]
Mostrar la cita

sigues mostrando los formularios como 'modales' [el metodo .Show

'simple y llano'] pero... -> SIN ocultar al formulario anterior -?-
Mostrar la cita

lo cual obligadamente vuelve al formulario previo al cerrarse el

formulario 'activo' ;)
Mostrar la cita

y te evitas la necesidad de des/re ocutar/mostrar entre formulario y

formulario :))
Mostrar la cita

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la re/consulta original __
> ... (el UserForm1 aparece al abrir el archivo):
> Sub Auto_open()
> Load UserForm1
> UserForm1.Show
> End Sub
> En el UserForm1 hay solo dos botones de comando y están estos codigos:
> Private Sub CommandButton1_Click()
> Load UserForm2
> UserForm1.Hide
> UserForm2.Show
> End Sub
> Private Sub CommandButton2_Click()
> Load UserForm4
> UserForm1.Hide
> UserForm4.Show
> End Sub
>
> En el UserForm2 hay mas elementos y los cadigos son estos: [...]

hola, Mariano ! [gracias por 'exponer' tu nombre] :))

Mostrar la cita

... me queda solo una cosita en el tintero
que es que yo no quiero que los usuarios puedan "acceder" a la hoja de calculo al cerrar el Userform1
sino que quiero que queden confinados a usar solo los UserForm.
En el UserForm1 puse este código:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
UserForm1.Hide
UserForm1.Show
End Sub

Y parece funcionar bien, ya que al apretar la X no se accede a la hoja de calculo sino que queda el UserForm1 en pantalla.
Esta bien lo que hize o hay una mejor (y tal vez mas segura para el codigo) manera?

si solo quieres evitar que este 'disponible/funcional/... el boton [X] de un formulario, usa algo +/- como lo siguiente:
en el modulo de codigo del formulario ==Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = CloseMode = vbFormControlMenu
End Sub

nota: todavia se puede cerrar el formulario [pero]... SOLO si pulsan {ctrl}+{break/pausa/interrupcion}
o... por algun boton 'de salida' que le proveas en el mismo formulario ;)

saludos,
hector.