userform text fields with the same code....

[RobbieC]

Hi there, I have a userform with 100 text fields on it. they are all named dp1 dp2 dp3.... dp99 dp100

when I enter a text field I want the backcolor to change to green and the text white. and upon exiting revert to backcolor white and black text... I can do this using this code:

Private Sub dp1_enter()
Me.dp1.BackColor = &H8000&
Me.dp1.ForeColor = &HFFFFFF
End Sub


Private Sub dp1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.dp1.BackColor = &HFFFFFF
Me.dp1.ForeColor = &H80000008
End Sub

but is there a way to do a 'catch all' bit of code, or do I have to manually enter this code for all 100 text fields?

If you can point me in the right direction, I'd be very happy.

Thanks

Rob

 

[Logit]

.
Loop Through Specific/Specified Controls

[FONT=&quot]Use the code below to loop through only specified Controls on a UserForm.

[/FONT]

[COLOR=#000000][FONT=&quot]
[/FONT][/COLOR]
[B]Private Sub CommandButton1_Click()[/B]

Dim cCont As Control



    For Each cCont In Me.Controls

        If TypeName(cCont) = "TextBox" Then

            'DO STUFF HERE

        End If

     Next cCont



[B]End Sub[/B]

https://www.ozgrid.com/VBA/control-loop.htm