Add coded active X button using userform

[iaindowner]

I have a userform which contains a number of textbox fields. It also contains a command button. Upon clicking the command button at the bottom of the user form I want to create a button which contains code dependent on the textbox values in the userform. I already have the code to create the button but I can't work out how to code the button.

Private Sub Add_Click()
Sheets(Sheet.Value).OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=100, Top:=100, Width:=102, Height:=54).Name = NP.NT.Value
Application.ActiveWorkbook.Sheets(Sheet.Value).Shapes(NP.NT.Value).DrawingObject.Object.Caption = NP.NT.Value
 
End Sub

I need to add the code:

Private Sub [COLOR=#ff0000][U][B]NEWBUTTON[/B][/U][/COLOR]_Click()
Range("I60").End(xlUp).Offset(1, 0).Value = [U][B][COLOR=#ff0000]"RED SQUARE"[/COLOR][/B][/U]
Range("I60").End(xlUp).Offset(0, 1).Value = 1
End Sub

The only issue is that both of the areas highlighted in red above must match the value of one of the textbox fields in the userform which is NP.NT.Value

 

[Andrew Poulsom]

Why do you need to create a CommandButton at run time? Why can't you create it at design time and hide it until it's needed?

 

[iaindowner]

I am designing a simple EPOS system for someone. The userform allows you to easily add a button which is precoded. It will allow buttons to be added without any vba knowledge or using developer mode.

 

[Andrew Poulsom]

To add code you would use CreateEventProc as in Post #8 here:

http://www.mrexcel.com/forum/excel-questions/109556-automate-adding-radio-buttons.html