Form control- button with updated date.

[johannordgren]

Hello there,

Need help with a VBA code or a macro for a clickable button.

When the button is clicked I would like "the text in the button" to update the days date.

Thank you!

 

[hotabae]

Hello, If I've understood this correctly, this should do.

My code uses a button named "Button1":

Sub Button1_Click()
    ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Text = Date
End Sub

When you click the button, the text on the button will update to reflect the current date.

 

[johannordgren]

Hello, If I've understood this correctly, this should do.

My code uses a button named "Button1":

Sub Button1_Click()
    ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Text = Date
End Sub

When you click the button, the text on the button will update to reflect the current date.

Hmm, doesn't work for me, says the code is wrong :/ And yes, I've renamed my bitton to "Button1"

 

[dmt32]

Hi,
try

Sub Button1_Click()
    ActiveSheet.Buttons("Button 1").Caption = Format(Date, "dd/mm/yyyy")
End Sub

Dave

 

[johannordgren]

Hi,
try

Sub Button1_Click()
    ActiveSheet.Buttons("Button 1").Caption = Format(Date, "dd/mm/yyyy")
End Sub

Dave

Error 1004
"Unable to get the Buttons property of the worksheec class"

Guess I'm doing something wrong..

 

[dmt32]

Error 1004
"Unable to get the Buttons property of the worksheec class"

Guess I'm doing something wrong..

Is your sheet protected?

if so, try this update

Sub Button1_Click()
    With ActiveSheet
    .Unprotect Password:=""
        .Buttons("Button 1").Caption = Format(Date, "dd/mm/yyyy")
    .Protect Password:=""
    End With
End Sub

add password as required

Dave

 

[johannordgren]

Is your sheet protected?

Dave

Nope

 

[dmt32]

Nope

Is the button on the Activesheet when code is run?

Dave

 

[hotabae]

Hmm, doesn't work for me, says the code is wrong :/ And yes, I've renamed my bitton to "Button1"

If you're willing to take another shot with mine, you can right click the button and use "assign macro" then make sure the Button1_click is actually selected.

For the record, I'm having success with my code and Dave's code (though my 'merican date format doesn't match Dave's) :P

 

[johannordgren]

Is the button on the Activesheet when code is run?

Dave

I suppose. I only have one "Sheet". And I open VB from "view code" by right-clicking on the button.
If this is what you mean with "Activesheet".