Foro Excel

Creo haber visto este tema en algún lugar del foro, pero ya busqué y la verad no lo encuentro, a ver si alguien me ayuda.

Gracias

Hola!
Llamas a un formulario desde el evento open, en el formulario va un código similar a este:


Public Control
Sub Auto_Open()
Application.ScreenUpdating = False
Control = 0
UserForm4.Show
End Sub

Sub quitar()
Unload UserForm4
End Sub


Esto va en el formulario

Private Sub UserForm_initialize()
If Control = 0 Then
Application.OnTime Now + TimeValue("00:00:02"), "quitar"
Else
Control = 1
End If
End Sub


Atte.


PD: este código lo saque de algo que hice hace bastante tiempo, puede haber unas incoherencias, pero te ayudará.

Es soprendente la velocidad de respuesta de este foro

Gracias Adrian funciona de maravilla

GRACIASSSSSSSSSSSSSSSSSSSSSS