Zoeken in Vba

[Jan1978]

Hallo helpers,

Ik ben al een poos bezig om een vba code te schrijven maar ik kom er niet uit.
Wat ik zou willen is in kolom a staat een ordernummer nu wil ik graag dat vba gaat kijken of deze ordernummer in kolom c voorkomt zonder de laatste 4 letters van het ordernummer.
Als dit het geval is in kolom b op de zelfde regel waar de ordernummer staat in kolom a een 0 zet als die hem niet gevonden heeft een 1.
En dan zo kolom a afgaan tot er geen ordernummer meer in staat.

 

[Cobbe]

Is dit goed genoeg?

 

[Jan1978]

Hallo Cobbe,

Het is het bijna hij kijk nu alleen naar kolom a en kolom c op de dezelfde rij maar in kolom c kan het ordernummer ook op een andere rij staan.
is dit ook mogelijk om daar naar te kijken.

Grt Jan

 

[Warme bakkertje]

Deze dan ?

Sub WB()
    sn = Range("A1:B" & Cells(Rows.Count, 1).End(xlUp).Row)
    sn2 = Range("C1:C" & Cells(Rows.Count, 3).End(xlUp).Row)
    For j = 1 To UBound(sn)
        For jj = 1 To UBound(sn2)
            If Left(sn(j, 1), 9) = Left(sn2(jj, 1), 9) Then
                sn(j, 2) = 1: Exit For
            Else
                sn(j, 2) = 0
            End If
        Next
    Next
    Cells(1).Resize(UBound(sn), 2) = sn
End Sub

 

[Jan1978]

Cobbe en warme bakkertje bedank voor jullie hulp ik kan nu weer verder.

grt Jan

 

[Cobbe]

Mijn code doet precies wat je vraagt : Checken of het nummer van kolom A voorkomt in Kolom C
Indien Ja zet dan 1 anders 0
Ik snap niet wat u doet besluiten dat mijn code enkel kijkt naar het nummer op dezelfde rij in kolom C?

 

[Jan1978]

Hallo Cobbe,

Jou code werk ook prima het was mijn fout ik zat naar een verkeerde ordernummer te kijken.
Bedank voor je hulp.

Grt Jan