View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
John Wilson John Wilson is offline
external usenet poster
 
Posts: 550
Default Help with Syntax UserForm TextBox

Hit a brick wall with this one and I'm sure it's possible (just not
for me at the moment).

Code is directly from the KB article for copying text between
textboxes using the character method. The problem is that my
"CopyFrom" textbox is on a UserForm and the "CopyTo" textbox
is on the Active sheet.

UserForm is named "Amendment"
The textbox on the UserForm is TextBox2
The TextBox on the Activesheet is TextBox22

Coding below:

Sub TextBox_To_TextBox()
Dim x As Integer
Dim txtBox1 As TextBox, txtBox2 As TextBox
Dim theText As String
Set txtBox1 = ActiveSheet.DrawingObjects(1)
' Above should reference UserForm "Amendment", "TextBox2"
Set txtBox2 = ActiveSheet.DrawingObjects(2)
' Above should reference Activesheet(Textbox22)
For x = 1 To txtBox1.Characters.Count Step 250
theText = txtBox1.Characters(start:=x, Length:=250).Text
txtBox2.Characters(start:=x, Length:=250).Text = theText
Next
End Sub

Any help with this would be certainly appreciated.

Thanks,
John