Duplicaten verwijderen macro

[japdonk]

Hallo helpers,

Ik heb een macro gemaakt die de duplicaten uit mijn tabel verwijderd, simpel gemaakt door gebruik van macro opnemen.
echter loopt hij bij gebruik steeds vast. De macro is een stuk uitgebreider maar hij loopt hier op vast:

ActiveSheet.Range("Table1[#Alles]").RemoveDuplicates Columns:=8, Header:= _
xlYes

* actieve sheet
* Table 1
* remove duplicaten rij 8
* er bevind zich een header in de rij

Ik denk zelf dat het komt door de boodschap die verschijnt na het verwijderen van de duplicaten:

Zoiets van er zijn xxx duplicaten verwijderd, je houdt xxx unieke waarden over. En dan moet je op OK drukken.

Ik probeerde deze er nog voor te zetten, dacht dat dit een boodschap voorkwam:

Application.DisplayAlerts = False

maar dat helpt niet, weet iemand wat er fout gaat?

Alvast bedankt!

 

[Lampie173]

Hallo Japdonk,

Doe de hele macro eens plaatsen, dan is het wat duidelijker.

Mvg,

Lampie

 

[japdonk]

Windows("Customer Freight F13.xlsx").Activate
Range("H2").Select
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=8, Criteria1:=RGB _
(228, 109, 10), Operator:=xlFilterCellColor
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort.SortFields.Add _
Key:=Range("Table1[[#All],[Order nr2]]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").ListObjects("Table1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Application.DisplayAlerts = False
ActiveSheet.Range("Table1[#Alles]").RemoveDuplicates Columns:=8, Header:= _
xlYes


Range("H2").Select

 

[Warme bakkertje]

Bij Key spreek je over
("Table1[[#All],[Order nr2]]"),

Bij RemoveDuplicates spreek je over
("Table1[#Alles]")
?????