Ik wil in een excel sheet de cellen in kolom c en d vergelijken. Als bijvoorbeeld de cellen C2 en D2 niet gelijk zijn moet de desbetreffende rij verwijderd worden. Zijn ze wel gelijk dan moet de rij blijven staan en moeten de cellen in volgende rij (C3 en D3) vergeleken worden waarbij dezelfde aktie moet worden uitgevoerd.
Het aantal rijen is in elke excel sheet variabel dus de code moet die op voorhand tellen.
Het vergelijken en de rij verwijderen lukt me met het volgende blokje:
Hoe krijg ik de code zover dat ie nu naar de volgende rij gaat, dezelfde aktie uitvoert en na de laatste rij stopt?
Het aantal rijen is in elke excel sheet variabel dus de code moet die op voorhand tellen.
Het vergelijken en de rij verwijderen lukt me met het volgende blokje:
Code:
Sub cellenvergelijken3()
With Sheets(1)
If [C2] <> [D2] Then
Selection.EntireRow.Delete
Else
End If
End With
End Sub
Hoe krijg ik de code zover dat ie nu naar de volgende rij gaat, dezelfde aktie uitvoert en na de laatste rij stopt?
Laatst bewerkt door een moderator: