VBA - Tabel met tabel vergelijken

[Roeland035]

Goedemorgen beste Forumleden,

Ik heb in kolom A een paar honderd artikelnummers staan en naast elk artikel staat wat informatie over de voorraad. Deze voorraad moet echter op 0 komen te staan indien het artikelnummer overeen komt met een artikelnummer uit een ander tabel.

Dit tabel heeft een range van N4:N11. (Deze range is variable en dus de row van kolom N kan groter of kleiner zijn)

Momenteel heb ik een begin formule weten te maken om in kolom A te zoeken naar één specifiek artikelnummer in plaats van in een tabel.

Sub Trendnaarnul()

Dim rng As Range

For Each rng In Range("A3:A233")

If rng.Value = "[COLOR="#FF0000"]G273496413[/COLOR]" Then
   rng.Offset(0, 2).Value = "0"
   rng.Offset(0, 3).Value = "0"
   Exit For
End If

Next
End Sub

Het rode is dus het artikelnummer waar hij nu naar zoekt, maar hij moet dus zoeken in een tabel van N4:N11 die een variabele range heeft.

Ik kom er helaas zelf niet verder uit.

Ik hoop dat jullie mij kunnen verlichten met een antwoord.

 

[Roeland035]

Zoals gewoonlijk was ik weer veel te snel met naar hulp zoeken...

Sub Trendnaarnul()

Dim rng As Range
Dim rng2 As Range
Dim lastrow As Long

lastrow = Sheets("Exporteer naar CSV").Columns("N").Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows, LookIn:=xlValues).Row

For Each rng In Range("A3:A233")
    For Each rng2 In Range("N4:N" & lastrow)
        If rng.Value = rng2.Value Then
            rng.Offset(0, 2).Value = "0"
            rng.Offset(0, 3).Value = "0"
        End If
    Next
Next
End Sub