Ik probeer duplicaten te verwijderen op basis van de waarde (in dit geval, unchecked) in de checkbox.
Wanneer het duplicaat verwijdert is, kan de gehele rij verwijdert worden.
Zodat ik een nette 1. t/m 500. lijst als eindresultaat heb zonder duplicaten.
Ofwel, wanneer checkbox niet aangevinkt is, dan rij verwijderen.
Maar er gebeurt helemaal niets, wanneer ik deze macro uitvoer.
Is dit omdat ik een NL-versie gebruikt van Excel (2019)?
Kan iemand mij helpen? Zie bijlage.
Wanneer het duplicaat verwijdert is, kan de gehele rij verwijdert worden.
Zodat ik een nette 1. t/m 500. lijst als eindresultaat heb zonder duplicaten.
Code:
Sub RemoveUnCheckedRows()
Dim ctCB As CheckBox
''' Process all checkboxes in the ActiveSheet
For Each ctCB In ActiveSheet.CheckBoxes
''' If the checkbox is unchecked, remove the row it's in and the checkbox itself
If ctCB = 0 Then
ctCB.TopLeftCell.EntireRow.Delete
ctCB.Delete
End If
Next ctCB
End Sub
Ofwel, wanneer checkbox niet aangevinkt is, dan rij verwijderen.
Maar er gebeurt helemaal niets, wanneer ik deze macro uitvoer.
Is dit omdat ik een NL-versie gebruikt van Excel (2019)?
Kan iemand mij helpen? Zie bijlage.
Bijlagen
Laatst bewerkt: