I am programmatically trying extract text from a known textbox.

Using Textboxes from the Control Toolbox, I know that this works:

ActiveSheet.EditBox.Text = ActiveSheet.TextBox1.Text

I have tried a number of variations of the following without success:

Sub TestLoad()
Dim F1 As TextBox
Set F1.Name = "TextBox" & "2"
ActiveSheet.EditBox.Text = ActiveSheet.F1.Text
End Sub

How can I programmatically 'build' the textbox name so that I can refer
to it ?

Any help appreciated.

Andrew B

You have to set F1 to the complete textbox not to a part of it


Code:
--------------------
Sub TestLoad()
Dim F1 As TextBox
Set F1= TextBox2
ActiveSheet.EditBox.Text = ActiveSheet.F1.Text
End Sub
--------------------


but you want to select wich textbox to select on the run so you need to
use a control. I'm assuming you are placing this code in a form...


Code:
--------------------
Sub TestLoad()
Dim Ct as Control
Dim F1 As TextBox

for each Ct in Me.Controls
if Ct.name = "Textbox" & YourNumber then
Set F1= Ct
exit for
end if
next
ActiveSheet.EditBox.Text = ActiveSheet.F1.Text
End Sub
--------------------


--
Dnereb
------------------------------------------------------------------------
Dnereb's Profile: http://www.excelforum.com/member.php...o&userid=26182
View this thread: http://www.excelforum.com/showthread...hreadid=398086

Hi
I can't seem to get things working yet. I am not running this code from
a form, just from a normal module.
Any other suggestions ?
Thanks
Andrew B

Dnereb wrote:
You have to set F1 to the complete textbox not to a part of it


Code:
--------------------
Sub TestLoad()
Dim F1 As TextBox
Set F1= TextBox2
ActiveSheet.EditBox.Text = ActiveSheet.F1.Text
End Sub
--------------------


but you want to select wich textbox to select on the run so you need to
use a control. I'm assuming you are placing this code in a form...


Code:
--------------------
Sub TestLoad()
Dim Ct as Control
Dim F1 As TextBox

for each Ct in Me.Controls
if Ct.name = "Textbox" & YourNumber then
Set F1= Ct
exit for
end if
next
ActiveSheet.EditBox.Text = ActiveSheet.F1.Text
End Sub
--------------------