macro to insert dates from previous month

[Will17]

Dates will be the same each month, 5, 6, and 20. instead of manually entering the dates each month.. I wanted a macro to enter these dates. Ie, its now May, I need 4/6/2011, 4/5/2011, and 4/20/2011.. next month ill need 05/05/2011, etc. I think I can do the rest of the macro myself, just didn't have any luck searching for this.

Editing to add that these dates should just go in cells m1:m3.

 

[JuanPa]

Have a look at this:

[FONT=Courier New][SIZE=2][COLOR=Navy]Option Explicit[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=Navy]Private Sub [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2]UpdateDates()
    Range("M1").Value = DateSerial(Year(Now), Month(Now), 5)
    Range("M2").Value = DateSerial(Year(Now), Month(Now), 6)
    Range("M3").Value = DateSerial(Year(Now), Month(Now), 20)
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=Navy]End Sub[/COLOR][/SIZE][/FONT]

Regards,

JuanPa

 

[Will17]

Have a look at this:

[FONT=Courier New][SIZE=2][COLOR=Navy]Option Explicit[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2]
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=Navy]Private Sub [/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2]UpdateDates()
    Range("M1").Value = DateSerial(Year(Now), Month(Now), 5)
    Range("M2").Value = DateSerial(Year(Now), Month(Now), 6)
    Range("M3").Value = DateSerial(Year(Now), Month(Now), 20)
[/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=Navy]End Sub[/COLOR][/SIZE][/FONT]

Regards,

JuanPa

Cool thanks. I just added a -1 to month(now) and it works the way I want. Only concern is in January and the date I need is previous year.

Actually... just tested. It works then too.