Uzamčeno - nelze přidávat nové příspěvky.
co takto:
Sub ULOZ()
Dim Oblast As Range
Dim PlnaCesta As String
Set Oblast = Range("A2:H50")
PlnaCesta = ThisWorkbook.Path & "\archiv\" & Range("M10").Text
'vlozeni noveho sesitu
Workbooks.Add xlWBATWorksheet
'kopirovani oblasti
Oblast.Copy Destination:=Range("a2")
'ulozeni noveho sesitu
Workbooks(Workbooks.Count).SaveAs PlnaCesta
'zavreni noveho sesitu
Workbooks(Workbooks.Count).Close
End Subcitovat
Sub ULOZ()
Dim Oblast As Range
Dim PlnaCesta As String
Set Oblast = Range("A2:H50")
PlnaCesta = ThisWorkbook.Path & "\archiv\" & Range("M10").Text
'vlozeni noveho sesitu
Workbooks.Add xlWBATWorksheet
'kopirovani oblasti
Oblast.Copy Destination:=Range("a2")
'ulozeni noveho sesitu
Workbooks(Workbooks.Count).SaveAs PlnaCesta
'zavreni noveho sesitu
Workbooks(Workbooks.Count).Close
End Subcitovat
...Funguje!
RSS nejnovější články