BenjaminOverkempe
Nieuwe gebruiker
- Lid geworden
- 15 mei 2017
- Berichten
- 1
Hallo,
Ik probeer rijen die dubbel in mijn data staan te verwijderen.
De data staat bij mij in kolom 2 tot en met LastCol, waarbij LastCol een variabele is die ik in een function heb berekend. Deze heb ik nu even achter een ' geplaatst omdat jullie deze functie niet hebben. in plaats daarvan werk ik nu even met Bakjes.UsedRange
Nu heb ik de code zo geschreven dat deze controleert of er rijen dubbel zijn op basis van de 1e, 2e, 3e en 4e kolom. (weet niet eens zeker of dit wel klopt)
Ik wil dat ik dubbelen kan verwijderen op basis van een variabel aantal kolommen.
Enig idee hoe ik dit kan programmeren?
met vriendelijke groeten,
Benjamin
Ik probeer rijen die dubbel in mijn data staan te verwijderen.
De data staat bij mij in kolom 2 tot en met LastCol, waarbij LastCol een variabele is die ik in een function heb berekend. Deze heb ik nu even achter een ' geplaatst omdat jullie deze functie niet hebben. in plaats daarvan werk ik nu even met Bakjes.UsedRange
Nu heb ik de code zo geschreven dat deze controleert of er rijen dubbel zijn op basis van de 1e, 2e, 3e en 4e kolom. (weet niet eens zeker of dit wel klopt)
Ik wil dat ik dubbelen kan verwijderen op basis van een variabel aantal kolommen.
Enig idee hoe ik dit kan programmeren?
met vriendelijke groeten,
Benjamin
Code:
Sub RemoveDuplicateRows()
Dim LastCell, rng As Range
Dim Bakjes As Worksheet
Set Bakjes = ThisWorkbook.Sheets("Bakjes")
LastColBakjes = Bakjes.UsedRange.Columns(Bakjes.UsedRange.Columns.Count).Column
'LastColBakjes = LastColumn(Bakjes)
LastRowBakjes = Bakjes.Cells(Rows.Count, 2).End(xlUp).Row 'aantal rijen in Bakjes
Set LastCell = Sheets("Bakjes").Cells(LastRowBakjes, LastColBakjes)
With ActiveSheet
Set rng = Bakjes.Range(Bakjes.Cells(1, 2), Bakjes.Cells(LastRowBakjes, LastColBakjes))
rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes
End With
End Sub
Laatst bewerkt: