Sorteren na ontdubbelen

[Jack Nouws]

Hallo

Met deze code laat ik de gegevens in de eerste kolom ontdubbelen.

Sub tst()
    Columns(1).SpecialCells(xlCellTypeConstants).advancedfilter xlFilterCopy, [A1], [AA1], True
    Columns(27).Copy Columns(1)
    Columns(27).Clear
 End Sub

Nu wil ik ook nog dat de overgebleven gegevens worden gesorteerd, en dat wil ik doen met een extra toevoeging in de code.

Sub tst()
    Columns(1).SpecialCells(xlCellTypeConstants).advancedfilter xlFilterCopy, [A1], [AA1], True
    Columns(27).Copy Columns(1)
    Columns(27).Clear
    Columns(1).Sort Key1:=[A2], order1:=xlAscending
End Sub

Nu worden alle gegevens vanaf A1 tot A ... netjes gesorteerd maar ik wil dus hebben dat de gegevens vanaf cel A2 gesorteerd worden. Hoe krijg ik dit mbv de Sort Key voor elkaar.

Met vr gr
Jack

 

[richard1970]

Beste Jack,

Gebruik ook:

Header:=xlGuess,

Richard

 

[Jack Nouws]

Beste Jack,

Gebruik ook:

Header:=xlGuess,

Richard

Richard

Het klopt precies nu. :thumb:
Dank je wel.

Met vr gr
Jack