telkens Laatste datum regel

[1965Peter]

Beste mensen,

Ik ben op zoek naar een vba code die de regel overhoudt van de laatste datum waarbij de waarde uit kolom A & B uniek zijn.
In het voorbeeld moeten de gele regels overblijven. Het bestand is dynamisch.

Alvast bedankt voor de moeite.

 

[snb]

Van je eigen zoektocht is niets terug te vinden.

Waarom geen gewone draaitabel ?

 

[HSV]

Sub hsv()
With Cells(1).CurrentRegion
 .Sort Cells(1), , Cells(1, 2), , , Cells(1, 3), xlDescending, xlYes
 .RemoveDuplicates Array(1, 2)
End With
End Sub

 

[1965Peter]

Dank je wel HSV,
Precies wat ik bedoel.
Groet Peter

 

[kaasplankje]

Of dit:

Sub Filter()

totalrows = Cells(Rows.Count, 1).End(xlUp).Row

For x = totalrows To 2 Step -1[INDENT]If Cells(x, 2) = Cells(x - 1, 2) Then Cells(x - 1, 2).EntireRow.Delete[/INDENT]
Next

End Sub

 

[1965Peter]

Dank je kaasplankje.
Deze werkt ook perfect, sla deze zo wie zo ook op.