data wissen

[mantaray]

Very basic waarschijnlijk, maar toch ff een zetje nodig
Visual basic

Ik heb volgende kolommen gerangschikt staan op naam en aankoopdata (namen op alfabet gesorteerd en data op laatste)

Kolom A naam, kolom B de datum

A-------B

karel 12-02-2012
karel 09-02-2012
karel 07-02-2012
karel 05-02-2012
karel 01-02-2012
karel 05-01-2012
karel 01-01-2012
mary 18-02-2012
mary 17-02-2012
mary 12-02-2012
mary 09-02-2012
mary 20-01-2012
mary 12-01-2012
mary 12-12-2011
oscar 01-06-2011
oscar 30-04-2011
...
...
...
...
...
...

etc

Hoe laat ik van elke naam de hoogste datumwaarde staan en wis ik de rest ?

Zodat ik volgend resultaat krijg (ook 2 kolommen)
A----------B
karel 12-02-2012
mary 18-02-2012
oscar 01-06-2011

TIA
Raymond

 

[HSV]

Inclusief de sortering.

Sub HSV()
 Dim sq As Variant, i As Long
 With Sheets("Blad1")
   .Range("A2:B" & .Cells(Rows.Count, 2).End(xlUp).Row).Sort [A2], , [B2], , 2
      sq = .Range("A2").CurrentRegion.Rows.Count
    For i = sq To 2 Step -1
     If .Cells(i, 1) = .Cells(i - 1, 1) Then
        .Cells(i, 1).Resize(, 2).Delete shift:=xlUp
      End If
    Next i
 End With
End Sub

 

[mantaray]

Hartelijk dank, zal het straks eens proberen
Heb het in 5 stukken moeten opdelen omdat het 178.000 rijen waren(liep het op vast), maar het is gelukt hoor