MS Excel

Téma: Záloha sešitu

Zaslal/a marficek119 27.7.2011 18:39

Zdravím, potřebuji pomoci s problémem.
Mám sešit na roční výkazy pracovní činnosti. Na konci roku musím zkopírovat sešit (vytvořit si zálohu př. rok 2010). V původním sešitě musím vymazat veškerá data a začínám vyplňovat od začátku (stím, že si přejmenuji sešit na př. rok 2011)
Potřeboval bych makro, které mě vytvoří kopii sešitu, pojmenuje ho na "rok 2010" (možná by bylo lepší, kdyby se list pojmenoval podle obsahu buňky A1 na listu1), a zeptá se mě kam se má uložit do PC, uloží se a zavře. Tím by se udělal export roku 2010.
Pomůže někdo? Zní to jednoduše, ale pokoušel jsem se upravit nějaká makra z wall, ale marně. Díky M.

Zaslat odpověď >

Shtuchka(27.7.2011 22:19)#005607

Z různých makra postavte jeden

Kopírování i uložení tohoto listu

Dim sCopyName As String

sCopyName = "My New Workbook.xlsm"

SelectedSheets.Copy
ActiveWorkbook.SaveAs Filename:=sCopyName, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled

Kopírování tohoto listu a jmenování z bunki A1

ActiveSheet.Copy Before:=Sheets(Sheets.Count)
ActiveSheet.Name = Range("A1").Value

Otázka, kám chcete uložit soubor

fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Excel Workbooks (*.xls), *.xls")
If fileSaveName <> False Then
Me.SaveAs Filename:=fileSaveName
End If

Zavření souboru

ActiveWorkbook.Closecitovat

Téma: Záloha sešitu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje