Dates of working days in a month

[karthick.in]

Is there anyway that I can populate the list of dates (only working days) in a month?

For example:
Cell A1 has the drop down list of all the months (Jan to Dec)
Cell A2 has the drop down of year (2011, 2012, 2013, ...)

If I select "Dec" in A1 and "2011" in A2, then column A3 should have the date of first working day in the month, B3 should have the date of next working day in the month, C3 should have the date next to it, etc...

In this case A3 = 01/12/2011; B3 = 02/12/2011; C3 = 05/12/2011 .... V3 = 30/12/2011

This should work for whatever month and year I select in A1 and A2.

The solution to do this would be much appreciated. Thanks!

 

[trunten]

-

 

[trunten]

Assign this macro to a button and away you go

Sub a()
    sd = DateValue("01 " & [A1] & " " & [A2])
    cd = sd
    i = 1
    While Month(cd) = Month(sd)
        If Weekday(cd, vbMonday) < 6 Then
            Cells(3, i) = cd
            i = i + 1
        End If
        cd = cd + 1
    Wend
End Sub

 

[GopherUK]

Excel Workbook
	A	B	C	D	E	F	G
1	Dec	2011
2	01/12/2011	02/12/2011	05/12/2011	06/12/2011	07/12/2011	08/12/2011	09/12/2011
Sheet1

 

[GopherUK]

The formula is B2 is just to be dragged across columns (i.e. there are only teo unique formulas in the post - A2 and B2).

 

[karthick.in]

Assign this macro to a button and away you go

Sub a()
    sd = DateValue("01 " & [A1] & " " & [A2])
    cd = sd
    i = 1
    While Month(cd) = Month(sd)
        If Weekday(cd, vbMonday) < 6 Then
            Cells(3, i) = cd
            i = i + 1
        End If
        cd = cd + 1
    Wend
End Sub

Many Thanks!