Loop through ws using userform

[Alpacino]

I have a userform to input data into the same row in each worksheet for each sheet.
I have 26 worksheets in my workbook us there a way of looping through this line of code??

Each textbox from 2 is associated with a worksheet. Eg. Sheet2 = Me.TextBox2

x = Me.TextBox + 7 'this is week no me.textbox1
For i = 2 to 27
Sheet(i).Cells(x ,4).value = Me.TextBox(i)
Next i

This does not work. Any help please.

 

[Tom Urtis]

What exactly does this mean, especially "no"?
x = Me.TextBox + 7 'this is week no me.textbox1

And if all rows are the same on every sheet, why are you bothering with a variable for x. If it's row 38 then why not just say
Cells(38, 4) instead of Cells(x, 4) or simpler, Range("D38").

And why do you say "the same row" if it looks like it is the same cell based on that part of your code.

 

[John_w]

Try:

For i = 2 To 27
    Sheet(i - 1).Cells(x, 4).Value = Me.Controls("TextBox" & i).Text
Next i

 

[Alpacino]

Hi Tom,

I have put x because the row will change a long with the week number (wk no)
e.g.
x = Me.TextBox1 + 7
if x is Wk 1 then it will be row 8 to put data into.