invullen laatste datum met tellerstand

[1965Peter]

Ik ben op zoek naar een vbacode die zoekt naar de laatste datum van een serienummer (tab "urenoverzicht") en deze invult in tab "Urenberekening" in kolom L.
In kolom M de daarbij behorende tellerstand.
Aantal regels zijn variabel. Serienummers starten altijd op regel 6 t/m ..... (max 200).
zie bijlage

Alvast bedankt

 

[emields]

zo?

 

[HSV]

Als het oplopend is.

Ps. Niet sjoemelen met de kilometertellers (van 9596 naar 4998 op rij 47 en 48).

Sub hsv()
Dim cl As Range, c As Range
 For Each cl In Sheets("urenberekening").Cells(5, 3).CurrentRegion.Offset(1)
   Set c = Sheets("urenoverzicht").Columns(1).Find(cl, , , , , 2)
   If Not c Is Nothing Then cl.Offset(, 9).Resize(, 2) = c.Offset(, 2).Resize(, 2).Value
 Next cl
End Sub

 

[1965Peter]

Emields & Hsv bedankt, beide werken nog even kijken welke het beste past.
@ Hsv, helaas zijn het handmatig ingevoerde standen die niet altijd kloppen, blijft altijd dus nog een controle die ik moet doen.
gelukkig is alleen de laatste datum van belang, dus misschien komt het ooit nog goed

 

[emields]

graag gedaan.

vergeet niet de vraag als opgelost te zetten in uw eerste post.

 

[snb]

Het lijkt me een typische matrix Excelformule opgave:

=MAX((Urenoverzicht!$A$1:$A$119=$C6)*Urenoverzicht!$C$1:$C$119)

=MAX((Urenoverzicht!$A$1:$A$119=$C6)*Urenoverzicht!$D$1:$D$119)