[es] - Otvoriti vise novih stranica odjednom

terzic
UE

Član broj: 42912
Poruke: 152
*.ptt.rs.

Profil

Otvoriti vise novih stranica odjednom

^{30.12.2008. u 00:02 - pre 186 meseci}

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 ?
_

_{[Ovu poruku je menjao terzic dana 30.12.2008. u 01:44 GMT+1]}

Prikačeni fajlovi

izlaz.xls - 93k

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
*.bisinter.net.

Sajt: www.gowi.rs

+109 Profil

Re: Otvoriti vise novih stranica odjednom

^{30.12.2008. u 15:05 - pre 186 meseci}

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.

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

Odgovor na temu

terzic
UE

Član broj: 42912
Poruke: 152
*.ptt.yu.

Profil

Re: Otvoriti vise novih stranica odjednom

^{30.12.2008. u 23:02 - pre 186 meseci}

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

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
*.bisinter.net.

Sajt: www.gowi.rs

+109 Profil

Re: Otvoriti vise novih stranica odjednom

^{31.12.2008. u 07:48 - pre 186 meseci}

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.

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

Prikačeni fajlovi

izlaz.xls - 55k

Odgovor na temu