VLookup vraag

[QuatroM]

Ik heb een bestand waar ik i.p.v een formule Vert.Zoeken in de cel een VBA code wil gebruiken.

Nu heb ik het getest in een bestand en daar werkt het, maar als ik het in mijn werkbestand wil invoeren gebeurt er niets.
HELP.

De code die in zowel mijn test bestand als in het werkbestand heb staan is de onderstaande.

Sub VertZoeken()
Dim Lastrowe As Long
Lastrowe = Blad1.Range("A" & Rows.Count).End(xlUp).Row
Set myrange = Blad1.Range("A:E")
For i = 10 To Lastrowe
Cells(i, 13) = Application.WorksheetFunction.VLookup(Cells(i, 7), myrange, 5, False)
Cells(i, 15) = Application.WorksheetFunction.VLookup(Cells(i, 7), myrange, 3, False)
Next i
End Sub

 

[HSV]

Lastrow van Blad1 telt maar 5.
for i = 10 to 5, en daarom gaat de code direct naar 'end sub'.

 

[QuatroM]

Hallo Harry,

Bedankt voor de info, maar ik ben echt een groentje met VBA.

Wat ik wil is dat in het tabblad projecten in kolom M de waarde komt te staan van blad1 kolom E en in kolom O de waarde van blad1 kolom C (uiteraard bij het juiste project)

Kan je mij aangeven hoe de code zou moeten zijn?

Alvast bedankt.

 

[HSV]

Hallo QuatroM,

Probeer het zo maar eens.
Ik kan het nog voor je in een array gooien, maar ik denk dat dit wel goed werkt voor een paar regeltjes in je bestand.

Sub match()
Dim cl As Range, rw As Long
Application.ScreenUpdating = False
With Sheets("projekten")
For Each cl In .Range("g10:g" & .Cells(Rows.Count, 7).End(xlUp).Row)
 rw = Application.match(cl, Sheets("blad1").Columns(1), 0)
   cl.Offset(, 6) = IIf(IsError(rw), "", Sheets("blad1").Cells(rw, 5))
   cl.Offset(, 8) = IIf(IsError(rw), "", Sheets("blad1").Cells(rw, 3))
 Next cl
 End With
End Sub

 

[QuatroM]

Top, werkt als een trein.

Wat is dit dan anders dan Vlookup?

Met Vlookup, zie ik de data 1 voor 1 verschijnen, met deze code staat het er direct.
Dit werkt sowieso sneller.

In ieder geval bedankt, ga nu proberen (voor mezelf) uit te vogelen hoe dit werkt.

 

[HSV]

Dit is de vergelijkingsmethode.
Het zet ook gelijk de waarden in kolom O als je het nog niet is opgevallen.

 

[QuatroM]

Dat had ik gezien, bedankt.

Ben weer ietsje wijzer geworden.
#nooit te oud om te leren.