Hacer referencia a un modulo desde un Boton

[abrahamvj]

Supndre que en tu auto_open ¿? has usado un Application.OnTime que te detectara la hora para que arranque tu rutina (OJO, no es una funcion... excepto si hablamos de un UDF ;) ) de envio de correo electronico. Entonces, suponiendo que esa macro se llama "Proceso", tenemos que tener tambien una que se llamara, por ejemplo "Temporizador". Por lo tanto, en un modulo normal iria algo asi:

Public tiempototal As Double
Public Const Tiempo As String = "00:00:10"

Sub Temporizador()

UserForm1.Show vbModeless

tiempototal = Now + TimeValue(Tiempo)

Application.OnTime EarliestTime:=tiempototal, _
Procedure:="Proceso", _
Schedule:=True

End Sub


Sub Proceso()
Unload UserForm1
MsgBox "Abraham esta loco"
'Aqui tu proceso
End Sub

Ah, para eso, supondre que tu userform1, lo unico que tiene es un boton cancelar, y este codigo:

Private Sub CommandButton1_Click()
Application.OnTime EarliestTime:=tiempototal, _
Procedure:="Proceso", _
Schedule:=False
Unload Userform1
MsgBox "Proceso canceldao"
End Sub

Obviamente, si no se presiona el boton del userfomr, pues, "aaranca" la macro "Proceso"; y si se presiona, antes de los 10 segundos, pues, obviaente no corre

Abraham