Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to set value of Textbox in loop
Im trying to give a textbox in a userform an initial value. Its not straight
forward because the name of the textbox is not always the same (dynamic userform). I've setup this loop but cant get oCont.Value to work. Does anyone know why? Any Help is much appreciated. Thanks in advance Dim oPage As Page, oCont As control For Each oPage In DataPlate.MultiPage1.Pages If oPage.Index = 3 Then Exit For For Each oCont In oPage.Controls If TypeName(oCont) = "TextBox" Then If InStr(1, oCont.Tag, "PD") 0 Then 'SOMEHOW SET THE VALUE OF THE TEXTBOX HERE ElseIf InStr(1, oCont.Tag, "Proj") 0 Then 'SOMEHOW SET THE VALUE OF THE TEXTBOX HERE End If End If Next oCont Next oPage |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to set value of Textbox in loop
If InStr(1, oCont.Tag, "PD") 0 Then 'SOMEHOW SET THE VALUE OF THE TEXTBOX HERE ElseIf InStr(1, oCont.Tag, "Proj") 0 Then 'SOMEHOW SET THE VALUE OF THE TEXTBOX HERE End If Everything else works to this point, so if either of the statements are true, you should be able to use: Me.oCont.Text = "Something" <<<'whatever your text is "James" wrote: Im trying to give a textbox in a userform an initial value. Its not straight forward because the name of the textbox is not always the same (dynamic userform). I've setup this loop but cant get oCont.Value to work. Does anyone know why? Any Help is much appreciated. Thanks in advance Dim oPage As Page, oCont As control For Each oPage In DataPlate.MultiPage1.Pages If oPage.Index = 3 Then Exit For For Each oCont In oPage.Controls If TypeName(oCont) = "TextBox" Then If InStr(1, oCont.Tag, "PD") 0 Then 'SOMEHOW SET THE VALUE OF THE TEXTBOX HERE ElseIf InStr(1, oCont.Tag, "Proj") 0 Then 'SOMEHOW SET THE VALUE OF THE TEXTBOX HERE End If End If Next oCont Next oPage |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to set value of Textbox in loop
I've not worked with MultiPage before, but I would think this work. Since
your code has identified oCont as a reference to a TextBox, you should be able to use that reference... oCont.Text = "Assign your text variable or constant here" -- Rick (MVP - Excel) "James" wrote in message ... Im trying to give a textbox in a userform an initial value. Its not straight forward because the name of the textbox is not always the same (dynamic userform). I've setup this loop but cant get oCont.Value to work. Does anyone know why? Any Help is much appreciated. Thanks in advance Dim oPage As Page, oCont As control For Each oPage In DataPlate.MultiPage1.Pages If oPage.Index = 3 Then Exit For For Each oCont In oPage.Controls If TypeName(oCont) = "TextBox" Then If InStr(1, oCont.Tag, "PD") 0 Then 'SOMEHOW SET THE VALUE OF THE TEXTBOX HERE ElseIf InStr(1, oCont.Tag, "Proj") 0 Then 'SOMEHOW SET THE VALUE OF THE TEXTBOX HERE End If End If Next oCont Next oPage |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to set value of Textbox in loop
P.S.
Your code either has to be in the UserForm code module, of you will have to have the form open as non-modal with code in another module for it to work. If you have it in another module, the Me object variable cannot be used. "James" wrote: Im trying to give a textbox in a userform an initial value. Its not straight forward because the name of the textbox is not always the same (dynamic userform). I've setup this loop but cant get oCont.Value to work. Does anyone know why? Any Help is much appreciated. Thanks in advance Dim oPage As Page, oCont As control For Each oPage In DataPlate.MultiPage1.Pages If oPage.Index = 3 Then Exit For For Each oCont In oPage.Controls If TypeName(oCont) = "TextBox" Then If InStr(1, oCont.Tag, "PD") 0 Then 'SOMEHOW SET THE VALUE OF THE TEXTBOX HERE ElseIf InStr(1, oCont.Tag, "Proj") 0 Then 'SOMEHOW SET THE VALUE OF THE TEXTBOX HERE End If End If Next oCont Next oPage |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to set value of Textbox in loop
On Mar 19, 12:16*pm, JLGWhiz
wrote: P.S. Your code either has to be in the UserForm code module, of you will have to have the form open as non-modal with code in another module for it to work. * If you have it in another module, the Me object variable cannot be used. "James" wrote: Im trying to give a textbox in a userform an initial value. Its not straight forward because the name of the textbox is not always the same (dynamic userform). I've setup this loop but cant get oCont.Value to work. Does anyone know why? Any Help is much appreciated. Thanks in advance Dim oPage As Page, oCont As control * * For Each oPage In DataPlate.MultiPage1.Pages * * If oPage.Index = 3 Then Exit For * * * * For Each oCont In oPage.Controls * * * * * * If TypeName(oCont) = "TextBox" Then * * * * * * * * If InStr(1, oCont.Tag, "PD") 0 Then * * * * * * * * * * 'SOMEHOW SET THE VALUE OF THE TEXTBOX HERE * * * * * * * * ElseIf InStr(1, oCont.Tag, "Proj") 0 Then * * * * * * * * * * 'SOMEHOW SET THE VALUE OF THE TEXTBOX HERE * * * * * * * * End If * * * * * * End If * * * * Next oCont * * Next oPage- Hide quoted text - - Show quoted text - Did you try oCont.Value = "your value here"? Matt Herbert |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to set value of Textbox in loop
Hi Matt, in a textbox, Value and Text are interchangeable.
wrote in message ... On Mar 19, 12:16 pm, JLGWhiz wrote: P.S. Your code either has to be in the UserForm code module, of you will have to have the form open as non-modal with code in another module for it to work. If you have it in another module, the Me object variable cannot be used. "James" wrote: Im trying to give a textbox in a userform an initial value. Its not straight forward because the name of the textbox is not always the same (dynamic userform). I've setup this loop but cant get oCont.Value to work. Does anyone know why? Any Help is much appreciated. Thanks in advance Dim oPage As Page, oCont As control For Each oPage In DataPlate.MultiPage1.Pages If oPage.Index = 3 Then Exit For For Each oCont In oPage.Controls If TypeName(oCont) = "TextBox" Then If InStr(1, oCont.Tag, "PD") 0 Then 'SOMEHOW SET THE VALUE OF THE TEXTBOX HERE ElseIf InStr(1, oCont.Tag, "Proj") 0 Then 'SOMEHOW SET THE VALUE OF THE TEXTBOX HERE End If End If Next oCont Next oPage- Hide quoted text - - Show quoted text - Did you try oCont.Value = "your value here"? Matt Herbert |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Collecting textbox input within a for loop | Excel Programming | |||
Loop Through textbox in Excel | Excel Programming | |||
loop through textbox in Excel | Excel Programming | |||
Using a DO loop to add values into a textbox | Excel Programming | |||
loop in a textbox | Excel Programming |