View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
[email protected] cfatz1@gmail.com is offline
external usenet poster
 
Posts: 36
Default Combo Box - Please Help!

I have posted this twice before and cannot get a response! Please help
me out. Thanks, Chris


Hi-


I have a combo box that is populated by a list in the same sheet. The
combo box contains 4 different categories of data that when clicked
will autofilter the sheet named "excel" based on which category was
selected in the combo box.


Here is the code have:


Private Sub ComboBox1_Change()


Sheets("excel").Select
Selection.AutoFilter Field:=8, Criteria1:="=0"
Selection.AutoFilter Field:=10, Criteria1:="=1"


What I want to add to this code is an If Statement that will change the

sort based on what is selected in the combo. So say the combo has 4
entries: 1,2,3,4. Let's say the user selects 3 this time and then
comes back and selects 4. Here is what I would like to do:


Private Sub ComboBox1_Change()


If (Value selected in Combo box) Is 3 Then
Sheets("excel").Select
Selection.AutoFilter Field:=8, Criteria1:="=0"
Selection.AutoFilter Field:=10, Criteria1:="=1"


End If


If (Value selected in Combo box) Is 4 Then
Sheets("excel").Select
Selection.AutoFilter Field:=8, Criteria1:="=0"
Selection.AutoFilter Field:=10, Criteria1:="=1"


End If


I may be better served with a Select Case....but either way I do not
know how to code. Can you offer your suggestion on a if vs. a select
and how to code each one?


HUGE thanks in advance for your time and help!


-Chris