Jul 08 2021 07:49 PM - edited Jul 08 2021 07:57 PM
Hi everyone, how can I create a single button that everytime i click it, it will be then select either from strings "T", "X" or"R" and display it in the button. it actually corresponds to these wingdings 2 font. Thanks in advance.
Jul 09 2021 02:47 AM
SolutionSee the attached sample workbook. I inserted a command button from Form Controls, set its caption (text) to "T" and set its font to Wingdings 2.
I assigned the following macro to the command button:
Sub Button1_Click()
With ActiveSheet.Buttons("Button 1")
Select Case .Caption
Case "T"
.Caption = "X"
Case "X"
.Caption = "R"
Case "R"
.Caption = "T"
End Select
End With
End Sub
You'll have to allow macros when you open the workbook.
Jul 11 2021 05:49 PM
Jul 09 2021 02:47 AM
SolutionSee the attached sample workbook. I inserted a command button from Form Controls, set its caption (text) to "T" and set its font to Wingdings 2.
I assigned the following macro to the command button:
Sub Button1_Click()
With ActiveSheet.Buttons("Button 1")
Select Case .Caption
Case "T"
.Caption = "X"
Case "X"
.Caption = "R"
Case "R"
.Caption = "T"
End Select
End With
End Sub
You'll have to allow macros when you open the workbook.