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

[Zbxxnek]

Ahoj,

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

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

[Reklama]

[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.

[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.

[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.

[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í?

[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.

[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

[Mirdad69]

Upravil jsem předchozí příspěvek.

[Zbxxnek]

Perfektní, funguje to. Díky, díky moc

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

[Mirdad69]

A co to nahradit formátem xlTypeXPS (otevře se v prohlížeči)?