Poradna - Zkrácení Makra

Áno, dá sa to skrátiť na 2 riadky. 1. Range("A2:GB2").Copy Sheets(2).Range("C2") a 2. Sheets("a").Range("FK1:FK50").Copy Sheets(2).Range("GD2"), len si ešte doplňte zdrojový list pred prvé Range. Tie oblasti sa križujú, viete o tom?
Odpověď

Děkuji, ano vím, že se křižují, to je v pořádku. Zdrojový list v prvním řádku je stejný jako v druhém. Ještě jedna prosba, dalo by se nastavit, aby se hodnoty "FK1:FK50", které jsou ve sloupci po vložení do GD2 transponovali do řádku?
Odpověď

To je rozdiel, podľa toho, čo chcete robiť. Copy skopíruje aj vzorce, no zmení relatívne adresovanie. Value berie iba hodnoty - výsledky.
Odpověď

Děkuji za pomoc. Pomocí Makra si tak jednou za rok aktualizuji databázi společností z ARES. Viz. soubor. Otevřu sešit, spustím makro 75, po skončení zkopíruji data do jiného sešitu a zavřu bez uložení. Když to uložím, velikost souboru mnohonásobně vzroste. Potom znova otevřu, spustím makro odmaz. Smažou se již dotázané hodnoty a sešit se uloží. Potom dám opět makro 75. Z výsledných dat si pak pomocí vzorce vyzobnu potřebná data. Makro jsem chtěl zkrátit, abych těch dotazů mohl najednou provést více, neboť mi to pak hlásí, že je Makro příliš dlouhé. Celkově těch společností není zase tolik, ale je to takové nepohodlné a zdlouhavé. Dotazy samozřejmě dělám dle pravidel provozu wwwinfo.mfcr.cz/ares/ares_podminky.html.cz. Více je o službě zde wwwinfo.mfcr.cz/ares/ares_xml_basic.html.cz. V přiloženém souboru je ještě makro na jeden dotaz, kde je vidět co to dělá.
Odpověď

Dobrý den, transponování vyřešeno Sheets("a").Range("FK1:FK50").Copy Sheets("2").Range("GD2").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False, Transpose:=True
Odpověď