G
Guest
The Combo is in the Summary Worksheet,
and the other sheetsC,Time,Sheet3
should react when user clicks, clearly there is something
missing in my code, thanks in advance
Public Sub ComboBox1_Click()
Call filt
End Sub
Public Sub filt()
If Worksheets("Summary").ComboBox1.Value = "Qual" Then
Worksheets("DC").Range("Letters").ShowAllData
Worksheets("DC").Range("Letters").AutoFilter Field:=2, Criteria1:="Qual"
Range("a3").EntireRow.Hidden = True
Worksheets("Time").Range("A1:B50").Clear
Worksheets("Sheet3").Range("a1:b17").Copy
Destination:=Worksheets("Time").Range("a2")
Else
If Worksheets("Summary").ComboBox1.Value = "Quant" Then
Worksheets("DC").Range("Letters").ShowAllData
Worksheets("DC").Range("Letters").AutoFilter Field:=1, Criteria1:="Quant"
Range("a3").EntireRow.Hidden = True
Else
If Worksheets("Summary").ComboBox1.Value = "Both" Then
Worksheets("DC").Range("Letters").ShowAllData
Range("a3").EntireRow.Hidden = True
Worksheets("Time").Range("A1:B50").Clear
Worksheets("Sheet3").Range("a1:b31").Copy
Destination:=Worksheets("Time").Range("a2")
End If
End If
End If
End Sub
and the other sheetsC,Time,Sheet3
should react when user clicks, clearly there is something
missing in my code, thanks in advance
Public Sub ComboBox1_Click()
Call filt
End Sub
Public Sub filt()
If Worksheets("Summary").ComboBox1.Value = "Qual" Then
Worksheets("DC").Range("Letters").ShowAllData
Worksheets("DC").Range("Letters").AutoFilter Field:=2, Criteria1:="Qual"
Range("a3").EntireRow.Hidden = True
Worksheets("Time").Range("A1:B50").Clear
Worksheets("Sheet3").Range("a1:b17").Copy
Destination:=Worksheets("Time").Range("a2")
Else
If Worksheets("Summary").ComboBox1.Value = "Quant" Then
Worksheets("DC").Range("Letters").ShowAllData
Worksheets("DC").Range("Letters").AutoFilter Field:=1, Criteria1:="Quant"
Range("a3").EntireRow.Hidden = True
Else
If Worksheets("Summary").ComboBox1.Value = "Both" Then
Worksheets("DC").Range("Letters").ShowAllData
Range("a3").EntireRow.Hidden = True
Worksheets("Time").Range("A1:B50").Clear
Worksheets("Sheet3").Range("a1:b31").Copy
Destination:=Worksheets("Time").Range("a2")
End If
End If
End If
End Sub