Specifieke vraag mbt gelijke waarden vinden en gelijk stellen.

[SpenkyHenk]

Beste mensen,
Ik heb een vraagje,

Het gaat over dit excel (.CSV) bestand: http://www.mijnbestand.nl/Bestand-N3H6WJBDKI3D.csv
Ik kan dit niet als bijlage toevoegen omdat .csv niet mag..

Ik zal proberen mijn vraag zo helder mogelijk uit te leggen:

Ik wil dat de eerste 3 kolommen (ID/variant/article_code) blijven STAAN.
Kolom E en F moeten SAMEN veranderen.

Nu wil ik graag dat de 2e artikel codes achter de 1e article_codes komen te staan (en dan de GELIJKE codes achter elkaar) met daarbij de voorraden.

Is dat mogelijk??

Dus van ID | Default | 11665 | | 26403 | niet op voorraad
NAAR ID | Default | 11665 | | 11665 | op voorraad

Alvast bedankt,
Mvg,
David Gelderblom

 

[Cobbe]

Is dit het resultaat wat je voor ogen hebt?

 

[SpenkyHenk]

Aah, je bent geweldig!

Superbedankt!, dit was exact wat ik bedoelde.

 

[Warme bakkertje]

Sub tst()
Dim sn3
ReDim sn3(2, 1)
sn1 = Cells(1).CurrentRegion
sn2 = Cells(1, 11).CurrentRegion
For i = 2 To UBound(sn1)
    sn3(0, UBound(sn3, 2)) = sn1(i, 3)
    For ii = 2 To UBound(sn2)
        If sn1(i, 3) = sn2(ii, 1) Then sn3(1, UBound(sn3, 2)) = sn2(ii, 2): Exit For
    Next
    ReDim Preserve sn3(2, UBound(sn3, 2) + 1)
Next
Cells(1, 4).Resize(UBound(sn3, 2), 2) = WorksheetFunction.Transpose(sn3)
End Sub