ontdubbelen

[jacobusm]

Bekijk bijlage ontdubb.xlsIk heb een excel bestand deze wil ik ontdubbelen, de dubbelen moeten gezocht worden in kolom D (order) hierna de cellen in kolom G (status) vergelijken als leeg dan mag de rij worden verwijderd en zo de hele lijst doorwerken.

ik hoop dat dit duidelijk is, een voorbeeld bestand is toegevoegd.

dorstjm@kabelfoon.nl

 

[Hoornvan]

jacobusm,

Waarom gebruik je de Zoekmachine "Doorzoek dit forum" van helpmij niet?
Heb ik ook gedaan bij Excel en gezocht op "ontdubbelen"

Je staat versteld van het aantal antwoorden.

Suc6

 

[jacobusm]

Heb ik gedaan maar kan niets passends vinden voor mijn bestand.

 

[Warme bakkertje]

Sub sorteertest()
With Sheets(1)
    .Range("A1:L" & .Cells(Rows.Count, 1).End(xlUp).Row).Sort .[D1], xlAscending, , , , , , xlYes
Set currentcell = .[D2]
End With
i = 1
Do While Not IsEmpty(currentcell)
With currentcell
If .Offset(1).Value = .Value And .Offset(1, 3) = "" Then
    .Offset(1).EntireRow.Delete
    i = i + 1
Else
    Set currentcell = .Offset(1)
End If
End With
Loop
With Sheets(1)
    .Range("A1:L" & .Cells(Rows.Count, 1).End(xlUp).Row).Sort .[F1], xlAscending, , , , , , xlYes
End With
End Sub