Value from Cell Onto Command Button

[Hjemmet]

Is it Possibel to get Value from Cell onto Commanbutton
So the Text on Commandbutton change if the text Change in a Specific Cell example If value in "D1" is " Player 1" then The Text on Command Button Also is "Player 1"

what i self have done so far was Searching around Google and Didn realy find what i was looking for

 

[Hjemmet]

Did you press the ENTER key after you entered a new value in D1?

OH YES

 

[mumps]

Then I have no idea why it isn't working for you. It's working for me. What version of Excel are you using? Do you have macros enabled in Excel?

 

[Hjemmet]

Microsoft Office LTSC Professional Plus 2021

 

[mumps]

The coding is very basic so it actually should work for any version of Excel. Do you have macros enabled in Excel?

 

[Hjemmet]

The coding is very basic so it actually should work for any version of Excel. Do you have macros enabled in Excel?

i have Just Checking it in One of My Large Files where i Use Doubleclicking and that works just Fine
here is another file witch Works Just Fine

NEW Version Dart Cup.xlsm

Shared with Dropbox

www.dropbox.com

 

[mumps]

Place this version in the worksheet code module for the "Cup 8 2nd Chance (2)" sheet.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Address(0, 0) <> "D1" Then Exit Sub
    ActiveSheet.Shapes.Range(Array("Button 2")).Select
    Selection.Caption = Target
End Sub

 

[Hjemmet]

I Give up for now i cant get this Simple thing to work

 

[mumps]

Try this version in the worksheet code module for the "Cup 8 2nd Chance (2)" sheet. If you see a message pop up when you change D1, the macro is working. If no message pops up, there is something else that is preventing it from executing.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Address(0, 0) <> "D1" Then Exit Sub
    MsgBox ("If you see this message, the macro is executing.")
    ActiveSheet.Shapes.Range(Array("Button 2")).Select
    Selection.Caption = Target
End Sub

 

[Hjemmet]

THANK YOU FOR THE HELP! WHAT AND WHEN AND HOW I DONT KNOW But i works Now
only thing i did was Restart my Laptop.....

and put your Code with Msgbox as new Future....
i have make a Opostrof so the line with Msgbox wont Appear evertime
Thanks alot again

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target.Address(0, 0) <> "D1" Then Exit Sub
' MsgBox ("If you see this message, the macro is executing.")
ActiveSheet.Shapes.Range(Array("Button 2")).Select
Selection.Caption = Target
End Sub

 

[mumps]

You are very welcome. Make sure you delete the macro in the standard code module if it still there.