dubbele weghalen uit lijst

[ahof]

Ik werk dagelijks met een bestand waarbij ik 2 lijsten met elkaar combineer en dan automatisch de dubbelen verwijder met een macro.

Nu ben ik er achter gekomen dat mijn macro ook verschillende nieuwe rijen verwijdert die niet dubbel voorkomen in de lijst.

de macro die ik gebruik:

Sub DubbleDelete()
'Dim Rij, Kolom, StartRij, EindRij, TempValue
Application.Calculation = xlManual

On Error Resume Next
rij = ActiveCell.Row
kolom = ActiveCell.Column
Do While Cells(rij, kolom) <> ""
If Trim(Cells(rij, kolom).Value) = Trim(Cells(rij + 1, kolom)) Then
Rows(rij).Select
Selection.Delete Shift:=xlUp
Else
rij = rij + 1
End If
Loop
Cells(1, kolom).Select

Application.Calculation = xlAutomatic
End Sub


kan iemand me helpen met het probleem te vinden?

 

[modbeek]

ik zou eens proberen de ".value" weg te halen uit dat IF statement.

 

[robdgr]

Gezien het vinkje kennelijk al opgelost? Misschien kun je anderen helpen met die oplossing. :thumb:

 

[ahof]

haha, ja het antwoord was iets simpeler dan ik dacht en dus schaam ik me een beetje voor het antwoord

elke keer als ik de macro gebruikte was de eerste cell van het document aangeklikt. om de macro goed te laten werken moest ik de eerste cell van de desbetreffende kolom aangeklikt hebben. nu werkt het! :thumb: