Cierre del userform VBA

Resuelto
gunbafo Mensajes publicados 55 Estado Miembro -  
gunbafo Mensajes publicados 55 Estado Miembro -
Hola,

No entiendo el comportamiento de un UserForm que acabo de crear. Explicación: Tengo un UserForm (principal) de "Menú" que comprende varios botones, cada uno con un UserForm asociado. Cuando cierro estos UserForms con la X, se cierran y vuelve a mostrarse el "Menú". Por otro lado, acabo de añadir un botón adicional con un UserForm que, al cerrarse, abre una hoja de Excel que está ligada a la macro de ese nuevo UserForm. ¿Por qué no reacciona como los otros, es decir, se cierra y se muestra el Menú?

Gracias por vuestra ayuda.

Configuración: Windows XP / Internet Explorer 6.0

7 respuestas

lermite222 Mensajes publicados 9042 Estado Colaborador 1 199
 
Move.. Cuando el menú está abierto se desplaza hacia la derecha y se desborda fuera de la pantalla a la derecha.
Por eso es necesario poner left y top a 0
Para la UF, es normal, si haces debug puedes ver que cuando cierras la UF cierras el menú y llamas a la hoja.
Para remediarlo..
En Module1 añadir
Public Fermer as Boolean
En el Menu UF
Private Sub Image22_Click() ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' Statiqtiques ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Statistiques.Show  If Fermer Then Exit Sub 'AJOUTER Unload Menu

En la UF Estadísticas añadir.
Private Sub UserForm_Initialize() Fermer = True End Su
b
En el código del botón...
Private Sub CommandButton1_Click() Fermer = False 'Fase de prueba: verificar si se ha seleccionado un periodo.'


Otra forma de hacerlo.. más simple
Todo lo que está después del botón estadística (UF Menu) ponlo en el código del botón de la UF estadística

--
La experiencia instruye más seguramente que el consejo. (André Gide)
Si te golpeas con una maceta y suena hueco, no es necesariamente la maceta la vacía. ;-)(Confucio)
NOTA: No respondo a mensajes directos para preguntas técnicas.
Tiene que hacerse en el foro para que todos puedan participar o beneficiarse.
1
lermite222 Mensajes publicados 9042 Estado Colaborador 1 199
 
Hola,
Es que reaccionan entre ellos.
Para que entendamos, publica tu cuaderno, posiblemente depura datos sensibles, en CiJoint.fr y pon el enlace en una próxima publicación.
A+
--
La experiencia instruye más seguramente que el consejo. (André Gide)
Si te golpeas con una alcantarilla y suena hueco, no necesariamente es la alcantarilla la que está vacía. ;-)(Confucio)
NOTA: No respondo a MPs para preguntas técnicas.
Tiene que hacerse en el foro para que todos puedan participar o aprovecharlo.
0
gunbafo Mensajes publicados 55 Estado Miembro 3
 
Re.

No veo cómo pueden interactuar entre ellos estos userforms...(¡para explicármelo!)

Aquí está el archivo. ya hice la limpieza suficiente y está libre de datos.
Para mi problema, es el botón "Estadísticas" el que hay que hacer clic.
Se abre un userform pero no se cierra con la X.

Gracias por tu ayuda

http://www.cijoint.fr/cjlink.php?file=cj201101/cijx0byqGX.xls
0
gunbafo Mensajes publicados 55 Estado Miembro 3
 
PD: Es para el mismo archivo en el que puse un mensaje con un problema de estilo de escritura donde respondiste ( https://forums.commentcamarche.net/forum/affich-20659393-garder-style-d-ecriture-dans-macro#p20660670)

Si logras responder a los 2 problemas al mismo tiempo

Nos vemos
0
lermite222 Mensajes publicados 9042 Estado Colaborador 1 199
 
¿Cómo quieres que revise tu cuaderno si pones una contraseña en el código ????
Y elimina el .Show en el UF que se abre en el ThisWorkBook.Open

La experiencia enseña más seguramente que el consejo. (André Gide)
Si te topas con una olla y suena hueca, no necesariamente es la olla la que está vacía. ;-)(Confucio)
NOTA: No respondo a MP para preguntas técnicas.
Debe hacerse en el foro para que todos puedan participar o beneficiarse.
0
gunbafo Mensajes publicados 55 Estado Miembro 3
 
De acuerdo, me olvidé de que lo había bloqueado. Aquí está el archivo:
http://www.cijoint.fr/cjlink.php?file=cj201101/cijcbSoIWC.xls

He quitado el Menu.show como me dijiste. Vas a llegar directamente a una hoja de Excel; hay botones en cada hoja para volver al Menú (Userform principal) que permite gestionar los otros userforms.
0
lermite222 Mensajes publicados 9042 Estado Colaborador 1 199
 
Empecemos por un problema a la vez.
No he encontrado tu problema, explica un poco más CUÁNDO encuentres un fallo y CÓMO (qué secuencia de acciones)

Nota.
En la inicialización del Menú..reemplazar
 Me.Width = Application.Width Me.Height = Application.Height

por..
 Me.Move 0, 0, Application.Width, Application.Height

Porque el UF está desplazado.
--
La experiencia instruye más que el consejo. (André Gide)
Si te golpeas con un cuenco y suena hueco, no es necesariamente el cuenco el que está vacío. ;-)(Confucio)
NOTA: No contesto mensajes privados para preguntas técnicas.
Tiene que hacerse en el foro para que todos puedan participar o beneficiarse.
0
gunbafo Mensajes publicados 55 Estado Miembro 3
 
Para mi problema con este post:
Tengo un Userform principal llamado "Menu"
Mi problema es que el Userform "Estadísticas" que se abre desde el "Menu", no se cierra como quiero. Cuando haces clic en la X en la esquina superior derecha, se cierra pero abre la hoja de cálculo "estadísticas". Yo quiero simplemente que cuando cierre este userform con la X, vuelva al "Menu".

El Userform "Nuevo Faltante" funciona de esta manera. ¿Por qué no el otro????

¿Podrías encontrar el porqué y el cómo con esto?

Nota: he integrado tu modificación pero no veo qué cambia??!!!
Unas explicaciones serían bienvenidas.

Nos vemos.
0
gunbafo Mensajes publicados 55 Estado Miembro 3
 
Hola lermitte222,

Gracias por tu ayuda.
Mi UF responde como deseaba. He elegido tu segunda solución,

¿Puedes guiarme con la segunda publicación donde empezaste a responderme? (ver la dirección arriba)

Se refiere al mismo archivo.

Gracias por tu ayuda.
0