View Single Post
Staro 07.11.2009., 21:37   #2
Aren
Registered User
 
Aren's Avatar
 
Datum registracije: Jan 2003
Lokacija: Zagreb
Postovi: 41
Ne znam koliko znaš VB (ni sama ne znam baš puno) ali ovo radi (pod pretpostavkom da nisi promijenio ime sheet-u) i da se on zove Sheet1 (ostale obrisši, prazne. Znači ostao je samo Sheet1. Zatim

Tools - Macro - Visual Basic editor (ili alt+F11)

To će ti otvoriti novi prozor za Visual Basic. Kada ti se otvorio, s lijeve strane ćeš vidjeti dva manja prozora jedan ispod drugoga a s desne jedan veliki. U gornjem prozoru s lijeve strane klinkni na Module1 (ispod foldera Modules) i u desnom prozoru copy/paste ovo


Sub Macro1()
'
' Macro1 Macro
'
For N = 150 To 1 Step -1
Sheets("Sheet1").Select
Sheets("Sheet1").Copy After:=Sheets(1)
Sheets("Sheet1 (2)").Select
Sheets("Sheet1 (2)").Name = "Sheet" + CStr(N + 1)
Next N

End Sub



Zatim File - Close and Return to Microsoft excel (zadnji na popisu)

Kada si se vratio u excel odeš na Tools - Macro - Macros

Na tom ekranu izabereš koji Macro želiš (ako nemaš drugih, automatski će ti pisati Macro1) i klikni Run i to je to

Ovo što ide od 150 prema 1 je zato da bi u konačnici imao Sheet1, Sheet2, Sheet3... a ne Sheet1, Sheet150, Sheet149... (kaj ja mogu. žensko i picajzla )
__________________
me on deviantART
Aren je offline   Reply With Quote