Add Date to Macro for automatic increment on invoices

**Unca Wook** · 09-21-2012, 12:14 PM

Good Morning. I have a macro I use on some of my billing which automatically increments to the next number for each bill, but I would like to reformat it to add the current date in yyyymmdd numeric format to the beginning. So the first bill for September 21st, 2012 would read 2012092101, and increment from there. Here is my current macro:

Please Login or Register  to view this content.

Any help would be greatly appreciated.

**JOHN H. DAVIS** · 09-21-2012, 02:57 PM

Does this help?

Change:

Range("BA19").Value = Range("BA19").Value + 1

To this:

Range("BA19").Value = Format(DateAdd("yyyy", 0, Date), "yyyymmdd") & Range("BA19").Value + 1