fill column with days based 2 combobox

Topic

New Reply

Have a userform with a cmobobox named Months and a combobox named Years
Combobox years is filled with a value: 2010,2011,…2020
Combobox months is filled with all months
I need when i select a month and a year automaticlly fille the column A of sheet with all day (format dd/mm/yyyy) based the selection year/month…
How to.

Reply | Quote

Replies

Something like:

Code:

	Dim lngDay As Long, lngEnd As Long
	lngEnd = Day(DateSerial(Me.Years, Me.Months + 1, 0))
	Range("A1:A31").ClearContents
	For lngDay = 1 To lngEnd
 	Cells(lngDay, "A").Value = DateSerial(Me.Years, Me.Months, lngDay)
	Next lngDay

Reply | Quote