MS Excel

Téma: přejmenovat list

Zaslal/a Honza 22.1.2010 8:01

Ahoj,
potřebuji poradit s přejmenováním nového listu
mám úvodním listu vložené tlačítko,

Private Sub CommandButton1_Click()
Sheets("faktura_vzor").Copy before:=Sheets("pohledavky")
End Sub

které mi vkládá kopii listu vždy před list pohledavky,
potřeboval bych aby se mi při vkládání listu zároveň nový list přejmenoval na faktura_001, faktura_002,....

seznam listu by pak vypadal následovně:
uvod, faktura_vzor, faktura_001, faktura_002,....,pohledavky

Dekuju za rady

Zaslat odpověď >

Poki(22.1.2010 9:19)#001101

ahoj,
stačí přidat jeden radek do kodu tlacitka tak, ze to cele bude vypadat takto:
Private Sub CommandButton1_Click()
Sheets("faktura_vzor").Copy before:=Sheets("pohledavky")
Sheets(Sheets.Count - 1).Name = "faktura_00" & Sheets.Count - 2
End Sub
citovat

Honza(22.1.2010 16:31)#001112

Ahoj,
děkuju mockrát, funguje bezvadněcitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.