• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: název listu - datum?

Zaslal/a hmik 26.4.2010 16:51

Dobrý den,

potřebovala bych prosím poradit, jestli je možné, když mám makro, které mi zkopíruje list "vzor", aby se ten zkopírovaný list vždy vložil na konec (úplně doprava) a jako název listu se zapsalo dnešní datum. Každý den takto přibývá jeden list, tzn. že na konci měsíce jsou v sešitu listy např. od 1.3. až do 31.3.

Předem díky za rady :-)

Zaslat odpověď >

---

Koci(27.4.2010 7:50)#001548

Dobrý den,
jednoduché makro pro vás

Public Sub PridaniListu()
Dim ws As Worksheet
Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
ws.Name = Date
End Sub

Pouze ho umístěte do údálosti které chcete. Zda to bude na tlačítko, zkratku kláves, či při otevření listu.citovat

hmik(27.4.2010 9:12)#001550

Moc děkuji, koukám, v jednoduchosti je krása! Nešlo by ještě nějak nadefinovat, aby se list pojmenoval jako datum ve formátu jen bez roku (d.m.) a ne s rokem (d.m.rrrr)?citovat

Poki(27.4.2010 9:54)#001551

uprava jen posledniho radku kodu:
Public Sub PridaniListu()
Dim ws As Worksheet
Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
ws.Name = Format(Date,"d.m.")
End Subcitovat

hmik(27.4.2010 10:02)#001552

To je geniální, paráda, díky! Škoda, že mě to nenapadlo...citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse