Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Rotate data by date
I have a rotating 2 wk roster with dates across 14 columns and names down 6
rows. I would like to have the dates auto change by 14 days at the end of the fortnight and at the same time move the names down a row with the bottom one going back up to the top. Possible? Grid |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Rotate data by date
Public Sub Test()
Dim i As Long Dim iLastRow As Long iLastRow = Cells(Rows.Count, "A").End(xlUp).Row Range("B1").Value = Range("O1").Value + 1 For i = 3 To 15 Cells(1, i).Value = Cells(1, i - 1).Value + 1 Next i Rows(iLastRow).Cut Range("A2").Insert Shift:=xlDown End Sub -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "Grid" wrote in message ... I have a rotating 2 wk roster with dates across 14 columns and names down 6 rows. I would like to have the dates auto change by 14 days at the end of the fortnight and at the same time move the names down a row with the bottom one going back up to the top. Possible? Grid |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Mileage Claim Formula | New Users to Excel | |||
Need to double-click for data to be recognised as date?! | Excel Discussion (Misc queries) | |||
Excel Macro to Copy & Paste | Excel Worksheet Functions | |||
Help PLEASE! Not sure what answer is: Match? Index? Other? | Excel Worksheet Functions | |||
Extracting data from the current date | Excel Worksheet Functions |