Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem Excel namnozeni listu

Zdravim, da se nejak v excelu (nejnovejsi office) namnozit listy hromadne? Mam na mysli, aby list 1 byl treba na 100 dalsich listech a nemusel sem to vykopirovat rucne, jedna se o jednoduchou sablonu.

Diky za odpoved

Předmět Autor Datum
showthread.php
jirka44 11.01.2017 18:26
jirka44
Použi VBA: Sub Copier () Dim x As Integer x = InputBox("Enter number of times to copy Sheet1") For…
pme 11.01.2017 18:32
pme
menšie úpravy: - zrýchlenie činnosti - vytvára kópie aktuálneho hárka - ukážka pridelenia vlastného… poslední
robert13 12.01.2017 07:48
robert13

Použi VBA:

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

menšie úpravy:
- zrýchlenie činnosti
- vytvára kópie aktuálneho hárka
- ukážka pridelenia vlastného názvu kópiám hárka

Sub Copier2()
    Application.ScreenUpdating = False
    x = InputBox("Enter number of times to copy Active Sheet")
    SheetName = ActiveSheet.Name
    For i = 1 To x
        ActiveSheet.Copy After:=ActiveSheet
        ActiveSheet.Name = SheetName & " - " & i
    Next i
End Sub

Zpět do poradny Odpovědět na původní otázku