Záloha - VBA Vyřešeno

[Dieesels]

Dobrý den,

Kód: Vybrat vše

Sub ulozit()
Cil = "D:\Data\Záloha"
On Error Resume Next
MkDir Cil
ActiveWorkbook.SaveCopyAs Filename:=Cil & _
"\" & "Záloha.xlsb"
MsgBox "Soubor byl úspěšně uložen", vbInformation, "Uloženo"
ActiveWorkbook.Save
End Sub

Pořeboval bych to upravit tak, aby se mi pro př. na listu1 v buňce A6 dala zadat adresa, kde se má daný soubor uložit.
Tzn. Cíl, by byl uveden na listu1 v buňce A6....příklad...
Jak na to?..

[Reklama]

[navstevnik]

Na listu1 v bunce A6 je adresa pro ulozeni: D:\Data\Záloha, pak v procedure nactes obsah bunky:

Kód: Vybrat vše

...
Cil = Worksheets("list1").Range("a6").Value
...

[Dieesels]

Děkuji, to je přesně ono...