Jump to content
Sign in to follow this  
rubikcat

Userform se muestra sin contenido

Recommended Posts

Hola, estoy haciendo una macro y al inicio lanzo un userform que tiene una etiqueta informando de que se está procesando, para que el usuario no piense que algo va mal.
La cuestión es que el userform aparece en blanco, sin mostrar el mensaje que debería mostrar, mientras de fondo se realizan los cálculos.
He probado a ponerle al formulario el ShowModal=true y de esta forma sí se ve el mensaje pero claro, hasta que no cierro la ventana no continua la macro.

Adjunto archivo con ejemplo por si alguien supiera qué estoy haciendo mal.

Saludos y gracias

Prueba.xlsm

Share this post


Link to post
Share on other sites

Hola, gracias a todos.

@smart27Lo que me propones funciona, pero al final se queda el userform2 y lo tengo que cerrar manualmente, en lugar de que se cierre solo.

@HaploxSí, quiero que se cierre al terminar los cálculos y con mi código lo consigo pero el userform2 se muestra vacío, ese es el problema.

@Virgilio Esa era mi idea inicial pero tras investigar mucho en internet llegué a la conclusión de que solo era válido para aquellos cálculos que se hacen en bucle pero no para aquellos que son una sucesión de cálculos diferentes.

Share this post


Link to post
Share on other sites

Una instrucción DoEvents soluciona todos tus problemas.

Sub cálculo()
Application.ScreenUpdating = False
UserForm2.Show
   DoEvents '<--------------------------------
   Range("A1").Select
   ActiveCell.FormulaR1C1 = "=randbetween(1,100)"
   Selection.Copy
   Range("A1:AZ10000").Select
   ActiveSheet.Paste
   Application.CutCopyMode = False
Unload UserForm2
End Sub

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png