Textbox from 1st worksheet to textbox to other multiple sheets
 

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

Textbox from 1st worksheet to textbox to other multiple sheets
 

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


"LRay67" wrote:

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

Textbox from 1st worksheet to textbox to other multiple sheets
 

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

"JLGWhiz" wrote:

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


"LRay67" wrote:

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