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

[Excel] Kako da automatski dodam vise sheet-ova a da im imena pocinju rednim brojem

[es] :: Office :: Excel :: [Excel] Kako da automatski dodam vise sheet-ova a da im imena pocinju rednim brojem

[ Pregleda: 329 | Odgovora: 1 ]

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

zeka
Zekovic Igor
Sr mitrovica

Član broj: 9206
Poruke: 55
77.46.189.*



Profil

icon [Excel] Kako da automatski dodam vise sheet-ova a da im imena pocinju rednim brojem19.04.2008. u 11:33

Pitanje glasi potrebno je da napravim vise sheetova koji imaju isti sadrzaj ali se sortiraju pod rednim brojem tj treba umesto sheet1,sheet2......sheet300 imama samo 1,2,3...300
Znam da to mogu uraditi peske tako sto cu svakom da izmenim ime ali je posao poveliki.
Zanima me da li postoji komanda koja ce da mi omoguci kopiranje prvog sheet-a sa imenom 1 u 300 primeraka istiha ali da im imena pocinju sa sledecim vecim brojem?
Nadam se da razumete sta sam mislio!
Jo smrtnici!
19.04.2008. u 11:33 

Jpeca
Predrag Jovanović
Bozic i sinovi škola računara
Pančevo

Moderator
Član broj: 25683
Poruke: 943
*.3dnet.co.yu.

Jabber: jpeca@elitesecurity.org


Profil

icon Re: [Excel] Kako da automatski dodam vise sheet-ova a da im imena pocinju rednim brojem20.04.2008. u 17:25
Ako baš insistira da trošiš memoriju kopirajući isti list 300 puta to se može uraditi korišćenjem VBA.
Kopiranje prvog lista iza poslednjeg ostvaruje se sledećim kodom:
Code:
 Worksheets(1).Copy After:=Worksheets(Worksheets.Count)


Sada to staviš u petlju da uradiš 299 puta i dodeliš nazive 2, 3 ... 300:
Code:

Sub KopirajList
Dim i As integer
For i = 2 to 300
  Worksheets(1).Copy After:=Worksheets(Worksheets.Count)
  Worksheets(Worksheets.Count).Name = Str(i)
Next i   
End Sub


Dva u dva ide jednom ako možeš da ga ućuškaš
20.04.2008. u 17:25 

[es] :: Office :: Excel :: [Excel] Kako da automatski dodam vise sheet-ova a da im imena pocinju rednim brojem

[ Pregleda: 329 | Odgovora: 1 ]

Postavi temu Odgovori

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