• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

kolom met dubbele gegevens sorteren

Status
Niet open voor verdere reacties.

Willem Blaas

Gebruiker
Lid geworden
30 aug 2006
Berichten
253
ik heb een kolom met dubbele gegevens en die wil ik met

Code:
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
 
Laatst bewerkt door een moderator:
A1 wordt beschouwd als kolomtitel en niet als gegeven.
 
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
 
Code:
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...
Code:
Sub tst()
  Columns(1).AdvancedFilter xlFilterCopy, , [C1], True
  [C1].Delete xlUp
End Sub

Met vr gr
Jack
 
Laatst bewerkt:
Code:
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...
Code:
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan