OR functie werkt niet

[drafabart]

Hallo

Ik heb een programma gemaakt die een lijst gegevens controleert.
Al er in een regel bepaalde gegevens staan blijft de regel zichtbaar en als deze gegevens niet aanwezig zijn in de regel dan wordt die regel verborgen.
In de If functie heb ik nog een OR gestopt en die doet het niet. (Door de OR functie wordt er op 2 gegevens gezocht)
Kan er mij iemand helpen?
Hier is mijn code:

Sub ZAAGLIJST()

Dim Bew1 As String
Bew1 = "ZA"

Dim Bew2 As String
Bew2 = "DR"

Cells(13, 14).Select

Rij = 13
Kol = 14

Do

            If Cells(Rij, Kol).Value <> Bew1 Or Cells(Rij, Kol).Value <> Bew2 Then
            Kol = Kol + 1
                    If Cells(Rij, Kol).Value <> Bew1 Or Cells(Rij, Kol).Value <> Bew2 Then
                    Kol = Kol + 1
                        If Cells(Rij, Kol).Value <> Bew1 Or Cells(Rij, Kol).Value <> Bew2 Then
                        Rows(Rij).EntireRow.Hidden = True
                        Rij = Rij + 1
                        Kol = Kol - 2
                        Else
                        Rij = Rij + 1
                        Kol = Kol - 2
                        End If
                    Else
                    Rij = Rij + 1
                    Kol = Kol - 1
                    End If
            Else
            Rij = Rij + 1
            End If
    
Loop Until Cells(Rij, 1).Value = 0 And Cells(Rij, 2).Value = 0
    
End Sub

Kan er iemand zeggen wat eraan scheelt want ik raak er maar niet uit.

Alvast hartelijk dank

 

[WinteE]

Volgens mij moet je AND gebruiken ipv OR.

 

[jvsoest]

waarom komt
If Cells(Rij, Kol).Value <> Bew1 Or Cells(Rij, Kol).Value <> Bew2 Then
drie maal voor?

 

[Wigi]

Een Autofilter is vele keren sneller en beter dan lus(sen) door een bereik.

Zie voor code hier.

Wigi

 

[drafabart]

Dat dacht ik ook maar mijn programmatje controleert in drie cellen die naast elkaar staan of een bepaalde celinhoud aanwezig is. Is dit niet het geval dan wordt de hele rij verborgen.

In mijn voorbeeld laat ik alle rijen zichtbaar waarin "ZA" of "DR" voorkomt
Zie bestandje...

 

[kwms]

OR werkt wel

Je hebt staan dat als een cel <> "DR" of cel<>"ZA" dan ......
Aan die voorwaarde wordt natuurlijk altijd voldaan. De cel zal altijd in elk geval niet gelijk zijn aan beide. Je zult dus inderdaad wel AND bedoelen zoals iemand eerder opmerkte.

 

[drafabart]

Dank u voor de reacties:thumb: