Open file and go directly to TODAY()

**QueDices** · 10-03-2010, 06:57 AM

Hello everyone,

I am an initiate to VBA in excel, and I am lost in trying to find a solution to my problem. Here is what I want to do:

The spreadsheet I'm working on has on its second row a calendar of sorts, i.e., in the cell B1 it displays "01-Sep", in the cell B2 "02-Sep" and so forth, all the way through different months.

I need to find a VBA code that, upon opening the spreadsheet, goes directly to the present date (using the TODAY() function somehow?), so that people don't have to scroll all the way to the present date every time they open the file.

I realise that this may not be that hard to do, but, being the initiate that I am, I could not fashion any decent solution to this problem.

**Palmetto** · 10-03-2010, 08:14 AM

Try this bit of code. It must go into the workbook module and used the workbook open event to go to the cell. It is currently set to search on sheet1.

Note: Sheet1 is the sheet code name - - not the worksheet name (as shown in the tab). Adjust this sheet if needed.

Please Login or Register  to view this content.

**QueDices** · 10-03-2010, 11:09 AM

Thank you Palmetto,

Unfortunately I posted my message in a hurry and didn't think correctly about what I was typing.

Here is the real layout of the calendar: in B2 there's the first date (01-Sep), and the dates carry on through the row (so C2, D2, E2, etc., and not B1, B2, etc. as I originally said).

Obviously the code you posted didn't find the correct date ("Date Not Found"), because it was looking in the wrong place (due to my mistake). I tried changing your code to fit the actual layout, but was unsuccessful.

As a curiosity, here's what I did: (basically swapped "Rows" with "Columns" and vice-versa, which [predictably] didn't work)

Please Login or Register  to view this content.

I'm sorry for the mix-up.

**Palmetto** · 10-03-2010, 11:32 AM

code revised in previous post per your clarification.

**QueDices** · 10-03-2010, 12:04 PM

Unfortunately it did not work. I tinkered around a bit with the code, but couldn't make it work either (it always says "Date not found").

I attached an .xlsm file with the simplified version of the calendar, maybe it will be helpful.

Thanks for the attention so far.

**cmyers** · 10-03-2010, 06:55 PM

It wouldn't find properly because the cells were not formatted to match the value of "date" in VB. Attached is a fixed copy. Hope this helps!

**QueDices** · 10-04-2010, 05:03 AM

Okay, that's embarrassing. I thought Excel searched for the absolute value of the date, and didn't care about the formatting.

Anyways, problem solved! Thank you both for your help.