Nav antwoord nu VB vraag/probleem Gegevens uit lijst halen

[DJ.Funny]

Ik heb lijst in kolom A waarin een hoop artikelnummers staan. Sommige Artikelnummers komen meerdere malen voor. Nu wil ik in kolom B een "zuivere"lijst maken waarin de betreffende nummers 1 keer voorkomen.

Voorbeeld:
Kolom A bevat: 1 2 2 2 3 4 4 4 5 5 5 5 5 5 5 9 9 9 10 10 10 10 10 10

Dan moet er in kolom B komen: 1 2 3 4 5 9 10

Ik hoop dat ik een beetje duidelijk ben. Ik kom er iig niet uit???


Alvast bedankt voor het meedenken!!!!

Dirk

 

[frank1985]

oplossing

zie bijlage

 

[DJ.Funny]

Dank je wel super de luxe!!! Nu probeer ik eea te vangen in een macro alleen gaat er iets mis ik denk dat de notatie van dit deel fout is Range("BA2:BA & s") wie weet het???? Ik niet


Dim s As Integer



Sheets("Blad1").Activate

s = 2

Do Until Range("BA" & s) = ""

s = s + 1

Loop




Range("BA2:BA & s").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("BD2:BD & s"), Unique:=True

 

[snb]

Dit is voldoende:

columns(53).AdvancedFilter xlFilterCopy, ,columns(56), True

of

columns(53).AdvancedFilter 2, ,columns(56), True

of

[BA:BA].AdvancedFilter 2, , [BD:BD], True