Třeba takto. Ale je to jen základní makro bez kontrol. Adresářová struktura musí být předem vytvořena.
Příloha: 
23029_sesit1.zip (13kB, staženo 35x)
citovat23029_sesit1.zip (13kB, staženo 35x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Uložení jednoho listu a rozřazení dokumentu
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: Uložení jednoho listu a rozřazení dokumentu 
Zaslal/a Ge-OR-GE 8.1.2015 8:52
Zdravím vespolek, potřeboval bych radu na vytvoření makra.. Mám excel sešit, ve kterém mám cca 20 listu a z těch listů bych chtěl ukládat pouze jeden ten první chtěl bych nastavit makro na tlačítko po stisknutí by se uložil při tom abych měl tam cestu uložení kam se to bude ukládat c:\EXCEL\ , ale chtěl bych k tomu ještě navíc když třeba napíšu do buňky "b2" NAPŘ. ZNAČKU AUTA: IVECO, AVIA, MAN nebo TATRA
tak aby se ten list uložil do té složky které bude obsahovat buňka "b2" takže např. buňka "B2= AVIA" , cesta bude c:\EXCEL\AVIA\ SOUBOR.XLS nebo když tam zadam do "B2= MAN" tak se uloží c:\EXCEL\MAN\SOUBOR.XLS, když tam nezadám nic tak cesta bude c:\EXCEL\ SOUBOR.XLS, půjde to tak nějak vymyslet?
Uzamčeno - nelze přidávat nové příspěvky.NeboSub VZOR()
Dim Cesta As String, Slozka As String, JmenoSouboru As String
Dim pzcx As Long
Cells(1, 2) = ThisWorkbook.Path
Cesta = Cells(1, 2)
Slozka = Cells(2, 2)
JmenoSouboru = Cells(3, 2)
If Not Slozka = vbNullString Then
Cesta = Cesta & "\" & Slozka
On Error Resume Next
If IsError(GetAttr(Cesta)) Then MkDir Cesta
On Error GoTo 0
Else
Slozka = "Blank"
End If
Application.DisplayAlerts = False
With Workbooks.Add
For pzcx = .Sheets.Count To 2 Step -1
.Sheets(pzcx).Delete
Next pzcx
.Sheets(1).Name = Slozka
ThisWorkbook.Sheets(1).Cells.Copy .Sheets(1).Cells
.SaveAs Cesta & "\" & JmenoSouboru
.Close False
End With
Application.DisplayAlerts = True
End Sub
citovat
Dim Cesta As String, Slozka As String, JmenoSouboru As String
Dim pzcx As Long
Cells(1, 2) = ThisWorkbook.Path
Cesta = Cells(1, 2)
Slozka = Cells(2, 2)
JmenoSouboru = Cells(3, 2)
If Not Slozka = vbNullString Then
Cesta = Cesta & "\" & Slozka
On Error Resume Next
If IsError(GetAttr(Cesta)) Then MkDir Cesta
On Error GoTo 0
Else
Slozka = "Blank"
End If
Application.DisplayAlerts = False
With Workbooks.Add
For pzcx = .Sheets.Count To 2 Step -1
.Sheets(pzcx).Delete
Next pzcx
.Sheets(1).Name = Slozka
ThisWorkbook.Sheets(1).Cells.Copy .Sheets(1).Cells
.SaveAs Cesta & "\" & JmenoSouboru
.Close False
End With
Application.DisplayAlerts = True
End Sub
citovat
Mno ještě bych měl jeden hodně podobný problém šlo by vytvořit makro aby při stisknutí tlačítka se uložil pouze první list, ale do PDF vč. rozřazení do složek jak u předchozího makra? Je to proto poněvadž do excelu se budou ukládat jako kdyby návrhy a do PDF konečné verzecitovat
Dodělal jsem uložení do pdf. Jak se ale bude řešit stav, kdy už v adresáři např. Iveco již jeden soubor bude?
Příloha: 23064_sesit1.zip (13kB, staženo 32x)
citovat23064_sesit1.zip (13kB, staženo 32x)Mnoja ten puvodni jsem předělal aby si ukladalo jiny název, takze iveco bude pouze pro prirazení do slozkycitovat
Jen upozornuji, že v tom původním souboru byla chyba v ukládání. Soubor se sice uložil, ale nejde otevřít.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články