Jump to content

Cerrar Formulario después de un tiempo


hectororlando9

Recommended Posts

Cordial saludo.

Tengo un problemita con unos formularios.

La idea es hacer esto:

1. en hoja 1 existe un boton que activa un formulario.

2. dentro del primer formulario existe un boton.

3. Al dar clic en ese boton se oculta el primer formulario y se muestra un segundo formulario.

4. Desde que se hace clic en ese boton que oculta el primer formulario se deben transcurrir 90 segundos.

5. Apenas acaben los 90 segundos se debe cerrar el formulario que este activado.

6. Puede que este activado el segundo formulario o el 10, se debe cerrar el activo.

No se como hacerlo.

Ingresé este código en el botón:

Private Sub UserForm_Initialize()

Application.OnTime Now + TimeValue("00:00:05"), "Cerrar"

End Sub

Y en el módulo de macros este:

Sub Cerrar()

On Error Resume Next

Unload Me

End Sub

Pero no me funciona.

Espero me puedan ayudar.

Orlando.

Link to post
Share on other sites

El problema es que si le pones ese código a un userform y no es el que está abierto en el momento en que se cumpla el tiempo no se cerrará. Sería a partir del segundo formulario? El primero no cuenta? No tienes el archivo que puedas subir?

Link to post
Share on other sites

Hola:

Esto te cerrará el último formulario al cabo del tiempo que tu quieras.

En un módulo:

Public Formulario As Object
Public Hora

Sub Reloj()
Hora = Time + TimeSerial(0, 0, 5)
Application.OnTime Hora, "Pechar"
End Sub

Sub Pechar(): On Error Resume Next
Unload Formulario
Application.OnTime Hora, "Pechar", Schedule:=False
End Sub
[/CODE]

[u][b]En cada formulario que quieras temporizar:[/b][/u]

[CODE]Private Sub UserForm_Initialize()
Set Formulario = Me
Reloj
End Sub
[/CODE]

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy