Příspěvky uživatele

Tak je to jednoduché, až čumím....přesto bych to dohromady takhle nedal :(

Každopádně funguje úplně dokonale.

Děkuji převelice.

Ahoj.
Opět bych rád poprosil o pomoc s dávkovým zpracováním excelu.
V jednom souboru ("zdroj.xlsx") mám mnoho listů a každý tento list bych chtěl uložit jako samostatný excel soubor, který obsahuje pouze jeden list.
Dokázal bych to udělat tak, že makro bude obsahovat pár řádků pro každý název listu zvlášť, ale listů je moc a bylo by to dost dlouhé. Určitě to jde udělat elegantněji.
Velmi děkuji za podporu

Přílohu přidávám.
Soubor makro, obsahuje v modulu2 již funkční makro, které dělá přesně to, co jsem potřeboval. Jen to asi není úplně "elegantní".
Před položením prvního dotazu jsem si totiž absolutně neuvědomil možnost použití activeworkbook.name ... díky za nakopnutí.

Tímto beru dotaz za zodpovězený, ale pokud by měl někdo potřebu to ještě poupravit, klidně se nechám poučit.

http://www.edisk.cz/stahni/24784/a.zip_815.26KB.html

Ahoj.

Mám makro (taky tady z WALL-ukázka níže), kterým upravuji větší množství souborů (cca vždy 50 najednou). V příkladu níže do konkrétní buňky vkládám datum.
Mohli byste prosím poradit nějaký příkaz, který bych do makra vložil a kterým by se do konkrétní buňky uložila definovaná část názvu souboru?
Například: Z excelu "makra.xlsm", kde mám uložena různá makra, spustím toto jedno, které postupně pootevírá soubory a vždy do buňky A3 vloží část názvu aktuálně otevřeného souboru. Toto uloží a pokračuje dále.
Název souboru je např. "ST-WI p 1001 Vzor_R0.xlsx" - do buňky A3 se vložil text "ST-WI p 1001". Do buňky A4 je vložil text "Vzor".

Děkuji předem za popostrčení.

Sub MAKRO()

Dim SESIT As Workbook
Dim i As Long, Cesta As String

If Len(Cells(10, 2)) = 0 Then
MsgBox "Nejdříve nacti soubory...", vbCritical, "CHYBA"
Exit Sub
End If

Cesta = Range("b3")

Application.ScreenUpdating = False
Application.DisplayAlerts = False

For i = 10 To Range("b65000").End(xlUp).Row
Workbooks.Open (Cesta & Cells(i, 2)) 'otevreni souboru

Range("L1:AM5").Select
Range("AF17:AH17").Select
ActiveCell.FormulaR1C1 = "4/28/2014"

Workbooks(Workbooks.Count).Close savechanges:=True 'zavreni souboru
Next i

Application.ScreenUpdating = True
Application.DisplayAlerts = True

MsgBox "Provedeno...", vbInformation, "Hotovo..."
End Sub

eh...nevložil se soubor, moc dat....
http://www.edisk.cz/stahni/96239/test.zip_959.4KB.html

Nakonec jsem se moc nedokázal poprat s návrhem Opičáka, takže jsem za pomocí zdrojů na internetu zplodil toto.

Vložená data se vždy při aktualizaci mažou a nahrávají znovu, protože zdrojové soubory mohou být aktualizovány a tato aktualizace se musí v seznamu zohlednit.

Jen není dořešeno, aby se při generování seznamu souborů ve složce vynechal soubor "seznam.xlsm", ten zatím mažu ručně.

Opičák: Výborně, funguje. Akorát je to trochu složitější, než jsem čekal, takže mám problém si to upravit, když potřebuju kopírovat třeba víc oblastí... Ale to už se pokusím si poradit sám. Každopádně díky moc.

Ahoj.
Narazil jsem na toto téma a rád bych se zeptal na drobnou úpravu.
V jedné složce budu mít soubory, jejichž název bude narůstající číslená řada (např. 635.xls, 636.xls, 637.xls).
Ve stejné složce bude soubor s názvem "seznam.xlsm".
Tento soubor by měl obsahovat vybraná data ze všech číselně pojmenovaných souborů ve složce, jen uspořádání bude do řádků.
Lze zde uvedené makro upravit tak, aby provedlo (třeba po stisku tlačítka) postupné otevření všech souborů s číselným názvem, vykopírování a požadovaných dat do řádku v "seznam.xlsm"? Ideálně, aby v řádku byl také uveden hypertextový odkaz na zdroj.
Dovedu si asi dát dohromady kopírování těch dat (kopie oblasti ze zdroje do buňky v seznamu), ale neovládám moc práci se soubory.
Předem děkuji za nakopnutí.

Jasný, když otevřu nějaký sešit, kliknu na jakýkoliv obrázek, tak pak můžu zkomprimovat všechny obrázky najednou.
Nicméně já takových sešitů mám 50, každý obsahuje různý počet obrázků (fotek) a ty jsou v každém sešitu umístěny jinde.
Makro by mělo sešit otevřít, zkomprimovat všechny obrázky v něm, uložit a zavřít. A právě s tou kompresí si nevím rady....otevírání, ukládání apod. už dám.
Posílám jeden z dokumentů pro ilustraci.

Ahoj.

Chtěl bych vás poprosit o pomoc s kompresí obrázků ve více sešitech.
Mám ve složce 30 sešitů a každý z nich obsahuje několik fotek, které tam jejich tvůrce vložil. Bohužel bez ohledu na jejich rozlišení a velikost, takže zmíněné sešity mají nyní velikost i desítky MB.
Chtěl jsem si makrem každý sešit otevřít, použít funkcí komprese obrázků a uložit.
Bohužel nevím, jakým příkazem ji vyvolat, ani jak ošetřit výběr obrázku, který má v každém dokumentu jiný název např.
ActiveSheet.Shapes.Range(Array("Picture 25")).Select
Pokusím se dodat sešit pro příklad.

Palooo:
Děkuji mnohokrát, tohle je přesně to, co nyní potřebuji.
Tyhle řádky mi chyběly.
Workbooks(Workbooks.Count).ActiveSheet.PageSetup.Zoom = False
Workbooks(Workbooks.Count).ActiveSheet.PageSetup.FitToPagesWide = 1
Workbooks(Workbooks.Count).ActiveSheet.PageSetup.FitToPagesTall = 1
S tímhle už si poradím... škoda, že tu nikde nevidím tlačítko THX ;)

to marj...: ano...to je řešení... a pokaždé, když budu potřebovat upravovat tisk, tak postupně pootevírat všech cca 50 sešitů a tam vždy makro spustit.
Neměl by někdo nějaké elegantnější řešení?
Ten soubor z přílohy prvního příspěvku od Pokiho je totiž úplně výborný. Klidně bych si ho lehce poupravil pro moje potřeby, jen nevím, co napsat místo "PaperSize" atd...

Ahoj.
V minulosti mi tu někdo z vás pomohl vyřešit hromadné nastavování formátu stránky u excelů v jedné složce (v příloze).
Nyní bych se chtěl zeptat, zda by bylo možné tuhle chytrou věcičku naučit měnit také další atributy tisku, jako je např. "Přispůsobit list na jednu stránku" atd. .
Dost často pracuji s větším množstvím souborů, které musím do teď vždy po jednom otevírat a nastavovat.
Díky moc za ochotu...

Šel bych na to funkcemi VLEVO, VPRAVO, ČÁST...
Sám to používám v obdobném případě.

Tak jsem vyzkoušel vámi navržená řešení a super je to od "AL" . Nicméně i to Opičákovo si tu schovám pro případně pozdější použití jinde.
Jsem na makra absolutní střevo - umím si akorát nahrát opakované činnosti, ale úprava kódu už je pro mě dost složitá věc.
Dost mi pomohly ty komentáře v kódu, takže jsem si to upravil tak, aby fungovalo podle mých představ.
Díky vám všem za snahu

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje