Filter op basis van celbereik

[Ralf1991]

Beste helper,

Ik ben op zoek naar een stukje vba code die het volgende doet:

Ik heb gegevens staan in de kolommen A tm J.
In kolom J wil ik waardes eruit filteren. De waardes die staan in het bereik P1 tm P23 wil ik niet zien in kolom J.

Hartstikke bedankt.

 

[Peenvogel]

Iemand heeft als onderschrift: een voorbeeldbestand zegt meer dan 1000 woorden.
Ik denk dat je dit ter harte moet nemen.
Groetjes, Ron.

 

[Ralf1991]

Bekijk bijlage Book1.xlsx

 

[abevleeming]

Wil je de waarden in kolom J die overeenkomen met waarden in kolom P juist wel of juist niet zichtbaar hebben?

 

[Ralf1991]

Ik wil graag dat de waardes in kolom P niet zichtbaar zijn in kolom J.

m.a.w. Ik filter de waardes in kolom P uit kolom J.

 

[Timshel]

Misschien zo:

Sub tsh()
    Dim i As Long
    Dim Br, BrF
    
    Br = Range("P1").CurrentRegion
    BrF = Cells(2, 10).Resize(Cells(Rows.Count, 10).End(xlUp).Row - 1)
    With CreateObject("Scripting.Dictionary")
        For i = [COLOR="#FF0000"]1[/COLOR] To UBound(BrF)
            If IsError(Application.Match(BrF(i, 1), Br, 0)) Then .Item(CStr(BrF(i, 1))) = 0
        Next
        Cells(1).CurrentRegion.AutoFilter field:=10, Criteria1:=.Keys, Operator:=xlFilterValues
    End With
End Sub

 

[Ralf1991]

Timshel,

Bedankt voor je reactie.

Ik heb je code getest in het voorbeeldbestand. Het werkt goed, alleen wordt ook de waarde 10 eruit gefilterd. Dit is echt niet de bedoeling om de waarde 10 niet in kolom P voorkomt.

 

[Timshel]

Foutje, bedankt.
Ik heb de code aangepast in post #6. (2=1)

 

[Ralf1991]

Hoi Timshel,

Bedankt! Het werkt!