Changing the cell a workbook opens to (How to)

[tholamew]

I have a worksheet that I use to keep track of personal progress. Every column represents a new date in my personal progress. Every time that I open my file I would like 2 things to happen:

First, I want the spreadsheet to add new columns with dates for every day that has passed since last opening the file to the end of the dates already listed. (If it's been one day since last opening the file, it would only add one column with date......If 20 days have passed, I'd like it to add 20 columns with corresponding dates)

Second, as this list of dates may become large over time, I'd like to have the spreadsheet consistently open close to the current date. So, if we're consistently adding one new column for every day, the cell that the spreadsheet opens to should move over on a daily basis as well.

Big request. I'll be impressed if anyone can help out.

 

[Tazguy37]

Perhaps you'd prefer to insert rows? You only have 256 columns to work with.

 

[tactps]

I agree with Taz, but how about something lke this (can be adjusted easily to rows):
Press Alt-F11
In the left pane, double-click on "ThisWorkbook"
In the right pane, paste this in:
Private Sub Workbook_Open()
Range("A1").End(xlToRight).Select
Do Until Format(ActiveCell.Value, "dd/mm") >= Format(Now(), "dd/mm")
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ActiveCell.Offset(0, -1).Value + 1
Loop
End Sub

Is that what you are after?

 

[tactps]

Also, being American, you probably want to change my date syntax from "dd/mm" to "mm/dd".