Shorten and tidy my code?

[rob179994]

How can i shorten this code? I think i can shorten the amount of If Else's to just one that does the same thing as what i have got but i dont know how to do this? Take a look.


Sub Filterofcolumn()
'
' Filterofcolumn Macro
'
Sheets("FolderSort").Select
ActiveSheet.Range("A1").Select

If Sheet1.ComboBox1.Value = "M6" Then
Sheets("FolderSort").Select
ActiveSheet.Range("$G$4:$G$368").AutoFilter Field:=1, Criteria1:=Sheet1.ComboBox1.Value
Sheets("FrontPage").Select

ElseIf Sheet1.ComboBox1.Value = "M55" Then
Sheets("FolderSort").Select
ActiveSheet.Range("$G$4:$G$368").AutoFilter Field:=1, Criteria1:=Sheet1.ComboBox1.Value
Sheets("FrontPage").Select

ElseIf Sheet1.ComboBox1.Value = "A66" Then
Sheets("FolderSort").Select
ActiveSheet.Range("$G$4:$G$368").AutoFilter Field:=1, Criteria1:=Sheet1.ComboBox1.Value
Sheets("FrontPage").Select

ElseIf Sheet1.ComboBox1.Value = "A595" Then
Sheets("FolderSort").Select
ActiveSheet.Range("$G$4:$G$368").AutoFilter Field:=1, Criteria1:=Sheet1.ComboBox1.Value
Sheets("FrontPage").Select

ElseIf Sheet1.ComboBox1.Value = "A595" Then
Sheets("FolderSort").Select
ActiveSheet.Range("$G$4:$G$368").AutoFilter Field:=1, Criteria1:=Sheet1.ComboBox1.Value
Sheets("FrontPage").Select

ElseIf Sheet1.ComboBox1.Value = "A590" Then
Sheets("FolderSort").Select
ActiveSheet.Range("$G$4:$G$368").AutoFilter Field:=1, Criteria1:=Sheet1.ComboBox1.Value
Sheets("FrontPage").Select

ElseIf Sheet1.ComboBox1.Value = "A585" Then
Sheets("FolderSort").Select
ActiveSheet.Range("$G$4:$G$368").AutoFilter Field:=1, Criteria1:=Sheet1.ComboBox1.Value
Sheets("FrontPage").Select

ElseIf Sheet1.ComboBox1.Value = "" Then
Sheets("FolderSort").AutoFilterMode = False

End If

End Sub


Thanks in advance!

 

[CROY1985]

Not sure, but if you flip round your if, so you remove the filter if blank,else use the filter:

I'm just on my hpone at moment so can't test, but something like:


Sub Filterofcolumn()
'
' Filterofcolumn Macro

If Sheet1.ComboBox1.Value = "" Then
Sheets("FolderSort").AutoFilterMode = False

else

Sheets("FolderSort").Select
ActiveSheet.Range("$G$4:$G$368").AutoFilter Field:=1, Criteria1:=Sheet1.ComboBox1.Value
Sheets("FrontPage").Select


End If

End Sub