VBA error in Ondubbelen code

[ROSO]

Beste mensen,

Ik heb een goeie code van SnB gevonden, maar ik krijg een error in Excel 2003.
Ik kan iemand mij helpen. Misschien dat SnB nog online is ??????
.CurrentRegion kleurt geel.

ub tst()
        For j = 1 To [Blad2].CurrentRegion.Rows.Count
        With [A1].CurrentRegion
            .AutoFilter 3, Cells(j, 3)
            .AutoFilter 4, Cells(j, 4)
            .AutoFilter 5, Cells(j, 5)
            .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
            .AutoFilter
        End With
        If j >= [Blad2].CurrentRegion.Rows.Count Then Exit For
    Next
End Sub

 

[Hoornvan]

ROSO,

Kijk anders even hier, misschien heb je er wat aan.

 

[ROSO]

Bedank voor je bericht Hoornvan,

Maar met deze code kan je op een ander werkblad op drie klommen vergelijken.
De bedoeling is dat ik deze code onder een Button op blad 1 (menu) zet.

Maar bedankt:thumb:
RoSo

 

[snb]

of

Sub tst()
  With Blad2
    For j = 1 To .CurrentRegion.Rows.Count
      With .[A1].CurrentRegion
        .AutoFilter 3, Cells(j, 3)
        .AutoFilter 4, Cells(j, 4)
        .AutoFilter 5, Cells(j, 5)
        .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .AutoFilter
      End With
      If j >= .CurrentRegion.Rows.Count Then Exit For
    Next
  End With
End Sub

of

Sub tst()
  With Sheets("Blad2")
    For j = 1 To .CurrentRegion.Rows.Count
      With .[A1].CurrentRegion
        .AutoFilter 3, Cells(j, 3)
        .AutoFilter 4, Cells(j, 4)
        .AutoFilter 5, Cells(j, 5)
        .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .AutoFilter
      End With
      If j >= .CurrentRegion.Rows.Count Then Exit For
    Next
  End With
End Sub

Test eerst even MsgBox sheets("Blad2").range("A1").currentregion.address

Het gegevensgebied moet in ieder geval aaneengesloten zijn van A1 t/m E1

 

[ROSO]

Bedankt SnB :thumb:
Ik kan het helaas vandaag niet meer testen, maar ik ga proberen om morgen te testen
Nogmaals bedankt.

Je hoort nog wel van mij of het gelukt is.
RoSo

 

[ROSO]

Beste SnB,

Ik heb gekeken met MsgBox range is $A&1:$T$1, dus langer.
En ik moet Filteren op, kolom B,D,E vanaf Rij 2.
´Rij 1 heeft een koptekst' .Ik dacht filteren te kunnen oplossen door in de code filter nummer te veranderen. Kan jij dit voor mij veranderen.

 

[snb]

Zet achter iedere regel van mijn code in gewoon Nederlands wat de code doet. Dan kom je vanzelf achter het antwoord op je vraag.
En laat de code stap voor stap uitvoeren met F8 ; dan zie je wat de code doet.

 

[ROSO]

Ik heb het geprobeerd met UseRange helaas zonder geluk.
Mijn VBA kennis is ook niet groot

 

[Warme bakkertje]

Post anders eens een voorbeeldbestandje, zodat we kunnen zien waar het misloopt ipv te moeten raden naar de oorzaak

 

[ROSO]

Beste Warme Bakkertje,

Probleem is heel eenvouding ik heb een bestand met gegevens:
Rij A1 T/M S1 heeft een Header. (Dit verschilt weleens soms t/m P1)
IK wil Filteren zeg maar op Kolom A2 (naam) - D2 (Geboortedatum)- E2 (nummer).
En dubbele gegevens moet automatisch worden gewist.
Deze opdracht moet men kunnen geven van blad 1(menu) en gevens staan op blad2
Code wat je boven ziet heeft een bereik tot kolom F. dus alles daarna valt buitenbereik.
Ik kan je geen bestand sturen ivm wet op privacy. Als het nodig mocht blijken dan maak ik als nog een voorbeeld bestand met andere gegevens en teksten.

Bedankt,
Roso

 

[ROSO]

Een ieder bedankt voor jullie inzet. Ik zoek wel een ander oplossing.

Groeten
RoSo