Dear Bob and others,

This was a very usefull tip.

I would like to add a possibly usefull comment:
You can modify the:
For Each ctl In UserForm1.Controls
to
For Each ctl In UserForm1.Frame1.Controls
to make a selection of Controls on a Userform, i.e. those that are within
Frame1.

Regards,
Jan Bart


"Bob Phillips" wrote:

This method does not support the Exit event for textboxes. You need to go
into the calls module and see what events are supported.

This is the code that I used

Class Module

Public WithEvents TextBoxGroup As MSForms.TextBox

Private Sub TextBoxGroup_Change()
MsgBox "hello"
End Sub

Standard Module

Dim TextBoxes() As New Class1

Sub ShowDialog()
Dim TextBoxCount As Integer
Dim ctl As Control

' Create the Button objects
TextBoxCount = 0
For Each ctl In UserForm1.Controls
If TypeName(ctl) = "TextBox" Then
TextBoxCount = TextBoxCount + 1
ReDim Preserve TextBoxes(1 To TextBoxCount)
Set TextBoxes(TextBoxCount).TextBoxGroup = ctl
End If
Next ctl
UserForm1.Show
End Sub

--
HTH

Bob Phillips

"Liedson31" wrote in message
...
sorry Bob my previous doubt....i already did the adjustment that John talk
about
i forgot the part MsForms.TextBox.
Now i have all the textboxes grouped...
the question is....i try instead of command_click the
private Sub TextBoxGroup_Exit(ByVal Cancel As MSForms.ReturnBoolean)
--here i have the code
end sub

but it never enters here,can you help me?
thanks
Miguel



"Bob Phillips" wrote:

Private Sub TextBox1_Change()
myCommonMacro
End Sub


etc., or else youy can modify John Walkenbach's technique shown here
http://j-walk.com/ss/excel/tips/tip44.htm

--
HTH

Bob Phillips

"Liedson31" wrote in message
...
hi everyone.

i have a function that i want to run everytime the user change a value
from
all textboxes included on a form. i don´t want to put code on every
textbox,i´m asking if is that any way that once the user input a value
on
one
textbox i run a function.have the forms a change event or similar that
let
me
do this?

thanks in advance
Miguel