MS Excel

Téma: Uložení sešitu

Zaslal/a pepča 7.11.2016 23:40

Ahojky.
Nahrál jsem si makro pro uložení sešitu, ale uložení je automaticky přesměrováno do dokumentů. Potřeboval bych , aby se sešit uložil vždy do té složky(podsložky)atd,kde se nachází originál s názvem dle buňky A1.Makro spouštím tlačítkem. Přikládám zjednodušený sešit.
Děkuji za každou odpověď.
Pepča

Příloha: rar

33369_kal.rar (12kB, staženo 23x)

Zaslat odpověď >

eLCHa(8.11.2016 7:49)#033372

například takto
dále pracujete s originálemSub Uloz()
Dim fname As String

fname = Range("A1").Value
With ThisWorkbook
.SaveCopyAs .Path & "\" & fname & ".xlsm"
End With 'ThisWorkbook

End Sub

pracujete s novou kopiíSub Uloz()
Dim fname As String

fname = Range("A1").Value
With ThisWorkbook
.SaveAs .Path & "\" & fname & ".xlsm", .FileFormat
End With 'ThisWorkbook

End Subcitovat

pepča(8.11.2016 11:41)#033377

Děkuji eLCHa.
Je to přesně co jsem potřeboval.
Moc děkuji.

Pepča

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.