Makro v Excelu Vyřešeno

[zabi]

Zdravím,
chtěl bych se zeptat na možnost v Excelu. Je možné vytvořit makro, které po jeho spuštění uloží daný list do jiné složky? A název dokumentu byl pokaždé jiný... (třeba 1, 2, nebo datum z určité buňky????

Díky za info

[Reklama]

[mike007]

Ano. Lze to provést.

[zabi]

A je to nějak těžké na vytvoření? Nedá se to třeba někde stáhnout...?

[mike007]

Napiš mi přesně jak chceš aby to pracovalo a já ti něco vytvořím.

[zabi]

Mam jeden sesit, v nem 3 listy. 2 a 3 list - zadávám data, na 1. je jejich prehled. v 2 druhem listu mam bunku s aktualnim datem + pár tlačitek (uložení, vymazání buněk..). Teď potřebuji tlačítko (na toto makro).
Popis:
1)vyplním si tabulky
2) kliknu na tlačítko -> celý sesit se mi uloží jako kopie do jiné složky na Flash disku, a v názvu bude mít to datum z buňky listu č.2 (může být i jiné - samozřejmě tak, aby se mi po každém uložení měnil název (aby se pořád dokola nepřepisoval jeden soubor...)).

Tak nějak vypadá moje představa...

Zatím Díky

[mike007]

To je mi jasný, ale spíš potřebuju vědět:

1. Přesný název druhého listu
2. Název buňky s aktuálním datem
3. Kolikrát za den spustíš toto makro? Pokud vícekrát, bude se muset ještě generovat nějaké pořadového číslo, tj. soubor_10012009_1.xls ; soubor 10012009_2.xls
4. Přesnou cestu do složky, kam se budou soubory ukládat nebo ta cesta bude relativní?
5. Jen tak ze zvědavosti: Proč máš vytvořené tlačítko na ukládání sešitu? Ti nestačí to v Excelu (disketka), případně Ctrl+S ?

[zabi]

1) Jednotlivci
2) B1
3) Mno, dělá se v tom cca 1-2x týdně. Toto makro by se spouštělo jen na konci práce, takže žádné pořadové číslo nemusí být...
4) Tak je to na Flash-> K:\Záloha, tu cestu si eventuelně upravím...:-)
5) V poho:-D Mno, jelikož v tom pracuje i jiná osoba, tak je třeba, aby to ovládání bylo co nejjednodušší. Samozřejmě, že disketka stačí (i ctrl + s), ale tak pořád existují i lidé, co je pro ně PC složité... - zní to blbě, vím...
Mě to nic neudělalo, tak proč bych to tam nevytvořil:-)

[mike007]

Ok, dej mi minutku...

[zabi]

Jasně, to nehoří:-)

//Necituj předchozí příspěvek, viz pravidla.
//Upraveno
//mike007

[mike007]

Vykoumal jsem ti to trošku jinak. Aktuální datum netřeba brát ze sešitu. Makro si ho zjistí samo.
Tak tady to je:

Sub ulozit()
Cil = "K:\Záloha"
On Error Resume Next
MkDir Cil
ActiveWorkbook.SaveCopyAs Filename:=Cil & _
"\" & "Záloha_" & (Format(Now, "d.m.yyyy")) & ".xls"
MsgBox "Soubor byl úspěšně uložen", vbInformation, "Uloženo"
End Sub

[zabi]

To jo, díky moc!!!

Dobře to funguje;-) Si fakt borec! Akorát, když na něj kliknu, zobrazí se v liště ukládání, vytvoří se ta záloha ale zřejmě se neuloží současný sešit, protože když ho hned chci zavřít, tam se mě ptá, jestli chci uložit změny...

P.S. Akorát nepoznal, že není zapojen F... Ale to je jedno, ten soubor je jen na F:-)

[mike007]

Myslel jsem, žes to chtěl zálohovat na K, nikoliv na F

Pokud chceš zároveň uložit originální sešit, tak před End Sub zapiš tento příkaz:
ActiveWorkbook.Save