< návrat zpět

MS Excel


Téma: exportování konkrétního listu do nového sešitu rss

Zaslal/a 24.11.2022 15:29

Dobrý den,
prosím o pomoc.
V příloze posílám dokument.
Potřeboval bych ze sešitu "ukol" vyexportovat do nového sešitu pomocí makra (přes tlačítko) list "VYSLEDEK" s výslednými hodnotami a to pouze oblast A1:H12.
Název nového sešitu aby byl shodný s názvem uvedeným v listu "VÝSLEDEK", buňka B2 - nyní v našem případě "parta 1"
Sešit aby byl ve formátu základním (bez podpory maker) - .xlsx
Cesta pro uložení nového sešitu aby byla shodná s cestou, kde je nyní aktuálně sešit "ukol".
Exportovaný list aby neobsahoval tlačítko "EXPORT LISTU VYSLEDEK"

Když budou kroky ve stručnosti okomentovány, tak budu moc vděčný. Rád bych se to naučil.

Moc děkuji všem za ochotu.

Příloha: zip53994_ukol.zip (12kB, staženo 3x)
Zaslat odpověď >

#053995
PavelJanec
Nejjednodušší to asi bude, když si zaznamenáte makro s tím, že si odstraníte veškerý obsah mimo A1:H12 a nakonec přidáte
-------------------------------------------------------------

ThisWorkbook.Worksheets("VYSLEDEK").Copy

With ActiveWorkbook

With .Worksheets(1)

R = .Cells(.Rows.Count, "A").End(xlUp).Row

With .UsedRange

.Copy

.PasteSpecial Paste:=xlPasteValues

.Resize(.Rows.Count - R + 1).Offset(R, 0).EntireRow.Delete Shift:=xlUp

End With

.Buttons(Array("Button 1")).Delete

End With

Application.DisplayAlerts = False

.SaveAs "C:\parta 1.xlsx", xlOpenXMLWorkbook

Application.DisplayAlerts = True

.Close False

End With

------------------------------------------------------
Jen ta cesta vede na disk C:, protože jste jí neuvedl a jestli to chcete vždy do stejné složky, ať se jmenuje, jak se jmenuje, tak to bude otázka na zkušenější. A podotýkám, že to není z mé hlavy, ale od uživatele Elninoslov, já se taky jen učím.citovat
#053997
avatar
Děkuji.
Pouhým okem jsem si všiml, že se dokument bude ukládat vždy jako "parta 1". Potřeboval bych, aby se mi ukládal tak, jak jej nazvu v listu "ZDROJ". Čerpáno bude poté z buňky B2 v listu "VYSLEDEK".
Dále ukládání do složky, kde se nachází zrovna sešit "ukol" je pro mě dosti směrodatné.

Každopádně děkuji za pomoc. S tím makrem pro odstranění okolního textu máte asi pravdu. Nejspíše to tak bude nejjednodušší. Samozřejmě, kdyby existovala i jiná varianta, rád jí uvítám.citovat
#053998
Stalker
Například takto:
Příloha: zip53998_ukol.zip (20kB, staženo 4x)
citovat
#053999
avatar
To je ono 9 a i s popisem 1
Moc děkuji mistře a samozřejmě děkuji i @PavelJanec 1citovat
#054000
PavelJanec
Přidávám se, perfektní, taky to využiju.citovat
#054001
Stalker
Ještě mám další variantu, kde do nového sešitu kompletně zkopíruje vybraná oblast včetně formátování a odstraní se propojení mezi sešity, které tímto způsobem vzniká.
Příloha: zip54001_ukol-copy-bez-propojeni.zip (21kB, staženo 1x)
citovat
#054003
avatar
perfekto.
Moc děkuji. Lepší už to být nemůže 5citovat

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

přečíst platbu a zapsat

PavDD • 25.11. 14:02

Zrušení podmíněného formátovní vložením do funkc

Jiří497 • 25.11. 12:56

Vložení na první volnou buňku ve sloupci.

PavelJanec • 25.11. 9:05

Vložení na první volnou buňku ve sloupci.

PavelJanec • 25.11. 8:53

Zrušení podmíněného formátovní vložením do funkc

Krifry • 25.11. 8:52

Prvních 5

Fantasyk • 25.11. 3:57

Vložení na první volnou buňku ve sloupci.

elninoslov • 25.11. 0:45