MS Excel

Téma: Uložit cestu

Zaslal/a pepča 8.2.2025 21:59

Ahojky. Opět bych potřeboval poradit. Ukládám kopii sešitu tlačítkem , ale potřebuji dále pracovat s originálem, kde se mi mažou data v ve všech listech v buňkách B2:Y233 a A152:A233. Na tomto fóru jsem našel makro které je ok, ale sešit ukládá do stejné složky. Potřeboval bych , aby se sešit uložil do složky:D/pokus/& jmeno. Jméno je hodnota buňky AC1. Po průběhu makra potřebuji dále pracovat s originálem.
Jak mám upravit toto makro:

Sub Uloz()

ActiveSheet.Shapes("Data").Visible = False
ActiveSheet.Shapes("FNe").Visible = False
ActiveSheet.Shapes("NOWRok").Visible = False

Dim fname As String

fname = Range("AC1").Value

With ThisWorkbook

.SaveCopyAs .Path & "\" & fname & ".xlsm"

End With
ActiveSheet.Shapes("Data").Visible = True
ActiveSheet.Shapes("FNe").Visible = True
ActiveSheet.Shapes("NOWRok").Visible = True

End Sub

Děkuji za odpověď.
Pepča

Zaslat odpověď >

elninoslov(9.2.2025 0:09)#057232

Sub Uloz()
With ActiveSheet
.Shapes.Range(Array("Data", "FNe", "NOWRok")).Visible = False
ThisWorkbook.SaveCopyAs "D:\pokus\" & .Range("AC1").Value & ".xlsm"
.Shapes.Range(Array("Data", "FNe", "NOWRok")).Visible = True
End With
End Subcitovat

pepča(9.2.2025 19:01)#057233

Děkuji za rychlou odpověď. Je to OK. Ještě jednou díky moc.
Pepčacitovat

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.