dubbele waarden vergelijken

[PieterHeymans]

Hallo

 

In bijlage heb ik een lijst met klanten gegevens.

aan deze klanten hebben wij verkocht op een beurs.

Dit is nu het tweede jaar.

uiteraard moeten wij ook factureren aan deze klanten.

ik wil nu nagaan welke klanten al in ons systeem zitten aan de hand van het BTW nummer.

In kolom J staat de BTW-nummers van de klanten. In kolom K staan de BTW nummers van de klanten van vorig jaar.

Bestaat er een oplossing om aan te duiden in kolom J welke BTW nummers al in kolom K staan?

Zo weten welke nieuwe klanten zijn en wij moeten aanmaken.

 

Alvast bedankt voor de hulp!

vergelijking BTW.xlsx

[JeanPaul28]

In cel L2, doortrekken naar beneden

Quote

=ALS(AANTAL.ALS($K$2:$K$1000;J2)=0;"New";" - ")

 

[emielDS]

Ik denk dat dit beter het gezochte benaderd.

vergelijking BTW (1).xlsm

[bakerman]

Op 28/5/2019 om 11:05, PieterHeymans zei:

Bestaat er een oplossing om aan te duiden in kolom J welke BTW nummers al in kolom K staan?

Sub tst()
    Set sht = Blad1
    sn = sht.Range("K2:K" & sht.Cells(sht.Rows.Count, 11).End(xlUp).Row)
    With CreateObject("scripting.dictionary")
        For i = 2 To UBound(sn)
            If sn(i, 1) <> vbNullString Then x0 = .Item(Trim(sn(i, 1)))
        Next
        y = .Count
        sht.Range("J2:J" & sht.Cells(sht.Rows.Count, 10).End(xlUp).Row).Interior.Color = xlNone
        For Each cl In sht.Range("J2:J" & sht.Cells(sht.Rows.Count, 10).End(xlUp).Row)
            If cl <> vbNullString Then cl.Interior.Color = IIf(.exists(Trim(cl.Value)), vbGreen, vbRed)
        Next
    End With
End Sub

De groene cellen zijn de bestaande nummers, de rode de nieuwe.

2 juni 2019 aangepast door bakerman