Stránka 1 z 1

Excel - makro, uložení, název souboru z buňky

Napsal: 13 bře 2013 13:34
od Zbxxnek
Ahoj, :smile:

mám problém s ukládáním přes makro. Mám nastaveno aby se jeden list v excelu uložil do daného umístění pod názvem z buňky, která se po vytisknutí listu změní o hodnotu 1. Je to pořadové číslo.
Vše funguje dobře a když uložím makrem soubor 1.xls a poté vytvořím další soubor s názvem 2.xls a ten mi přepíše hodnoty v souboru 1.xls. A potom jsou hodnoty stejné jako v 2.xls. Každý další vytvořený soubor změní všechny soubory vytvořené předtím.

doufam že jsem to napsal srozumitelně.

Potřebuji docílit toho aby se mi uložené listy nepřepisovaly posledním uloženým souborem.

V makrech se moc nevyznám a i toto makro jsem vytvořil smícháním několika maker , které jsem našel na netu, proto Vás prosím o srozumitelnou odpověď :?

děkuji moc :thumbup:

zde je makro které jsem vytvořil:


Sub Makro3()
'
Sheets("tisk").Select
ActiveSheet.Copy

ChDir "C:\KOVOŠROT\váha\"
ActiveWorkbook.SaveAs Filename:=Range("G1")
ActiveWorkbook.Close (False)

Application.ActivePrinter = "HP LaserJet M1522 MFP Series PCL 6 na Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("vstup").Select
Range("E1").Select
ActiveCell.Value = ActiveCell.Value + 1
Range("B3").Select
End Sub

Re: Excel - makro, uložení, název souboru z buňky

Napsal: 13 bře 2013 20:56
od Mirdad69
Ahoj,
když si prohlédnu to makro, tak z něho vyplývá:
1) list "Tisk" zkopíruješ do nového sešitu
2) nový sešit pojmenuješ hodnotou z buňky G1 tohoto vykopírovaného listu "Tisk"
3) sešit zavřeš a vrátíš se do toho původního sešitu
4) přepneš se do listu Vstup
5) v listu "Vstup" připočteš k hodnotě v buňce E1 jedničku
Z toho plyne, že pokud to makro spustíš, tak pokud jsi nějakým jiným způsobem neupravil hodnotu v buňce Sheets("Tisk").Range("G1"), vždy se vytvoří soubor 1.xlsx.

Re: Excel - makro, uložení, název souboru z buňky

Napsal: 14 bře 2013 09:52
od Zbxxnek
Buňka G1 v listě "TISK" je propojená s buňkou E1 v listě "VSTUP", takže ta hodnota se tam mění automaticky tím makrem právě o hodnotu 1 po spuštění makra. Takže ta hodnota se tam mění a i soubory se ukládají v pořadí jak se mění hodnota po spuštění makra. Ale jak jsem již psal všechny vytvořené soubory přepíše naposledy vytvořený soubor.

Pro lepší představu jsou to tabulky na vážení při výkupu šrotu, v listu "VSTUP" zadávám hodnoty jako je: SPZ, Jméno, hmotnost na příjezdu, hmotnost na odjezdu, druh materiálu, název dodavatele atd... List "TISK" je vzhledově upraven pro tisk kde jsou již všechny vstupní hodnoty z listu "VSTUP" zpracovány a dále dle názvu zadaného dodavatele v listě "VSTUP" se v listě "TISK" přiřadí IČO, DIČ a adresa firmy. Takže představa je taková že nejdřív zadám hodnoty v listě "VSTUP" po zadání všech hodnot zmáčknu mnou vytvořené tlačítko tisk, které spustí makro. To makro by mělo vybrat list TISK a uložit ho do daného adresáře pod názvem hodnoty z buňky "VSTUP" E1(např 1 takže soubor se uloží jako 1.xls), která je propojená s buňkou "LIST" G1 (tudíž stejná), dále by mělo tento list vytisknout na dané tiskárně, vybral list "VSTUP" a v buňce E1 navýšit hodnotu o 1.

Re: Excel - makro, uložení, název souboru z buňky

Napsal: 14 bře 2013 10:23
od Mirdad69
A v tom listu TISK máš kromě buňky G1 propojení na list VSTUP také v jiných buňkách? Pokud ano, tak se příkazem activesheet.copy zkopírují i ta propojení. A když pak otevřeš soubor 1.xlsx, tak je v těch propojených buňkách to samé, co je v listu TISK v tom původním souboru.

Re: Excel - makro, uložení, název souboru z buňky

Napsal: 14 bře 2013 11:01
od Zbxxnek
Aha, ano to mám ve více buňkách. Jaký příkaz bych měl tedy použít aby se nekopírovalo to propojení?

Re: Excel - makro, uložení, název souboru z buňky

Napsal: 14 bře 2013 11:44
od Mirdad69
Za ActiveSheet.copy bych přidal tento kód:

Kód: Vybrat vše

Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Range("A1").Select



Omlouvám se, při kopírování mi tam vypadl jeden řádek.

Přidal jsem ještě verzi pro export do pdf, pracuju s Office 2007, tak nevím, zda ti to bude fungovat.
Všechno to, co jsem dělal, jsem si nahrál přes záznamník maker, tak můžeš experimentovat sám.

Re: Excel - makro, uložení, název souboru z buňky

Napsal: 15 bře 2013 08:04
od Zbxxnek
Hází mi to chybu, ale nevím jestli jsem to do toho makra vložil dobře. Mohl by ses na to prosím Tě podívat a vložit to do toho makra "jenulož" a vyzkoušet to?

nevím si s tím rady. Možná je to tím že mám jen office 2003. posílám celý sešit.

Ještě mě napadlo, že kdyby se to uložilo do daného adresáře jako pdf tak by mi to taky plně vyhovovalo, ale neumím to makro vytvořit :-(

Re: Excel - makro, uložení, název souboru z buňky

Napsal: 15 bře 2013 09:46
od Mirdad69
Upravil jsem předchozí příspěvek.

Re: Excel - makro, uložení, název souboru z buňky

Napsal: 15 bře 2013 10:45
od Zbxxnek
Perfektní, funguje to. Díky, díky moc :thumbup:

to PDF na 2003 nefunguje, ale to nevadí.
ještě jednou díky :thumbup:

Re: Excel - makro, uložení, název souboru z buňky

Napsal: 15 bře 2013 11:20
od Mirdad69
A co to nahradit formátem xlTypeXPS (otevře se v prohlížeči)?