[ mirko1949 @ 05.02.2008. 09:23 ] @
U koloni B lista 1 imam razlicite oznake npr. a,b,c,d koje se vise puta ponavljaju. Kada filtriram listu npr. po oznaci c u toj listi se pojavljuju 5.; 8. i 15. red (sadrze oznaku c). To su celije B5, B8 i B15.
Ja bih hteo da mi se filtrirana lista kopira u list 2 u redove 2, 3 i 4 (celije B2, B3 i B4). Da budem precizniji da mi u listu 2 celija B2 uvek vuce prvi podatak iz filtrirane liste lista 1 itd (B3 drugu podatak iz filtrirane liste......)
Evo i primera
[ timmy @ 06.02.2008. 23:16 ] @
Kada bi hteo da kopiras te podatke na isti list mogao bi da koristis AdvancedFilter,
ovako probaj sa sledecom funkcijom:

Code:

Sub Kopiraj()
  Range("1!_FilterDatabase").SpecialCells(xlCellTypeVisible).Select
  Selection.Copy
  Sheets("2").Select
  Range("B1").Select
  Selection.PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
  Sheets("1").Select
End Sub



Dodaj svoj taster sa linkom ka ovoj proceduri i kad god prefiltriras tabelu
pritisni taj taster da iskopiras rezultate na drugi list.

Pozdrav
[ mirko1949 @ 07.02.2008. 07:04 ] @
Hvala timmy, funkcionise .