Excel Macro to generate all the Monday of a month

**vislavti** · 07-04-2012, 02:18 PM

Could you please help me with writing a macro which would generate all the monday's of a month?

Input: Current month For example July 2012
Output: 7/2/2012 7/9/2012 7/16/2012 7/23/2012 7/30/2012

**Steffen Thomsen** · 07-04-2012, 02:43 PM

Try this function

Please Login or Register  to view this content.

This is how you call it

Please Login or Register  to view this content.

**adityan2985** · 09-14-2012, 04:49 AM

The above function generates Tuesdays. The first Tuesday of the wwk is never seen correctly and only from second Tuesday is seen correctly. I made a change and that could get Mondays. Still after a lot of permutations and combinations, the first Monday could not be generated.

**adityan2985** · 09-14-2012, 05:20 AM

Also in the macro Steffen, you can input variables through Excel so that you can have year and month of your choice. It is as follows:

Sub steffen()

Dim mondays

Dim cYear As Long
Dim cMonth As Long
cYear = Application.InputBox(cYear, Type:=1)
cMonth = Application.InputBox(cMonth, Type:=1)

mondays = get_all_mondays(cYear, cMonth)

For i = 1 To UBound(mondays)
Selection.Value = mondays(i)
Selection.Offset(0, 1).Select

Next i

End Sub