Months and Dates

A

adn4n

Hi, im looking to enter the Months of the year into a combo box, whic
is what i have done .....but can any one please help me on how to ge
the dates according to that month to show up underneath, so that i ca
have a timesheet according to the relevant month.. e.g Jan, 31 days, i
list of dates... etc etc Thankyou
 
B

Bob Phillips

Here's some code

Private Sub ComboBox1_Change()
Dim i As Long
Dim dteCombo As Date

Range("A1:A31").ClearContents
For i = 1 To 31
dteCombo = DateSerial(Year(Date), ComboBox1.ListIndex + 1, i)
If Month(dteCombo) = ComboBox1.ListIndex + 1 Then
Cells(i, "A").Value = dteCombo
Else
Exit For
End If
Next i
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Top