Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Redim Preserve question
I tried to modify John Walkenbach's example in the link below (i.e. assigning
one subroutine to multiple buttons) to do the same task but for textboxes instead of buttons: http://www.j-walk.com/ss/excel/tips/tip44.htm e.g. I have several textboxes, and I only want to assign a subroutine to 10 particular textboxes (namely txtCatch1PreY1 to txtCatch1PreY10). But my attempt below seems to assign the subroutine to txtCatch1PreY1 only. Can someone please help me spot where the problem is in my code? ' The following code is in Class Module 1 Public WithEvents SlopeTextboxGroup As MSForms.TextBox Private Sub SlopeTextboxGroup_Change() MsgBox "Hello from " & SlopeTextboxGroup.Name End Sub ' The following code is in Module 1 Option Explicit Dim TextBoxes() As New Class1 Sub ShowDialog() Dim ctrl As Control Dim TextboxCount As Integer TextboxCount = 1 For Each ctrl In UserForm1.Controls If TypeName(ctrl) = "TextBox" Then If ctrl.Name = "txtCatch1PreY" & TextboxCount Then TextboxCount = TextboxCount + 1 ReDim Preserve TextBoxes(1 To TextboxCount) Set TextBoxes(TextboxCount).SlopeTextboxGroup = ctrl End If End If Next ctrl ' Show UserForm1 UserForm1.Show End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VBA: What does Redim Preserve do in term of memory | Excel Programming | |||
Redim Preserve form a userform? | Excel Programming | |||
redim preserve the second dimension in a two-dim array | Excel Programming | |||
redim preserve | Excel Programming | |||
Redim Preserve doesn't work | Excel Programming |