Link Text Boxes (As can do in Word)
Try something like.
Option Explicit
Private Const TextMaxLength As Long = 10 ' Change to Suit
Private Sub TextBox1_Change()
If Len(TextBox1.Value) = TextMaxLength Then
TextBox2.Activate
End If
End Sub
'This is pretty basic
'Every time a character is added
'The code counts the total
'if it equals then specified max
'Then it moves to the next textbox
"Joyce" wrote:
Hi,
I have text box controls (inserted from the Control Toolbox) in my worksheet
and am wondering if there is any way to program them so that text flows from
one into another when the text is longer than the text box.
I know this is easy with Word, and that there isn't an option in Excel, but
was wondering if this is something that could be programmed.
Thanks for any advice.
|