Textbox from 1st worksheet to textbox to other multiple sheets

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

LRay67 - 17 Mar 2008 19:21 GMT

I am trying to copy a textbox to another textbox in multiple sheets within
the workbook. Below is what I use to copy to one additional worksheet, but
not multiple worksheets after the 2nd. Can anyone help? Thanks

Worksheets(2).Range("A1") = Worksheets(1).TextBox1.Value

Linda

Reply to this Message

JLGWhiz - 17 Mar 2008 21:21 GMT

Do you want to copy to Range("A1") of each sheet or to TextBox1 of each sheet?

If to Range("A1"):

Sub cpyToRngA1()
For i = 2 To Sheets.Count
Worksheets(i).Range("A1") = Worksheets(1).TextBoxl1.Value
Next
End Sub

If to TB1 on each sheet:

Sub cpyToTB1()
For i = 2 To Sheets.Count
Worksheets(i).TextBox1.Value = Worksheets(1).TextBox1.Value
Next
End Sub

> I am trying to copy a textbox to another textbox in multiple sheets within
> the workbook. Below is what I use to copy to one additional worksheet, but
[quoted text clipped - 3 lines]
>
> Linda

Reply to this Message

LRay67 - 18 Mar 2008 15:20 GMT

JLG, thanks for the input

The second scenario is what I am trying to do.....When copying the the code
it highlights, on the Worksheets(i).TextBox32.Value =
Worksheets(1).TextBox32.Value part.....

This is the code I am using with your help (which is deeply appreciated)

Sub TextBox32_LostFocus()
For i = 2 To Sheets.Count
Worksheets(i).TextBox32.Value = Worksheets(1).TextBox32.Value
Next
End Sub

Can you assist once more. Thanks

Linda

> Do you want to copy to Range("A1") of each sheet or to TextBox1 of each sheet?
>
[quoted text clipped - 21 lines]
> >
> > Linda

Reply to this Message