Stránka 1 z 1
makro na nové listy v Excelu
Napsal: 03 čer 2006 10:51
od kropec
Prosím jak napsat makro na přidání listů (počet si zadám sám) a pokud to jde i s názvy.
Napsal: 04 čer 2006 12:03
od mmmartin
Jak napsat nevím, ale můžeš makro zaznamenat jako tzv. klávesové: Dáš Nástroje/makro/záznam nového makra, zadáš jméno a případně klávesovou zkratku pro spuštění a tím přejdeš do režimu záznamu. V něm provedeš manuálně to, co má makro dělat - pozor! neklikat při tom myší na "tlačítka" na obrazovce, používat klávesové zkratky - pak dáš Nástroje/makro/ukončit záznam a je hotovo.
Napsal: 04 čer 2006 14:14
od kropec
Asi sme si nerozuměli nebo sem zadal špatně otázku. Mám udělaný makro na 1 list, já ale potřebuji těchto listů konkrétně 12 s názvy měsíců.
Sub list_nový_název()
On Error Resume Next
Dim Aktual_list_jmeno As String
Dim Nove_jmeno_listu As String
Dim pocet_listu
Sheets(a).Select
pocet_listu = a - 1
If Error = "Subscript out of range" Then
Aktual_list_jmeno = ActiveSheet.Name
Nove_jmeno_listu = Application.InputBox(vbCrLf & "Zadej nový název listu", "Název listu ...")
If Nove_jmeno_listu <> "" Then
ActiveSheet.Select
Sheets.Add
ActiveSheet.Name = Nove_jmeno_listu
Else
Exit Sub
End If
Sheets(1).Select
End If
End Sub