Run a macro if any of textboxes change - vba

[kelly mort]

I have about 50 textboxes that I want to run a certain macro each time their contents change.
I was doing it individually - is there a way I could loop through the textboxes with a function or anything similar?

The textboxes are on a userform
Thanks in advance

 

[Jon Peltier]

Sometimes when I have to do seemingly repetitive things like this, I use individual textbox_change event, but from each I call a general function and pass in a reference to the textbox which changed.

 

[kelly mort]

Sometimes when I have to do seemingly repetitive things like this, I use individual textbox_change event, but from each I call a general function and pass in a reference to the textbox which changed.

That's what I am doing at the moment - I was thinking there could be another way around it.

Thanks for the concern.

 

[Logit]

.
Presuming your textboxes are located on a USER FORM :

Private Sub UserForm_Initialize()

Dim ctrl As Control      ' CREATE A CONTROL OBJECT.

    ' LOOP THROUGH EACH CONTROL, CHECK IF THE CONTROL IS A TEXTBOX.
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "TextBox" Then
            Call MyMacro
        End If
    Next ctrl
    
End Sub

 

[Jon Peltier]

You can set up a class module for a textbox, and put the event code in the class. Then when you initialize the form, you create an instance of the class for each textbox in the form. When text in a textbox changes, it will run code in the class rather than in the userform. This is long and tedious, and I usually only do it if there are lots of controls I need the same code for, or I need the same code for controls in different forms.

 

[Logit]

Another approach would be to place all the textboxes in a GROUP BOX control. You can set the properties for all textboxes that are
contained within the GROUP BOX control at one time.

 

[Jon Peltier]

Group Box? You mean a Frame? You can simply ctrl-select multiple controls and change their properties together. But that doesn't help with the coding situation here.

 

[kelly mort]

.
Presuming your textboxes are located on a USER FORM :

Private Sub UserForm_Initialize()

Dim ctrl As Control      ' CREATE A CONTROL OBJECT.

    ' LOOP THROUGH EACH CONTROL, CHECK IF THE CONTROL IS A TEXTBOX.
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "TextBox" Then
            Call MyMacro
        End If
    Next ctrl
    
End Sub

The code didn't work for me.

 

[Jon Peltier]

What does "didn't work" mean? Did the initialize event not fire? Did it not recognized the textboxes? Did the called macro not run?

Thus should probably not be in the initialize event procedure though. It should run after the firm is displayed, where the user may have changed something.

 

[kelly mort]

What does "didn't work" mean? Did the initialize event not fire? Did it not recognized the textboxes? Did the called macro not run?

Thus should probably not be in the initialize event procedure though. It should run after the firm is displayed, where the user may have changed something.

The called macro didn’t run.