autofill across sheets?

[merlin777]

I know that I can cut and paste into multiple sheets by selecting them all but is there a way to autofill across sheets so, for instance sheet 1 has monday in A1 and sheet 2 will have tuesday etc?

Are there any other little-known sneaky tricks to working with multiple sheets?

 

[My Aswer Is This]

Try this:

Sub Autofill()
Dim Days(1 To 7) As String
Dim i
Dim a
 'This can be changed if you want Sunday to be 1 instead of 7
 Days(1) = "Monday"
 Days(2) = "Tuesday"
 Days(3) = "Wednesday"
 Days(4) = "Thursday"
 Days(5) = "Friday"
 Days(6) = "Saturday"
 Days(7) = "Sunday"
'Will do as many times as you have sheets
a = Sheets.Count
For i = 1 To a
'This assumes your sheets are always named Sheet1 Sheet2 etc.
Worksheets("Sheet" & i).Cells(1, 1).Value = Days(i)
Next i
End Sub

 

[mrmmickle1]

Use something like this:

[COLOR=#0000ff]Sub [/COLOR]Test()
[COLOR=#0000ff]For Each [/COLOR]ws [COLOR=#0000ff]In[/COLOR] Worksheets
    i = i + 1  [COLOR=#008000]'Note 1 is Sunday, 2 is Monday, etc....[/COLOR]
    ws.Activate
            Range("A1") = WeekdayName(i)
[COLOR=#0000ff]    Next[/COLOR] ws
[COLOR=#0000ff]End Sub[/COLOR]

To Start On Monday Just Set i = 1 Then use i = i + 1