filter met 1 criterium toepassen op 4 kolommen

[jackfish]

In een overzicht staat in de eerste kolom de namen van klanten (230 rijen). In de kolommen daarna informatie over die klant en ook de verschillende medewerkers die bij die klant betrokken zijn.
Ik wil met VBA de kolommen k, l, m, n filteren op de naam van een individuele medewerker zodat ik in een overzicht zie bij welke klanten die betreffende medewerker is betrokken.

Met onderstaande code filter ik een kolom op een naam van een medewerker; dat gaat goed. Maar het lukt mij maar niet om zo tegelijk te doen voor de vier kolommen. Wie kan mij op weg helpen?

Worksheets("Blad1").Range("K2").AutoFilter field:=11, Criteria1:="Jackfish", VisibleDropDown:=True

 

[HSV]

Vier van die rijen onder elkaar plaatsen in volgorde.

 

[jackfish]

Dank voor de reactie HSV. Wanneer ik meerdere van die rijen onder elkaar zet, wordt er niets geselecteerd. ik heb tal van variaties geprobeerd. be advised

Bekijk bijlage VBA - Excel 2007 - filteren met 1 criterium op 4 kolommen.zip

 

[HSV]

Helaas gaat dat niet op die manier die jij in gedachten hebt.
De rijen van "Jackfish" zijn al gefiltert met het eerste filter.
Je filtert daarna op de overgebleven filterrijen met de andere filters.

Ik dacht dat je het zo bedoelde.

Private Sub CMD_filter_Click()
   With Worksheets("Blad1").Range("A1").CurrentRegion
   On Error Resume Next
    ActiveSheet.ShowAllData
   On Error GoTo 0
        .AutoFilter 2, "jackfish"
        .AutoFilter 3, "sylvia"
  End With
End Sub

En dan mag 'Sylvia' verruilt worden voor 'Jackfish', maar indien in de tweede filterkolom geen 'jackfish' staat, zul je geen resultaat bekomen uit de criteria.

 

[snb]

Sub M_snb()
   Blad1.Cells(1).CurrentRegion.AdvancedFilter 2, Blad1.Cells(1, 7).CurrentRegion, Blad2.Cells(1)
End Sub

of

Sub M_snb()
   Blad1.Range("G1:K1") = Blad1.Range("A1:E1").Value
   Blad1.Range("H2,I3,J4,K5") = "JackFish"
   Blad1.Cells(1).CurrentRegion.AdvancedFilter 2, Blad1.Cells(1, 7).CurrentRegion, Blad2.Cells(1)
End Sub

 

[HSV]

Nooit aan gedacht.
Dat is vast wat Jackfish bedoelde.

Je kan nog gebruik maken om in hetzelfde bereik te blijven.

With Sheets("Blad1")
   .Range("G1:K1") = .Range("A1:E1").Value
   .Range("H2,I3,J4,K5") = "JackFish"
   .Cells(1).CurrentRegion.AdvancedFilter 1, Range("G1").CurrentRegion  ' 1 = xlFilterInPlace
 End With