meerdere datum per 1 rij, nieuwste bewaren

[Mikevdl]

Hallo allen!

Gezien ik er zelf niet helemaal uit kom, ben ik bij jullie gekomen... na vele google acties nog geen antwoord.
Ik heb een excel bestand wat bestaat uit 11 kolommen (a:k).
I Kolom "H" bevind zich een invoer datum.
in de rijen bevinden zich order nummers, deze kunnen per meerdere rijen hetzelfde zijn.

Wat ik nu eigenlijk wil is een button welke kolom H nakijkt wat de nieuwste datum is per serie rijen en dan de oude verwijderd.
voorbeeld:
0000001 01-01-2013
0000001 02-01-2013
0000001 02-01-2013
0000001 03-01-2013

Na verwijdering
0000001 03-01-2013

Ik weet niet of dit mogelijk is via VBA maar ik hoop het wel...
Alvast bedankt!!

 

[namliam]

Aangenomen dat de orders gesorteerd zijn en de meest recente order altijd de laatste is..... is het heel simpel:

Sub DeleteDupOrders()
    Dim r As Integer
    r = 1
    Do While Cells(r, 1) <> ""
        If Cells(r, 1) = Cells(r + 1, 1) Then
            Rows(r & ":" & r).Delete
        Else
            r = r + 1
        End If
    Loop
End Sub

 

[Mikevdl]

Als dit werkt ben je god!! ik ga hem testen!!

 

[Mikevdl]

Hij doet het , nu kan ik weer verder met het filteren van de statussen maar daar ik ga ik je/jullie niet mee vervelen!! bedankt nogmaals!!!!