Addition code for 110 TextBoxes
 

Thank you, but I cannot get it to work for my textbox issue. I used the
following code...


MODULE1 CODE:

Option Explicit
Dim Text1() As New Class1

Sub ShowDialog()
'ButtonCount is now TextCount
'Buttons is now Text1
Dim TextCount As Integer
Dim ctl As Control

TextCount = 0
For Each ctl In UserForm1.Controls
If TypeName(ctl) = "TextBox" Then
If ctl.Name < "OKButton" Then 'Skip the OKButton
TextCount = TextCount + 1
ReDim Preserve Text1(1 To TextCount)
Set Text1(TextCount).ButtonGroup = ctl
End If
End If
Next ctl
UserForm1.Show
End Sub

CLASS1 CODE:
Public WithEvents ButtonGroup As TextBox

Private Sub ButtonGroup_Click()
MsgBox "Hello from " & ButtonGroup.Name
End Sub

WHen I run it, I get the error "Object does not source automation events"

It highlights this bit of code
Public WithEvents ButtonGroup As TextBox



"Tom Ogilvy" wrote in message
...
Use John Walkenbach's method

http://j-walk.com/ss/excel/tips/tip44.htm
Handle Multiple UserForm Buttons With One Subroutine


although written for comandbuttons, it can be adapted to your situation I
would think.

Another solution might be to link your textboxes to cells in a worksheet
and
have a sum function get the value of all the cells.



--
Regards,
Tom Ogilvy


Todd Huttenstine wrote in message
...
The below code adds up all the values of the specified TextBoxes. I
need
this code to run after any value in any of the specified textboxes
change
in
addition to another 88 TextBoxes that I have not listed. Instead of
having
to put this code in all 110 TextBoxes, is there an easier way to get
this
code to run?

TextBox9.Value TextBox14.Value + TextBox19.Value + TextBox24.Value +
TextBox29.Value + TextBox34.Value + _
TextBox39.Value + TextBox44.Value + TextBox49.Value + TextBox54.Value +
TextBox59.Value + TextBox64.Value + _
TextBox69.Value + TextBox74.Value + TextBox79.Value + TextBox84.Value +
TextBox89.Value + TextBox94.Value + _
TextBox99.Value + TextBox104.Value + TextBox109.Value + TextBox114


Thank you

Todd Huttenstine

Addition code for 110 TextBoxes
 

Use MSforms.Textbox for your type. Excel has its own Textbox object.

--
Regards,
Tom Ogilvy

Todd Huttenstine wrote in message
...
Thank you, but I cannot get it to work for my textbox issue. I used the
following code...


MODULE1 CODE:

Option Explicit
Dim Text1() As New Class1

Sub ShowDialog()
'ButtonCount is now TextCount
'Buttons is now Text1
Dim TextCount As Integer
Dim ctl As Control

TextCount = 0
For Each ctl In UserForm1.Controls
If TypeName(ctl) = "TextBox" Then
If ctl.Name < "OKButton" Then 'Skip the OKButton
TextCount = TextCount + 1
ReDim Preserve Text1(1 To TextCount)
Set Text1(TextCount).ButtonGroup = ctl
End If
End If
Next ctl
UserForm1.Show
End Sub

CLASS1 CODE:
Public WithEvents ButtonGroup As TextBox

Private Sub ButtonGroup_Click()
MsgBox "Hello from " & ButtonGroup.Name
End Sub

WHen I run it, I get the error "Object does not source automation events"

It highlights this bit of code
Public WithEvents ButtonGroup As TextBox



"Tom Ogilvy" wrote in message
...
Use John Walkenbach's method

http://j-walk.com/ss/excel/tips/tip44.htm
Handle Multiple UserForm Buttons With One Subroutine


although written for comandbuttons, it can be adapted to your situation
I
would think.

Another solution might be to link your textboxes to cells in a worksheet
and
have a sum function get the value of all the cells.



--
Regards,
Tom Ogilvy


Todd Huttenstine wrote in message
...
The below code adds up all the values of the specified TextBoxes. I
need
this code to run after any value in any of the specified textboxes
change
in
addition to another 88 TextBoxes that I have not listed. Instead of
having
to put this code in all 110 TextBoxes, is there an easier way to get
this
code to run?

TextBox9.Value TextBox14.Value + TextBox19.Value + TextBox24.Value +
TextBox29.Value + TextBox34.Value + _
TextBox39.Value + TextBox44.Value + TextBox49.Value + TextBox54.Value
+
TextBox59.Value + TextBox64.Value + _
TextBox69.Value + TextBox74.Value + TextBox79.Value + TextBox84.Value
+
TextBox89.Value + TextBox94.Value + _
TextBox99.Value + TextBox104.Value + TextBox109.Value + TextBox114


Thank you

Todd Huttenstine