Excel VBA to Set Combobox Date to initialize (default) to today's date

[BONCH]

I have a Combobox (Name: StartDate) containing a list of date values to select from.

The ListFillRange sources a list of dates including today's date (Now) with approximately 80 retrospective date values as well as a number of future dates.

When the user clicks on the StartDate combobox I would like the date value to default to "today's" date but still be able to select an alternative retrospective or prospective date from the available list.

See attached sheet for reference.

Can someone please assist with the appropriate VBA code?

Thanks

[dflak]

This is sort of quick and dirty. The cell that is linked to the combo box is H3. I3 has a match command to find on what row today's date is. This short bit of VB code can either be on a sheet activate event or attached to a button or both.

Please Login or Register  to view this content.

[BONCH]

Thanks dflak,

I've applied your code. It does default the pick list date to today's date, however, once defaulted to today's date, it does not allow for the selection of another date from the list of dates.

I would like the user to be able to either use the today's date or to change the date to any other date on the list.

Do you know of any other code that would once the today's date has been set for the user to subsequently choose other dates from the list?

Kind regards

[dflak]

Hmm, interesting. It's doing the same thing to me today. I did not have that issue when I tested it before posting it.

[dflak]

I see the problem, I had linked the SetToday macro to the combo box. I should not have done that.

This version has the SetToday macro linked to an open workbook event and a sheet activation event. You can remove either one of these or both and/or assign the macro to a button.