potreboval by som pomoct pravdepodobne len s takou malickostou vo Visual Basicu.
Potrebujem napisat funkciu, ktora dane cisla zadane v exceli v bunkach napr pod sebou, zoradi do novych buniek v opacnom poradi ako su v tom povodnom.
Mam to viac menej hotove, vysledok to zobrazuje spravne ale vysledok nasledne vypise len do prvej bunky, cize posledne cislo zo stlpca - co je spravne... lenze, dalej mi cisla nevypise...
Popisal som to trocha chaoticky ale snad to niekto pochopi kto sa v tom vyzna.
Tu je zdrojak co mam a funguje tak, ako som to "popisal" hore:
Kód: Vybrať všetko
Function pozpatku(A As Range)
Dim B()
pocet = A.Count
ReDim B(1 To pocet)
For i = 1 To pocet
B(i) = A(pocet - i + 1)
Next i
pozpatku = B
End Function
//autoeditácia príspevku (03 Jún 2013, 12:05)
Funguje to ako ma, akurat pri volani funkcie treba potvrdit ctrl+alt+enter a tak to prefunguje.
- vyriesene