Filteren op meerdere Criteria

Status
Niet open voor verdere reacties.
W

WWillems

Gebruiker
Lid geworden
25 nov 2015
Berichten
11
Hoi,

Ik heb een lijst met verschillende werkplekken en artikelen die ik wil sorteren per werkplek [kolom C].
Ik kopieer de lijst naar alle tabbladen en ga daar per werkplek filteren op bepaalde criteria.
De codes heb ik per tabblad uitgewerkt en start als het klaar is met 1 macro.

VB1:
Voor werkplek 525 kopieer ik de lijst naar het juiste tabblad “525 Verpakken Delta” , en dan filter ik in kolom C op 525.
De uitkomst werkt prima.

Voor werkplek “555-410 Ass voor coaten” kopieer ik de lijst naar het juiste tabblad en dan filter ik in kolom C op 555. En vervolgens op in kolom P op 410
De uitkomst werkt prima.

Hier gaat het voor mij fout.
Er moeten 3 a 4 filters komen op 2 kolommen.

Voor 535-565 PreAss filter ik in kolom C op 535 & 565
Alleen nu is het zo dat ik nog 2 criteria meer heb, maar die staan op andere wekplekken.
Van 555 hoef ik alleen de regel hebben waar in kolom I de tekst “colum*” in staat.
Van 575 hoef ik alleen de regel hebben waar in kolom I de tekst “WM*” in staat.

Filteren op:
Afdeling: Kolom I

535
565
555 "Zuil*"
575 "wm*"


VB2:
Voor 555-585 Gecoat

Filteren op:
Afdeling: Kolom I Kolom J
555 < > GLV
< > (lege cel)
< > tube*
< > wm*
< > barf*

585 sw* < > GLV

Ik gebruik in dit bestand nu alleen Module4.
De andere moet ik nog aanpassen/weghalen.

Kan iemand mij helpen deze puzzel op te lossen?
 

Bijlagen

  • 2017 prio lijst 525-595 ZBACKLOG ASS.xlsm
    166,6 KB · Weergaven: 34
Wat is de bedoeling?

Haal ook alle onnodige selects uit de code
Code: 
Sub Filteren_525_Verpakken_Delta()
  Sheets("525 Verpakken Delta").Cells(1).currentregion.AutoFilter 3, "525"
End Sub
 
Hoi VenA,

Deze code is inderdaad duidelijker.
Sheets("525 Verpakken Delta").Cells(1).CurrentRegion.AutoFilter 3, "525"


Ik zal proberen mij verhaal wat duidelijker te maken:

Ik wil graag een filter leggen op 4 werkplekken, namelijk 535 & 565 & 555 & 575
Alleen wil ik graag van de werkplekken 555 & 575 alleen de regels zichtbaar die in kolom I de tekst "Colum*" en "wm" bevatten.

535 <-- Alle regels met 535 zichtbaar
565 <-- Alle regels met 565 zichtbaar
555 "Zuil*" <-- alleen de regels met deze tekst moeten zichtbaar zijn.
575 "wm*" <-- alleen de regels met deze tekst moeten zichtbaar zijn.

Ik hoop dat het zo iets duidelijker is?
 
Lijkt mij een klusje voor het geavanceerde filter.

Code: 
Sub VenA()
  With Sheets("535-565 PreAss")
    .Cells(1).CurrentRegion.AdvancedFilter xlFilterInPlace, .Range("K26:L30"), False
  End With
End Sub
 

Bijlagen

  • AdvancedFilter.xlsb
    20 KB · Weergaven: 37
Dat ziet er goed uit. Dank je wel :thumb:

Ik ga hier even mee knutselen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan