User Form - search database

[jstn]

Hope this makes sense, I have a database already in place that contains personal information for a variety of individuals. I'm trying to allow an option to search the database for birthdays. I have a simple user form set up, with a drop down box to select the month of the year, on cmdclick, I want it to search the database for anyone with a birthday in the month and produce a list. Not sure if it's a big deal, but the drop down box is text entry (i.e. January etc...) but the database is numerical entry (i.e. 1/1/1980)

[stnkynts]

Not sure if it's a big deal, but the drop down box is text entry (i.e. January etc...) but the database is numerical entry (i.e. 1/1/1980)

Huge deal. A sample workbook showing your formats and column/row locations would have been more helpful. I am going to assume on a lot of things. If it doesn't work it is because one of my many assumptions/guesses was wrong. Best of luck.

Private Sub SearchButton1_Click()
Dim ws As Worksheet:    Set ws = Sheets("Sheet1")
Dim rDates As Range, rCell As Range
Dim str As String
Dim iMonth As Integer

Set rDates = ws.Range("A2:A" & ws.Range("A" & Rows.Count).End(xlUp).Row)

Select Case ComboBox1.Value
    Case Is = "January"
        iMonth = 1
    Case Is = "February"
        iMonth = 2
    Case Is = "March"
        iMonth = 3
    Case Is = "April"
        iMonth = 4
    'etc
    'etc
    'etc
End Select

For Each rCell In rDates
    If Len(rCell) <> 0 And Month(rCell.Value) = iMonth Then
        If str = "" Then
            str = rCell.Offset(0, 1) 'names in column B
        Else
            str = str & Chr(10) & rCell.Offset(0, 1)
        End If
    End If
Next rCell

MsgBox str
str = ""

End Sub

[jstn]

Sorry for the delay, I've attached a sample file. The goal is to select the birthday report, pick a month from the drop down and have it run a report showing employees with birhdays in that month.

[jstn]

With some small modifications to account for my lack of a sample workbook, stnkynts' suggestion did the trick as far as getting the corresponding names to appear in a message box. Thank you!

I'm trying to adjust that message box to allow the user to export the list to another workbook if required, but I can't seem to get it quite right. Below is the sample code:

[jstn]

UPDATE

Finally figured out how to get it to respond to the selection, I hadn't properly declared the response, new problem seems to be one after the other....

It's exported the entire contents of the string into a single cell; how to break it back up to list properly?