VBA dubbele rijen verwijderen

[moensk]

Ik heb onderstaand script lopen wat goed werkt als er geen lege rijen in de doelsheets staan.

data wordt verplaatst naar Doelsheets, daar wordt dan in gewerkt en worden er lege rijen ingevoerd op diverse plaatsen om overzicht te bewaren.
als ik dan script opnieuw laat lopen dan werkt de "RemoveDuplicates 3" niet, denkelijk heeft hij probleem met de lege rijen.

Sub Verdelen()
Dim x As Integer
    Dim DoelSheet As String
    With Sheets("Data")
        For x = 2 To .Range("A" & .Rows.Count).End(xlUp).Row
            If Not .Rows(x).Hidden Then
                DoelSheet = .Range("AR" & x).Value
                If DoelSheet <> "" Then
                    .Range("A" & x & ":V" & x).Copy Sheets(DoelSheet).Range("A" & Sheets(DoelSheet).Range("A" & Sheets(DoelSheet).Rows.Count).End(xlUp).Row + 1)
                    Sheets(DoelSheet).Cells(1).CurrentRegion.RemoveDuplicates 3
                End If
            End If
        Next x
    End With
End Sub

 

[snb]

en worden er lege rijen ingevoerd op diverse plaatsen om overzicht te bewaren.

Les 3 in Excel: doe dit nooit.

 

[AHulpje]

Dit vindt snb vast wel goed:

 

[JEC.]

Ik zou eerder een dropdown gebruiken, waarmee je gewenste data ophaalt.
Verder weet ik niet wat de exacte situatie is maar vermoedelijk wil je verschillende soorten data laten zien, gescheiden door die lege regels.

 

[jgkdrt]

@moensk,

Je RemoveDuplicates 3 werkt inderdaad niet door de lege rijen, omdat de range waarin je de duplicates probeert te verwijderen wordt bepaald door CurrentRegion van A1.
En die current region wordt (al) beperkt door de eerste lege rij.

Wil je die lege rijen wel behouden, dan zul je de range anders moeten definiëren.