< návrat zpět

MS Excel


Téma: Vytvoření makrem listy rss

Zaslal/a 12.8.2009 11:16

Chtěl bych se zeptat , jak vytvořím po spuštění makra např. k listu1 dalších třeba 10 listů s názvy třeba data1-data10? a pokud bude tento sešit obsahovat např. listy data1-data8 smazat tyto nadefinované listy a pak následně znova vytvořit listy data1-data10.

Zaslat odpověď >

#000638
Jeza.m
Třeba takhle :-) :

Public Sub listy()
On Error Resume Next

Application.DisplayAlerts = False

For i = 1 To 10
Sheets("data" & i).Delete
ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
ActiveWorkbook.ActiveSheet.Name = "data" & i
Next

Application.DisplayAlerts = True
End Sub


M@citovat
#000640
avatar
Toto by se mi taky hodilo , ale mě by to asi takto nechodilo mám list vyhdnoceni a potřebuji vytvořit např. 5 listů s názvy měst trebic,brno,ostrava,plzen,chomutov...jak to zmodofokovat? děkuji.citovat
#000641
Jeza.m
S drobnou úpravou lze použít takto:

Public Sub listy()
Dim mesto() As String
On Error Resume Next

mesto = Split("trebic,brno,ostrava,plzen,chomutov", ",")

Application.DisplayAlerts = False

For i = 0 To UBound(mesto)
Sheets(mesto(i)).Delete
ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
ActiveWorkbook.ActiveSheet.Name = mesto(i)
Next

Application.DisplayAlerts = True
End Sub


M@citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Oddělovač polí

Milan-158 • 1.3. 16:01

Oddělovač polí

Whooocak • 1.3. 15:14

Vkládání dat z formuláře na zamknutém listu.

Milan-158 • 1.3. 15:12

Vlastne planovanie zmien

Anonym • 1.3. 7:56

Vkládání dat z formuláře na zamknutém listu.

Začátečník • 28.2. 19:34

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:05

Vkládání dat z formuláře na zamknutém listu.

Zdenys84 • 28.2. 19:00