Bericht aantal verwijderde regels

[Tweety1]

Onderstaande macro gebruik ik om dubbele regels te verwijderen.
Alleen zou ik graag een melding aan het eind willen zien hoeveel dubbele er zijn verwijderd.

Sub DubbeleRegels()
Dim c As Long, varItems() As Variant ' must be 0-based variant array
    
    With Range("A1").CurrentRegion
        ReDim varItems(0 To .Columns.Count - 1)
        For c = 1 To .Columns.Count
            varItems(c - 1) = c
        Next c
        .RemoveDuplicates varItems, xlYes ' checks all columns
    End With
End Sub

mvg
Kasper

 

[edmoor]

Plaats een voorbeeld bestand.

 

[Tweety1]

Hierbij een voorbeeld bestand

Bekijk bijlage Dubbele regels.xlsm

 

[edmoor]

Probeer deze aanpassing in je eigen sub maar eens:

Sub DubbeleRegels()
    Dim c As Long, varItems() As Variant ' must be 0-based variant array
    Dim rg As Long
    
    With Range("A1").CurrentRegion
        rg = .Rows.Count
        ReDim varItems(0 To .Columns.Count - 1)
        For c = 1 To .Columns.Count
            varItems(c - 1) = c
        Next c
        .RemoveDuplicates varItems, xlYes ' checks all columns
    End With
    MsgBox "Aantal verwijderde regels: " & rg - Range("A1").CurrentRegion.Rows.Count
End Sub

 

[Tweety1]

Thanks.

 

[snb]

Is dit niet genoeg ?

Sub M_snb()
    With Blad1.Cells(1).CurrentRegion
        y = .Rows.Count
        .RemoveDuplicates , 1
        MsgBox y - .Rows.Count
    End With
End Sub