Filter macro met Vlookupcriteria

[pwarrens]

Hi,

Wie kan mij helpen met de juiste macro code,

Ik moet elke dag een lijst vergelijken met elkaar, hiervoor gebruik ik VLookup.
Elke dag heb ik dus andere resultaten in Colom D.

Ik moet dan "0" en "NO" uitvinken om de juiste resultaten te zien. onderstaande macro zorgt juist dat deze worden aangevinkt..

ActiveSheet.Range("$C$2:$D$10117").AutoFilter Field:=2, Criteria1:=Array( _
        "0", "NO"), Operator:=xlFilterValues

Bij voorbaat dank voor de juiste macro code!

 

[Timshel]

Zonder voorbeeld kan ik het natuurlijk niet testen. Als het niet goed werkt, plaats dan alsnog een representatief voorbeeldbestand.

Sub tsh()
    Dim Rng As Range
    Dim Br
    Dim i As Long
    
    Set Rng = ActiveSheet("$C$2:$D$10117")
    Br = Rng
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(Br)
            If Br(i, 2) <> "O" And Br(i, 2) <> "NO" Then .Item(Br(i, 2)) = 0
        Next
        Rng.AutoFilter Field:=2, Criteria1:=.Keys, Operator:=xlFilterValues
    End With
End Sub

 

[pwarrens]

test bestand

Hierbij de desbetreffende excel file

 

[pwarrens]

Zie bovenstaande.

Alvast bedankt

Zonder voorbeeld kan ik het natuurlijk niet testen. Als het niet goed werkt, plaats dan alsnog een representatief voorbeeldbestand.

Sub tsh()
    Dim Rng As Range
    Dim Br
    Dim i As Long
    
    Set Rng = ActiveSheet("$C$2:$D$10117")
    Br = Rng
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(Br)
            If Br(i, 2) <> "O" And Br(i, 2) <> "NO" Then .Item(Br(i, 2)) = 0
        Next
        Rng.AutoFilter Field:=2, Criteria1:=.Keys, Operator:=xlFilterValues
    End With
End Sub

 

[HSV]

Zoiets kan ook.

Sub FilterDelivery()
'
' FilterDelivery Macro
' Filter Delivery on NO
'


ActiveSheet.Range("$C$2:$D$10117").AutoFilter 2, Filter([transpose(if(d2:d10117=0,"~",if(d2:d10117="NO","~",d2:d10117)))], "~", False), xlFilterValues
End Sub

 

[pwarrens]

Hi Harry, als ik deze in mijn VBA aan pas gebeurt er niks

Zoiets kan ook.

Sub FilterDelivery()
'
' FilterDelivery Macro
' Filter Delivery on NO
'


ActiveSheet.Range("$C$2:$D$10117").AutoFilter 2, Filter([transpose(if(d2:d10117=0,"~",if(d2:d10117="NO","~",d2:d10117)))], "~", False), xlFilterValues
End Sub

 

[HSV]

Vreemd, hier werkt bijna altijd alles.

Ps. gebruik even de andere knop ipv de citeerknop.

 

[pwarrens]

Klopt hij doet het via jou bestand wel.

Bedankt iig

Vreemd, hier werkt bijna altijd alles.

Ps. gebruik even de andere knop ipv de citeerknop.

 

[HSV]

Anders had ik het ook niet geplaatst.

 

[pwarrens]

Haha daar vertrouwde ik ook wel op

Anders had ik het ook niet geplaatst.