[Excel] Dodavanje radnog lista iz koda

[Excel] Dodavanje radnog lista iz koda 29.06.2007. u 14:03 · pre 235 meseci #1

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.

dodavanje lista.xls33k

Re: [Excel] Dodavanje radnog lista iz koda 29.06.2007. u 15:37 · pre 235 meseci #2

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.

Potpis

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

Re: [Excel] Dodavanje radnog lista iz koda 29.06.2007. u 18:28 · pre 235 meseci #3

Hocu da kopiram postojeci radni list. Kako da prepravim kod?

Re: [Excel] Dodavanje radnog lista iz koda 30.06.2007. u 16:42 · pre 235 meseci #4

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

Potpis

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Re: [Excel] Dodavanje radnog lista iz koda 01.07.2007. u 21:43 · pre 235 meseci #5

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.

Re: [Excel] Dodavanje radnog lista iz koda 01.07.2007. u 23:46 · pre 235 meseci #6

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

Potpis

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Re: [Excel] Dodavanje radnog lista iz koda 02.07.2007. u 13:53 · pre 235 meseci #7

Super je. Hvala
PS. Jos mi malo treba pa da uspem da narucim kafu

Re: [Excel] Dodavanje radnog lista iz koda 02.07.2007. u 22:10 · pre 235 meseci #8

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

Potpis

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Re: [Excel] Dodavanje radnog lista iz koda 11.07.2007. u 11:17 · pre 235 meseci #9

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).

Re: [Excel] Dodavanje radnog lista iz koda 17.07.2007. u 22:37 · pre 234 meseca #10

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

Potpis

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Re: [Excel] Dodavanje radnog lista iz koda 20.07.2007. u 09:03 · pre 234 meseca #11

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

Re: [Excel] Dodavanje radnog lista iz koda 25.07.2007. u 12:00 · pre 234 meseca #12

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

Potpis

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Dodavanje_lista_V2.xls31k

Forum kao aplikacija na telefonu

Srodne teme