R
rgarber50
I would like to create a macro that:
creates a textbox
fills the textbox with the text in "A1".
Allows the user to add or edit text in the textbox
Then when exiting the textbox:
copy the text from the textbox back to "A1"
the following macro seems to work ok - except for one problem - i
there is a lot of text in "A1" it won't copy it all into the textbox.
Private Sub UserForm_Initialize()
Dim testtext
WksText = Range("A1").Text
TextBox1.Text = WksText
TextBox1.AutoSize = False
TextBox1.WordWrap = True
TextBox1.ScrollBars = 2
TextBox1.MultiLine = True
End Sub
Private Sub UserForm_Terminate()
Range("A1") = TextBox1.Text
End Sub
Anybody have any ideas. I don't want to use a scrolling textbox in th
wks because some of us use macs and the control toolbox is no
supported on the mac. Alternatively if anyone has a way of putting
scrolling textbox on the wks without using the control toolbox - o
windows ole that would be great.
Thanks
Richar
creates a textbox
fills the textbox with the text in "A1".
Allows the user to add or edit text in the textbox
Then when exiting the textbox:
copy the text from the textbox back to "A1"
the following macro seems to work ok - except for one problem - i
there is a lot of text in "A1" it won't copy it all into the textbox.
Private Sub UserForm_Initialize()
Dim testtext
WksText = Range("A1").Text
TextBox1.Text = WksText
TextBox1.AutoSize = False
TextBox1.WordWrap = True
TextBox1.ScrollBars = 2
TextBox1.MultiLine = True
End Sub
Private Sub UserForm_Terminate()
Range("A1") = TextBox1.Text
End Sub
Anybody have any ideas. I don't want to use a scrolling textbox in th
wks because some of us use macs and the control toolbox is no
supported on the mac. Alternatively if anyone has a way of putting
scrolling textbox on the wks without using the control toolbox - o
windows ole that would be great.
Thanks
Richar