Hoi,
Momenteel gebruik ik deze macro om dubbele waardes te verwijderen, werkt perfect als die slecht 2x voorkomt :
Sub Auto_openen()
Dim rng As Variant
rng = ActiveSheet.UsedRange
For i = 5 To Worksheets(1).UsedRange.Rows.Count
If Cells(i, 6) = Cells(i - 1, 6) Then Cells(i, 6) = ""
If Cells(i, 8) = Cells(i - 1, 8) Then Cells(i, 8) = ""
Next
End Sub
Maar deze verwijderd dus enkel de eerste onderliggende dubbele, maar nu komt het voor dat de waarde er tot 4x in voorkomt. Graag had ik dit deze uitgebreid zodat deze ook verwijderd worden.
Momenteel gebruik ik deze macro om dubbele waardes te verwijderen, werkt perfect als die slecht 2x voorkomt :
Sub Auto_openen()
Dim rng As Variant
rng = ActiveSheet.UsedRange
For i = 5 To Worksheets(1).UsedRange.Rows.Count
If Cells(i, 6) = Cells(i - 1, 6) Then Cells(i, 6) = ""
If Cells(i, 8) = Cells(i - 1, 8) Then Cells(i, 8) = ""
Next
End Sub
Maar deze verwijderd dus enkel de eerste onderliggende dubbele, maar nu komt het voor dat de waarde er tot 4x in voorkomt. Graag had ik dit deze uitgebreid zodat deze ook verwijderd worden.