Otvoriti vise novih stranica odjednom

Otvoriti vise novih stranica odjednom 30.12.2008. u 01:02 · pre 217 meseci #1

Kako da u jednom file-u otvorim odjednom vise stotina novih stranica ( recimo 500) i da mi svaka od njih dobije redni broj ( 1-500), da bih izbegao rucno jednu po jednu i rename svake od njih ? I kako posle naterati da prekopira formulu na prvoj strani, da opet ne moram da unosim rucno ?
_

izlaz.xls93k

Re: Otvoriti vise novih stranica odjednom 30.12.2008. u 16:05 · pre 217 meseci #2

Iako Excel ne ograničava broj listova ne čini mi se pametno napraviti tabelu sa 500 listova, jer će navigacija po takvoj listi biti problematična. Ukoliko sam razumeo tvoj primer mislim da je bolje rešenje da podatke iz fakture čuvaš u vidu jedne ili dve povezane liste. Pogledaj nešto u tom stilu je već bilo na forumu: http://www.elitesecurity.org/t...ulara-radi-stampanja-iz-tabele

Kopiranje listova se inače jednostavno rešava programski. Dakle nakon što si kreirao list 1 možeš ga kopirati startovanjem sledećeg makroa:

Code:

Sub CopyList()
'
' Kopira list sa nazivom 1 u 50 primeraka
'
Dim sh As Integer
'
    Application.ScreenUpdating = False    ' Prikaz da se ne osvezava
    For sh = 2 To 50
      Sheets("1").Copy After:=Sheets(sh)  'Dodaje kopiju lista na kraj
      Sheets(sh + 1).Name = Str(sh)       ' Menja naziv dodatog lista
    Next sh
    Application.ScreenUpdating = False    ' Prikaz da se ponovo osvezava
End Sub

Problem forumule koja referencira istu ćeliju u različitim listovima možeš rešiti korišćenjem kombinacije INDIRECT i ADDRESS funkcije. Umesto

Code:
'1'!I35

u C3 stavi

Code:
=INDIRECT(ADDRESS(35,9,,,C2))

pa ćeš takvu formulu moći da kopiraš, tako da važi za sve listove. Slično i za ostale redove.

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Re: Otvoriti vise novih stranica odjednom 31.12.2008. u 00:02 · pre 217 meseci #3

Probao, ne funkcionise, kao i ovo sa druge teme.
_________

Re: Otvoriti vise novih stranica odjednom 31.12.2008. u 08:48 · pre 217 meseci #4

U prilogu je tvoj primer kome sam dodadao kod i izmenio formule na listu IZLAZ FIN. Obrisao sam sve listove osim listova IZLAZ FIN i 1. Da bi makro mogao da se startuje, treba da predhodno podesiš sigurnost u Excelu na Medium (Tools/Macro/Security... u Excelu 2003).

Kad otvoriš ovu radnu svesku (nakon što si podesio sigurnost) i startuješ makro CopyList formiraće se kopije lista 1 sa nazivima: 2, 3, ..., 50.

Ukoliko i dalje imaš problema, opiši malo detaljnije o čemu se radi. I ovaj kod koji sam posavio i primer sa druge teme su isprobani. Za primer sa druge teme treba malo više vremena jer se radi o drugačijoj koncepciji radne sveske od ove što si ti poslao.

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

izlaz.xls55k

Forum kao aplikacija na telefonu

Srodne teme