insert new row every day.

[kardifflad]

Hello and thank you all in advance.

Is there a way to insert a new column into a spreadsheet every day an
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 an
my date for each day in columns 3, 4, 5 and so on. What i want it to d
is every day when i open it, it moves all the data down one row an
start a new row at line 3 for that days data.
Is there a nifty bit of code that could do this please

 

[Auric__]

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.

 

[kardifflad]

thankyou. thats works perfectl