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

[Excel] Dodavanje radnog lista iz koda

[es] :: Office :: Excel :: [Excel] Dodavanje radnog lista iz koda

[ Pregleda: 4508 | Odgovora: 11 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.sbb.co.yu.



+2 Profil

icon [Excel] Dodavanje radnog lista iz koda29.06.2007. u 13:03 - pre 203 meseci
U radnoj svesci imam vise listova. Hteo bih da dodam radni list pod nazivom iz celije A1 (npr fff) ali da mi zadrzi postojeci list sa nazivom npr eee. Pokusao sam sa makroom koji glasi:
Code:

Option Explicit
Sub DodavanjeLista()
 Dim List As String
 If Range("A1") <> "" Then
  List = Range("A1").Value
  ActiveSheet.Name = List
  Worksheets.Add 
   MsgBox "List je dodan i nosi naziv - " & List, , "Poruka"
 Else
   MsgBox "List nije dodan", , "Poruka"
 End If
End Sub


ali mi samo napravi novi list. Kako da zadrzim i postojeci list.

[Ovu poruku je menjao Jpeca dana 29.06.2007. u 15:31 GMT+1]
Prikačeni fajlovi
 
Odgovor na temu

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

Moderator
Član broj: 25683
Poruke: 2267
212.200.27.*

Sajt: www.gowi.rs


+109 Profil

icon Re: [Excel] Dodavanje radnog lista iz koda29.06.2007. u 14:37 - pre 203 meseci
Da li hoćeš da kopiraš postojeći radni list ili da dodaš prazan kao novi list?
Kod koji si napisao menja naziv aktivnom radnom listu i dodaje novi (prazan) list pod imenom Sheet... . Dakle original list ti ostaje ali si mu promenio ime.

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

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.sbb.co.yu.



+2 Profil

icon Re: [Excel] Dodavanje radnog lista iz koda29.06.2007. u 17:28 - pre 203 meseci
Hocu da kopiram postojeci radni list. Kako da prepravim kod?
 
Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w90-42.abo.wanadoo.fr.



Profil

icon Re: [Excel] Dodavanje radnog lista iz koda30.06.2007. u 15:42 - pre 203 meseci
Pozdrav za sve,
Evo malog primera :
Code:

Option Explicit
Const G As String = "Elitesecurity"

Sub DodavanjeLista()
Dim List As String
If Range("A1") <> "" Then
List = Range("A1").Value
    ActiveSheet.Copy After:=Sheets(1)

 On Error GoTo 1
    ActiveSheet.Name = List
MsgBox "List je dodan i nosi naziv - " & List, vbInformation, G
Exit Sub
    Else
MsgBox "List nije dodan !", vbInformation, G
Exit Sub
End If
1
Application.DisplayAlerts = False
ActiveSheet.Delete
MsgBox "Ovo ime lista vec postoi >  " & List, vbExclamation, G
Application.DisplayAlerts = True
End Sub


Nadamse daceti odgovarati ovakva modifikacija ,
u isto vreme verovatno da postoi neki drugi nacin za tretiranje u slucaju kopije lista
koi vec postoi u radnoj svesci , nisam ti ja bas specialista .
Cao

[Ovu poruku je menjao Gix_ dana 30.06.2007. u 16:59 GMT+1]
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
 
Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.dynamic.sbb.co.yu.



+2 Profil

icon Re: [Excel] Dodavanje radnog lista iz koda01.07.2007. u 20:43 - pre 203 meseci
Ovaj kod je uredu. Puno hvala
Neznam da li je izvodljivo da se npr. taj jedan radni list kopira umesto u isti dokument u neki drugi dokument koji bi takodje nosio naziv po nazivu iz zadate celije.
 
Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w90-42.abo.wanadoo.fr.



Profil

icon Re: [Excel] Dodavanje radnog lista iz koda01.07.2007. u 22:46 - pre 203 meseci
Pozdrav ,
na jednom od Francuskih foruma naisosam na jednog tipa koi odgovarajuci na jedno pitanje
" Dalije moguce " , odgovara ovako : Jos nisam uspeo da programacijom na svom PCeu narucim KAFU .
Ja licno sam daleko od njega u pitanju programacije toje samo moj hobi .

Ovolike reci dabi ti finalno odgovorio daje moguce Hi Hi Hi


Code:
Option Explicit
Const G As String = "Elitesecurity"

Sub NovDoc()

Dim WBname As String, List As String
Dim WB As Workbook
    If Range("A1") <> "" Then
    List = Range("A1").Value
       
Application.ScreenUpdating = False
    ActiveSheet.Copy
        ActiveSheet.Name = List
Set WB = ActiveWorkbook
    WBname = "" & List & " " & Format(Date, "dd-mm-yy") & ".xls"
    WB.SaveAs "C:\" & WBname  'Ovde mozes podesiti detinaciju nove radne sveske trenutno je direktno na HD
    WB.Close
MsgBox "List je dodan i nosi naziv - " & WBname, vbInformation, G
    Else
MsgBox "List nije dodan u celiji A1 nema nikakvog imena !", vbExclamation, G
    End If
Application.ScreenUpdating = True
End Sub
Cao
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
 
Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
..ava-automobili.netpro.co.yu.



+2 Profil

icon Re: [Excel] Dodavanje radnog lista iz koda02.07.2007. u 12:53 - pre 203 meseci
Super je. Hvala
PS. Jos mi malo treba pa da uspem da narucim kafu
 
Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w90-42.abo.wanadoo.fr.



Profil

icon Re: [Excel] Dodavanje radnog lista iz koda02.07.2007. u 21:10 - pre 203 meseci
Re ,
nekrijemti svoje zadovoljstvo kad procitam ovako nesto posle datog odgovora ,
Citat:
mirko1949: Super je. Hvala

PS:
Javinam kad bude gotova KAFA LoL ( za mene sa secerom )

Cao
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
 
Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
..ava-automobili.netpro.co.yu.



+2 Profil

icon Re: [Excel] Dodavanje radnog lista iz koda11.07.2007. u 10:17 - pre 203 meseci
Jos malo pomoci mi treba.
Kako da prepravim zadnji cod tako da umesto jednog iskopira 2 radna lista u nov dokument koji bi znaci sadrzao ta dva lista (takodje po nazivu iz zadate celije).
 
Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w90-42.abo.wanadoo.fr.



Profil

icon Re: [Excel] Dodavanje radnog lista iz koda17.07.2007. u 21:37 - pre 203 meseci
Re,
izvinjavamse zbog kasnjenja sa odgovorom , a uisto vreme nemam odgovora na tvoje pitanje jer nisam sve ukapirao .
Da kopiras dva lista u novi dokumenat Ok .
Zadata celija za naziv se nalazi na kom listu ?
Kako teba dase zovu dva nova lista , isti kao i original ili drugacije ?
Pokusaj da objasnis malo preciznije .

Inace u zadnjoj codi kojusam ti poslao imas prkticno sve informacije
dovoljno je samo da malo vise razmislis dabi ukapirao .
Code:

Option Explicit
Const G As String = "Elitesecurity"

Sub NovDoc()

Dim WBname As String, List As String
Dim WB As Workbook
    If Range("A1") <> "" Then
    List = Range("A1").Value   ' list dobija ime iz celije A1 
       
Application.ScreenUpdating = False ' maskirati promene na ekranu
    ActiveSheet.Copy ' aktivni radni list se kopira
        ActiveSheet.Name = List ' aktivni radni list dobija ime iz celije A1
Set WB = ActiveWorkbook ' za novu radnu svesku
    WBname = "" & List & " " & Format(Date, "dd-mm-yy") & ".xls" ' nova radna sveska dobiva ime
    WB.SaveAs "C:\" & WBname  ' snimanje nove radne sveske 'Ovde mozes podesiti detinaciju nove radne sveske trenutno je direktno na HD
    WB.Close ' zatvaranje nove radne sveske
MsgBox "List je dodan i nosi naziv - " & WBname, vbInformation, G
    Else
MsgBox "List nije dodan u celiji A1 nema nikakvog imena !", vbExclamation, G
    End If
Application.ScreenUpdating = True
End Sub

Pogledaj linije imas objasnjenja koja mogu dati pomognu dabi ukapirao neku logiku .
Pozdrav
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
 
Odgovor na temu

mirko1949
Miroslav Magdić
Kragujevac

Član broj: 87134
Poruke: 216
*.zastava-automobili.com.



+2 Profil

icon Re: [Excel] Dodavanje radnog lista iz koda20.07.2007. u 08:03 - pre 203 meseci
Probao sam sa nekim izmenama koda ali mi nije islo.
Dva nova lista treba da imaju isti naziv kao i original npr list 1 i list 2
Zadata celija za naziv novog dokumenta moze da se nalazi na listu 1
 
Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w86-219.abo.wanadoo.fr.



Profil

icon Re: [Excel] Dodavanje radnog lista iz koda25.07.2007. u 11:00 - pre 203 meseci
Re ,
opet kasnim ali kako ovde u Fr kazu "Bolje kasno nego nikada" ,
evo primera pripazi samo u slucaju ako menjas nazive za radne listove 1-2
da u kodi promenis isto na linijama :

Sheets(Array("list1", "list2")).Select
Sheets("list2").Activate
Sheets(Array("list1", "list2")).Copy

Pozdrav i jos jednom izvinjenje zbog kasnjenja .
Cao

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
Prikačeni fajlovi
 
Odgovor na temu

[es] :: Office :: Excel :: [Excel] Dodavanje radnog lista iz koda

[ Pregleda: 4508 | Odgovora: 11 ] > FB > Twit

Postavi temu Odgovori

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