[ aleksandaraleksandar @ 21.08.2006. 08:50 ] @
ako u excel-u imam ćelije popunjene nekim podacima (ne više od jedne reči), kako da dobijem spisak tih reči, ali bez ponavljanja. taj spisak je u stvari identičan onom koji se generiše u padajućoj listi, ako izaberem opciju Data > Filter > AutoData.

evo još jednom, kako da iz ćelija:

A1: 123
A2: 123
A3: 223
A4: 223
A5: 323
A6: 123
-------

dobijem spisak:
123
223
323
[ goranvuc @ 21.08.2006. 08:52 ] @
Desni klik na celiju -> Pick from list
[ aleksandaraleksandar @ 21.08.2006. 08:59 ] @
ne razumem. gde mi je tu generisana lista?
[ elmagio @ 21.08.2006. 10:13 ] @


Ti hoćeš da ti se recimo u koloni G pojavi cijeli spisak iz kolone A ali bez duplikata?
[ aleksandaraleksandar @ 21.08.2006. 11:15 ] @
e baš to!

ja sam uspeo preko pivottabela ali mi ima previše koraka. možel li da mi poašalješ ovaj makro?
[ elmagio @ 21.08.2006. 12:38 ] @


A možeš ti sam to ručno svaki put preko Filter-->Advance filter i biraš da ti određenu kolonu kopira na drugo mjesto i bez duplikata.

Evo ti kod samo napravi preinaku za kolone ako hoćeš staviti tu listu u neku drugu kolonu


Range("A:A").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Columns( _
"A:A"), CopyToRange:=Range("g1"), Unique:=True
Columns("G:G").Select
Selection.Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("g2").Select
[ aleksandaraleksandar @ 21.08.2006. 12:51 ] @
ovo sa Advanced Filter sam tražio. hvala puno
[ elmagio @ 21.08.2006. 13:41 ] @


Ja sam ti isto to prebacio u Macro naredbu.
Još sam samo dodao sortiranje, zato što ručno nemaš sortiranje.






Nema na čemu.