I want to do two things:
1) rather than have the range end at AB605, have it go to the last cell in AB that contains data
2) Combine these three macros into one, conditional on the value that's in cell B2 (so if B2="A", run the first macro, if B2="B", run the second, if B2="C", run the third.
Sub AllOpps()
Range("A4:AB605").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Filters").Range("A1:B3"), Unique:=False
End Sub
Sub ActiveOpps()
Range("A4:AB605").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Filters").Range("A1:AB3"), Unique:=False
End Sub
Sub ClosedOpps()
Range("A4:AB605").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Filters").Range("A7:M9"), Unique:=False
End Sub
1) rather than have the range end at AB605, have it go to the last cell in AB that contains data
2) Combine these three macros into one, conditional on the value that's in cell B2 (so if B2="A", run the first macro, if B2="B", run the second, if B2="C", run the third.
Sub AllOpps()
Range("A4:AB605").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Filters").Range("A1:B3"), Unique:=False
End Sub
Sub ActiveOpps()
Range("A4:AB605").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Filters").Range("A1:AB3"), Unique:=False
End Sub
Sub ClosedOpps()
Range("A4:AB605").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Filters").Range("A7:M9"), Unique:=False
End Sub