Re,
vidis i sam nije nista komplikovano da objasnis jos u prvom postu dasi pocetnik
jer time olaksavas i sebi i drugima rad na tvom problemu pa umesto da dobivas delove kode
dobices kompletno resenje. Obicno ljudi koji traze pomoc za makro komande ako ne preciziraju dasu pocetnici
dobivaju delove kode jer za resto se snalaze sami.
Akosam dobro razumeo stati treba kompletna koda bi licila na ovako nesto
u isto vreme imas i komentare uz svaku liniju , tako mozes lakse razumeti strukturu kode .
Prekopiraj kompletnu kodu u jednom od tvoih modula
Cao
Code:
Option Explicit 'obavezna deklaracija variable "promenjljivih"
Const G As String = "Elitesecurity" 'ime za msgbox-ove nije obavezno
Sub KopijaLista() 'ime komande
Dim datum As Date, dan As Date 'deklaracija variable za datum i dan
Dim list As String 'deklaracija variable radnog lista
On Error GoTo 1 'tretiranje greske (u slucaju greske ici na liniju 1)
datum = Date + 1 'variabla datum dobiva vrednost danasnjeg datuma + 1 dan
dan = Date + 1 'variabla dan dobiva vrednost danasnjeg dana + 1 dan
list = Sheets(Worksheets.Count).Name 'variabla list dobiva ime (vrednost) zadnjega lista u radnoj svesci
Sheets("Sheet4").Select 'selekcionisati list4
Sheets("Sheet4").Copy After:=Sheets(Worksheets.Count) 'kopirati list4 i postaviti na kraju radnih listova
Sheets(Worksheets.Count).Select 'selekcionirati zadnji list
Sheets(Worksheets.Count).Name = "Sheet15" 'dodeliti ime zadnjem listu
Sheets("Sheet15").Range("A1").Value = Format(datum, "dd/mm") 'upisati sutrasnji datum list15 celija A1
Sheets("Sheet15").Range("B1").Value = Format(dan, "dddd") 'upisati sutrasnji dan list15 celija B1
On Error GoTo 0 'vratiti gresku na nulu
Exit Sub 'izaci iz procedure
1 'linija 1 u slucaju ako radni list15 vec postoji
Application.DisplayAlerts = False 'dezaktivirati DialogBox
ActiveSheet.Delete 'suprimiranje lista
Application.DisplayAlerts = True 'aktivirati DialogBox
MsgBox "Ovo ime Radnog Lista vec postoji ! > " & list, vbCritical, G 'poruka ili msgbox za informaciju
Sheets("Sheet4").Select 'selekcionisanje lista4
End Sub 'kraj komande
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!