kolom met dubbele gegevens sorteren

[Willem Blaas]

ik heb een kolom met dubbele gegevens en die wil ik met

Range("A1:A700").AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Range("C1"), Unique:=True

sorteren en de gefilterde gegevens in C1 neerzetten, gaat prima

wat blijkt: het gegeven wat in A1 staat zet hij in C1 en in C2

wanneer ik de basisrij nu sorteer op iets maakt het niet uit, het gegeven die in A1 staat komt in de gesorteerde rij te staan in C1 en in C2

doe ik iets verkeerd ?

metvrgr willem blaas

 

[snb]

A1 wordt beschouwd als kolomtitel en niet als gegeven.

 

[Willem Blaas]

A1 wordt beschouwd als kolomtitel en niet als gegeven.

oke, prima,
maar om het op lossen zou ik dus van de gesorteerde rij de bovenste moeten verwijderen dan is het goed .........denk ik

zou dat een oplossing zijn ?

groet willem blaas

 

[Jack Nouws]

Sub tst()
  Columns(1).AdvancedFilter xlFilterCopy, , [C1], True
End Sub

Ik ga ervan uit dat in Cel A1 de titel van dit veld ('naam' bijvoorbeeld) staat.

Of...

Sub tst()
  Columns(1).AdvancedFilter xlFilterCopy, , [C1], True
  [C1].Delete xlUp
End Sub

Met vr gr
Jack

 

[Willem Blaas]

Sub tst()
  Columns(1).AdvancedFilter xlFilterCopy, , [C1], True
End Sub

Ik ga ervan uit dat in Cel A1 de titel van dit veld ('naam' bijvoorbeeld) staat.

Of...

Sub tst()
  Columns(1).AdvancedFilter xlFilterCopy, , [C1], True
  [C1].Delete xlUp
End Sub

Met vr gr
Jack

is gelukt , dank je wel

mvrgr willem blaas