Makro pro uložení Vyřešeno

[Jsimi]

Ahoj potřeboval bych poradit jak pomocí makra provést uložit a zavřít. V makru by měla být uvedena cesta kam uložit např."Pokus","název" a k názvu by se automaticky přidalo číslo třeba z buňky A1. Výsledný sešit se tak bude jmenovat třeba sešit1, sešit2 atd. Poradí někdo?
Díky.
p.s.
Vyřešeno. Pro ty kdo hledá něco podobného přikládám hotové makro. Vycházím z nějaké šablony kde pokud změním nějaké data a dám uložit, změny se uloží do šablony a zároveň se vytvoří nový soubor s patřičným názvem a v novém souboru se smaže ovládací tlačítko s kterým to spouštím.

Sub Zavřít()
' Kontrola před uzavřením
'
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Jsou všechny údaje uvedeny správně?" ' Define message.
Style = vbYesNo + vbQuestion + vbDefaultButton2 ' Define buttons.
' Title = "MsgBox Demonstration" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic
' context.
' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.


ActiveWorkbook.Save


MyString = "Yes" ' Perform some action.
Else ' User chose No.
MyString = "No" ' Perform some action.
End If
'Uloží změny.
ActiveWorkbook.Save
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete

'cesta k souboru kam se bude ukládat.
'Jde použít i thisworkbook.path pro uložení na stejné místo kde je šablona
cesta = "C:\pokus"
'jméno souboru bez koncovky
jmeno = "název souboru č." & Range("U3") 'k názvu se takhle přidá číslo pořadí dle parametru v buňce U3

'ukládá soubor s novým jménem
ThisWorkbook.SaveAs Filename:=cesta & "\" & jmeno & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
MsgBox "Dokument uložen pod názvem " & jmeno

End Sub

[Reklama]