run the macro based on timer counter on userform for specific time

[MKLAQ]

hello

I search for procedure before run the macro . so if I press button to run the macro ,then pops up message " you should wait at this time PM 21:12:00" and if I choose OK then should show timer counter on userform to see how remained time to PM 21:12:00 and if reached for this time , then should run the macro, if it's past then shouldn't work , keep timer counter to see how remained time and if press NO shouldn't show the userform and exit .
thanks

 

[MKLAQ]

It was not easy to understand problem and find right way

I appreciate it even if my problem is not solved.
unfortunately doesn't work . I use F8 may be gives error or something but the code finish in this line

Exit Sub

without pass in others lines .
and where is the procedure of my macro should add it

    MsgBox "This is your macro"

to run if matched with the time , is it end of the code in modula standard ?

 

[EXCEL MAX]

Set the first line of code to time greater then currently time. (vTime = "21:12:00").
You have ask for this time, so this is time when you want macro to run.
Your final macro can be called in the end of this procedure.

    Do While vClose = False
        DoEvents
    Loop
    UserForm1.Hide
    vClose = False
    'call your macro here
    
End Sub

 

[MKLAQ]

finally it works but there is problem when close the userform it run the macro . it shouldn't be.

 

[EXCEL MAX]

Yes, you are right.
Let's try to change finish to look like this.

    Do While vClose = False
        DoEvents
    Loop
    If UserForm1.Label1.Caption = "00:00:01" Then
        UserForm1.Label1.Caption = ""
        UserForm1.Hide
        'call your macro here
    End If
    vClose = False

End Sub

 

[MKLAQ]

thanks again , but doesn't work . it still runs the macro when close the form

 

[EXCEL MAX]

It can't be.
The macro will run only if Label1 caption is "00:00:01".
Check that. Put message box before last "If" statement and see what is the label caption.

 

[MKLAQ]

Put message box before last "If" statement and see what is the label caption

my apologies ! I don't read well when you added comment inside the code where put the macro .

now it works greatly ! many thanks for every thing

 

[EXCEL MAX]

Thanks God, I was afraid we don't understand each other.
I'm glad now works fine. Thanks for feedback.