insert new row every day.
kardifflad wrote:
Is there a way to insert a new column into a spreadsheet every day and
enter the new date in the first column, then move the rest down?
So for instance i have my heading in rows 1 and 2. then freeze panes and
my date for each day in columns 3, 4, 5 and so on. What i want it to do
is every day when i open it, it moves all the data down one row and
start a new row at line 3 for that days data.
Is there a nifty bit of code that could do this please?
You could do something like this:
Sub addTodayRow()
If Cells(3, 1).Value < Date Then
Rows("3:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(3, 1).Value = Date
End If
End Sub
Change "1" in "Cells(3, 1)" to point at the column containing the dates.
Alternately, you could put that in the workbook's Workbook_Open event so it
happens every time the workbook is opened.
--
Well, **** YOU MR. BEAR!!! You speak lies!!! LIIIIES!!!
|