Assign code to a button created dynamically

by

Here is an example. Please amend it to suit your needs 🙂

This example will create a command button and assign code to it so that when it is pressed, it will display “Hello World”.

Paste this code in the click event of a command button which will create a new command button dynamically and assign code to it.

Option Explicit

Dim cmdArray() As New Class1

Private Sub CommandButton1_Click()
    Dim ctl_Command As Control
    Dim i As Long

    i = 1

    Set ctl_Command = Me.Controls.Add("Forms.CommandButton.1", "CmdXYZ" & i, False)

    With ctl_Command
        .Left = 100
        .Top = 100
        .Width = 255
        .Caption = "Click Me " & CStr(i)
        .Visible = True
    End With

    ReDim Preserve cmdArray(1 To i)
    Set cmdArray(i).CmdEvents = ctl_Command

    Set ctl_Command = Nothing

End Sub

and paste this code in a class module

Option Explicit

Public WithEvents CmdEvents As MSForms.CommandButton

Private Sub CmdEvents_Click()

    MsgBox "Hello Word"

End Sub

SNAPSHOT

enter image description here
enter image description here

More Related Contents:

  1. delete Autofilter Field resullt using the header Name
  2. Copy data from cell in selected row
  3. Somehow it’s not copying [closed]
  4. VBA macro that search for file in multiple subfolders
  5. So, I have 6 “master” files to then divide into 40 separate files
  6. Last not empty cell (column) in the given row; Excel VBA
  7. HTML Text with tags to formatted text in an Excel cell
  8. Split comma separated entries to new rows [closed]
  9. Get list of Excel files in a folder using VBA [duplicate]
  10. Select first empty cell in column F starting from row 1. (without using offset )
  11. Programmatic Access To Visual Basic Project Is Not Trusted
  12. Conditional Formatting using Excel VBA code
  13. Controlling IE11 “Do you want to Open/Save” dialogue window buttons in VBA
  14. VBA Macro to compare all cells of two Excel files
  15. Excel VBA – QueryTable AfterRefresh function not being called after Refresh completes
  16. Excel VBA: AutoFill Multiple Cells with Formulas
  17. VBA.Find and adding a value
  18. excel vba- extract text between 2 characters
  19. Round function in Excel, worksheet function vs VBA
  20. How to continue the code on the next line in VBA
  21. Excel VBA Userform – Execute Sub when something changes
  22. Running VBA from a HYPERLINK()
  23. Count the number of rows in another sheet [duplicate]
  24. Getting Excel to refresh data on sheet from within VBA
  25. VBA Password Input with Cancel Function
  26. Finding first blank row, then writing to it
  27. How to have vba execute every 10 minutes?
  28. Loop through cells and add to a range
  29. Read and write from/to registry in VBA
  30. Unable to read data from a CSV using ADO due to the driver thinking I am working with integers/number and showing nulls instead of text

Leave a Comment