Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Otvoriti vise novih stranica odjednom

[es] :: Office :: Excel :: Otvoriti vise novih stranica odjednom

[ Pregleda: 2082 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

terzic
UE

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



Profil

icon Otvoriti vise novih stranica odjednom30.12.2008. u 00:02 - pre 159 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
 
Odgovor na temu

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

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

Sajt: www.gowi.rs


+97 Profil

icon Re: Otvoriti vise novih stranica odjednom30.12.2008. u 15:05 - pre 159 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: 151
*.ptt.yu.



Profil

icon Re: Otvoriti vise novih stranica odjednom30.12.2008. u 23:02 - pre 159 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: 2206
*.bisinter.net.

Sajt: www.gowi.rs


+97 Profil

icon Re: Otvoriti vise novih stranica odjednom31.12.2008. u 07:48 - pre 159 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
 
Odgovor na temu

[es] :: Office :: Excel :: Otvoriti vise novih stranica odjednom

[ Pregleda: 2082 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.