I would like to be able to filter a column by more than 2 requirements.
(ie column = x, column = y, column = z)
I would like to be able to filter a column by more than 2 requirements.
(ie column = x, column = y, column = z)
"The amount of stupid people in the world is God's way of punishing the smart people" - protean_being
[vba]
Sub Filter3Conditions()
Dim mpLastRow As Long
With ActiveSheet
mpLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Columns(2).Insert
.Range("B1").Value = .Range("A1").Value
.Range("B2").Value = "a"
.Range("B3").Value = "b"
.Range("B4").Value = "c"
.Range("A1").Resize(mpLastRow).AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=.Range("B1:B4"), Unique:=False
.Columns(2).Delete
End With
End Sub
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber