Create a Command Button

[njg2982]

Hey there,

I'm fairly decent with worksheet functions but not so good at the macro end of it. What im looking to do is create a button on the worksheet that displays the current time minus 3 minutes, when pressed. Also a button to do the same but only add 3 minutes when pressed.

If you have any suggestions they would be greatly appreciated.

Thank you,
Nick

[Trebor76]

Hi Nick,

Let me know if the attached is what you need.

HTH

Robert

[njg2982]

Yes and no,

Instead of the promt coming up saying the adjusted time i was looking for it to enter it into a cell.


TIA.

Nick

[Trebor76]

Hi Nick,

You don't say which cell the time difference option should be returned to, so I've revamped the attached so that it returns the selected option to the cell the user was on (active cell) when they clicked the desired option (button).

HTH

Robert

[njg2982]

This will work. Thank you, though i'm wondering if i wanted it be in a specific cell where/how do i make it so. If you can adjust the one you've attached or show me the command i modify id like to be able to replicate this if need be.

Thanks again for your help.


Nick

[Trebor76]

Hi Nick,

The following will return the selected option to cell A1, change "A1" in the following code to suit:

Sub Macro1()

    If InStr(Application.Caller, "Plus") > 0 Then
    Range("A1") = Format(Now + TimeSerial(0, 3, 0), "h:mm AM/PM")
    Else
    Range("A1") = Format(Now - TimeSerial(0, 3, 0), "h:mm AM/PM")
    End If
    
End Sub

HTH

Robert