I'm creating a combo box for the first time. I've got it set up in a form.
The values are on a separate worksheet range. The purpose is to have the
user choose a value from the combo box and then data on a worksheet is
filtered by that value. I've tried finding the information from other
discussions, but I'm not getting it. Can you help?

My code is:
Dim PrNo As String
PrNo = ProjectNumberComboBox
Sheets("Data").Select
Range("A1:AH16").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$AH$16").AutoFilter Field:=1, Criteria1:=PrNo
ProjectNoMenu.Hide

To get the data from the combobox use

userform1.Combox1.text

when you type the line into VBA you should see after the userform and then
period a box pop up showing you the items on the Userform. the combobox name
should be one of the items.

"Pam" wrote:

> I'm creating a combo box for the first time. I've got it set up in a form.
> The values are on a separate worksheet range. The purpose is to have the
> user choose a value from the combo box and then data on a worksheet is
> filtered by that value. I've tried finding the information from other
> discussions, but I'm not getting it. Can you help?
>
> My code is:
> Dim PrNo As String
> PrNo = ProjectNumberComboBox
> Sheets("Data").Select
> Range("A1:AH16").Select
> Selection.AutoFilter
> ActiveSheet.Range("$A$1:$AH$16").AutoFilter Field:=1, Criteria1:=PrNo
> ProjectNoMenu.Hide

Thank you. You all are life savers for the ignorant. =o)

"Joel" wrote:

> To get the data from the combobox use
>
> userform1.Combox1.text
>
> when you type the line into VBA you should see after the userform and then
> period a box pop up showing you the items on the Userform. the combobox name
> should be one of the items.
>
> "Pam" wrote:
>
> > I'm creating a combo box for the first time. I've got it set up in a form.
> > The values are on a separate worksheet range. The purpose is to have the
> > user choose a value from the combo box and then data on a worksheet is
> > filtered by that value. I've tried finding the information from other
> > discussions, but I'm not getting it. Can you help?
> >
> > My code is:
> > Dim PrNo As String
> > PrNo = ProjectNumberComboBox
> > Sheets("Data").Select
> > Range("A1:AH16").Select
> > Selection.AutoFilter
> > ActiveSheet.Range("$A$1:$AH$16").AutoFilter Field:=1, Criteria1:=PrNo
> > ProjectNoMenu.Hide