Tako se začne da ne pišem cele kode.
Ali je kaka enostavna možnost da makro "prepričam" da mi nov list izpusti, ali ga moram napisati za vsak list posebej, kar pa bi verjetno podalšalo izvajanje? Je mogoče možno, da bi namesto "For Each" nekako naštel imena listov?
Lp
Pozdravljeni še enkrat,
Nikakor mi ne uspe pravilno vstaviti IF stavka. Poizkušal sem na spodnji način vendar deluje ravno nasprotno kot si želim se makro izvede samo na listu kjer se nebi smel .
Sub Gumb1_Klikni()
Dim list
For Each list In Worksheets
If list.Name = "List2" Then
list.Range("B5").Value = Time()
list.Range("C5").Value = Date
End If
Next
'ActiveWorkbook.Save
End Sub
Bi vas prosil če mi lahko kdo pove kje sem naredil napako.
lp
Peter
Sub Gumb1_Klikni()
Dim list
For Each list In Worksheets
If list.Name <> "List2" Then
list.Range("B5").Value = Time()
list.Range("C5").Value = Date
End If
Next
'ActiveWorkbook.Save
End Sub