combobox populated with dates

[austin350s10]

Is there a way to populate a userform combobox with the dates within a month or a date range?

Example1: user wants a list of all the dates in the month of February 2012. Combobox would be filled with the date range 2/1/12 - 2/29/12, one list item for each day.

Example2: user wants a list of all the dates within the range 2/1/12 - 3/31/12. Combobox would be filled with the date range 2/1/12 - 3/31/12, one list item for each day.

If anyone knows of a way to do something like one of the examples above I would love to know how. A way to do example1 would be great, but my project would work better with example2.

 

[RonB1111]

If user enters their date range with beginning date in B1 and ending date in B2, enter these formulas:
In C1: =B1
In C2 and copy down: =IF(C1="","",IF(C1+1>B$2,"",C1+1))
The input range of the format control of the combo box would be C1 thru as far as you want to allow in the combo box.

 

[ChrisOswald]

Assuming that on your userform you have 2 text boxes for date range begin/end (called TextBox1 and TextBox2), a command button (called CommandButton1) and the combobox called Combobox1, this commandbutton_click event should work. I'd advise more meaningful control names, though.

Private Sub CommandButton1_Click()
    Dim d                               As Date
    If IsDate(Me.TextBox1.Value) And IsDate(Me.TextBox2.Value) Then
        'break comparison to two if statements so we don't have to
        'worry about non-date values throwing an error on a > comparison
        If Me.TextBox2.Value > Me.TextBox1.Value Then
            ComboBox1.Clear
            For d = Me.TextBox1.Value To Me.TextBox2.Value
                ComboBox1.AddItem d
            Next d
            ComboBox1.ListIndex = 0
        Else
            MsgBox ("end date must be after begin date")
        End If
    Else
        MsgBox ("Please enter valid dates")
    End If
End Sub

 

[austin350s10]

so simple....your my hero!!...lol