kopiranje delovnih listov

[balasko]

Lep pozdrav,

imam delovni list v excelu, ki bi ga moral skopirati 30 krat (rabim 31 listov, za vsak dan v mesecu), pa da se ne matram z vsakim posebej me zanima ali se da kako to rešiti, imena listov so naj od 1 do 31.

LP

Alen

[admin]

Koda: Izberi vse

'
' www.matjazev.net
'
' marec 2009
'
Sub KopirajList()
  Dim novList, i
  
  On Error GoTo napaka
  Application.ScreenUpdating = False
  For i = 1 To 31
    ActiveSheet.Copy before:=Sheets(1)
    ActiveSheet.Name = i
  Next
  
napaka:
  Application.ScreenUpdating = True
End Sub