Zoekfunctie met waarden in kolommen

Status
Niet open voor verdere reacties.
G

gst

Gebruiker
Lid geworden
5 jan 2010
Berichten
121
Besturingssysteem
64-bits besturingssysteem, x64-processor
Office versie
Microsoft Office LTSC Professional Plus 2021
Geacht forum,

Ik ben opzoek naar een zoekfunctie in vba die het volgende voor mij doet

Kolom A Kolom B Kolom C Kolom D
Artikel_1 Nota_1 Artikel_2 Nota_2
100030338 250075451 F12366000101
100030339 250075634 F01241010801
210002429 250075632 F01241010704


Wanneer de waarde van kolom Artikel_2 overeenkomt met een waarde uit kolom Artikel_1,
moet de waarde naast de waarde van kolom Artikel_2 (dus uit kolom Nota_2) naast de gevonden waarde van kolom Artikel_1 komen (dus in kolom Nota_1)

Deze afvraging geldt net zolang totdat alle waarden van kolom Artikel_2 doorlopen zijn.
Iets geprobeerd met twee Do Loop in elkaar maar dit lukt me nog steeds niet en ik denk dat dat voor reeks aan artikelen erg lang duurt
Zie verder bijgevoegde bijlage

Heeft iemand een suggestie voor mij voor een zoekfunctie om mij op weg te helpen??

Bvd. gst
 

Bijlagen

  • Zoektest.xlsm
    11,5 KB · Weergaven: 32
zoiets?
Code: 
Sub SjonR()

SR = Cells(1).CurrentRegion

    For i = 2 To UBound(SR)
        For ii = 2 To UBound(SR)
            If SR(ii, 1) = SR(i, 3) Then SR(ii, 2) = SR(i, 4)
        Next
    Next
Cells(1).CurrentRegion = SR
            
End Sub
 
Hallo SjonR,

Dit is precies wat ik zocht.
Deze methode kan ik uitstekend gebruiken voor mijn toepassing.
Hartelijk dank!

gst
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan