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

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: 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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse