Kopírování listu Vyřešeno

[Jsimi]

Ahoj,
Prosím o radu jak vytvořit kopie 1 listu. Na listu 1 bude tabulka s daty a těch listů potřebuji celkem 31 očíslované od 1 do 31 s tím že budou totožné.
Standartním spůsem kopírování a následné přejmenování každého listu mi připadá pracné. Neexistueje nějaký jednoduší způsob?
Díky moc.

[Reklama]

[Azuzula]

Téměř vždy existuje jednodušší způsob
Tady jsem dala dohromady jednoduché makro. Kopíruje list šablona a každý nový list pojmenuje číslem 1 až 31.

Kód: Vybrat vše

Sub nove_listy()
Dim i As Integer
Dim pocet_listu As Integer

For i = 1 To 31 'počet listů
    pocet_listu = Sheets.Count
    'kopíruje list
    Sheets("šablona").Select
    Sheets("šablona").Copy After:=Sheets(pocet_listu)
    'pojmenuje list
    ActiveSheet.Name = i
Next
End Sub


[Jsimi]

Super věc. Moc dík