< návrat zpět

MS Excel


Téma: Uložení jednoho listu a rozřazení dokumentu rss

Zaslal/a 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?

stop Uzamčeno - nelze přidávat nové příspěvky.

#023029
avatar
Třeba takto. Ale je to jen základní makro bez kontrol. Adresářová struktura musí být předem vytvořena.
Příloha: zip23029_sesit1.zip (13kB, staženo 34x)
citovat
#023030
avatar
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
#023035
avatar
Super, děkuji moc použil jsem zatím první způsob 10citovat
#023037
avatar
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
#023064
avatar
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: zip23064_sesit1.zip (13kB, staženo 30x)
citovat
#023073
avatar
Mnoja ten puvodni jsem předělal aby si ukladalo jiny název, takze iveco bude pouze pro prirazení do slozkycitovat
#023076
avatar
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
#023080
avatar
Pro *.xlsm - FileFormat:=xlOpenXMLWorkbookMacroEnabledcitovat
#023086
avatar
Děkuji moc za pomoccitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09