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 !!!