Return tag of dynamic commandbutton as string

opopanax666 · Aug 24th 2010

Hi everybody,

I use following code to show names of users on a form:

Code

Private Sub UserForm_Initialize()
Dim i As Long
For i = 1 To 14
If Cells(i, 1) = "" Then
    UserForm1.Controls.Item(i - 1).Visible = False
Else
    UserForm1.Controls.Item(i - 1).Visible = True
    UserForm1.Controls.Item(i - 1).Caption = Cells(i, 1).Value
End If
Next
End Sub

Display More

When one of these buttons gets clicked, I want its tag/name/caption to be stored in a string (called User).
Can anybody help?

Simon Lloyd · Aug 24th 2010

Re: Return tag of dynamic commandbutton as string

In a standard module add this at the top:

Code

Public Usr As String

then in your userform:

Code

Private Sub CommandButton1_Click()
Usr = Me.Commandbutton1.Caption
End Sub

junho lee · Aug 24th 2010

Re: Return tag of dynamic commandbutton as string

Hi opopanax666,
Nice to meet you.Look at "click events".
http://j-walk.com/ss/excel/tips/tip44.htm
Regards, Junho

Return tag of dynamic commandbutton as string

Participate now!

Share