نقل اسم الكوموند بوتون الى خلية فى ورقة عمل

Public WithEvents buttonGroup As MSForms.CommandButton



Private Sub buttonGroup_Click()

    ThisWorkbook.Worksheets(1).Range("B2").Value = buttonGroup.Caption

End Sub

Dim buttons() As New clsCommandButtons



Private Sub UserForm_Initialize()

    Dim ctl As Control, buttonCount As Integer

    buttonCount = 0

    For Each ctl In UserForm1.Controls

        If TypeName(ctl) = "CommandButton" Then

            buttonCount = buttonCount + 1

            ReDim Preserve buttons(1 To buttonCount)

            Set buttons(buttonCount).buttonGroup = ctl

        End If

    Next ctl

End Sub

Sub ShowForm()

    UserForm1.Show False

End Sub