< návrat zpět
MS Excel
Téma: VBA kopírování na poslední volný řádek
Zaslal/a meffisto 20.9.2017 19:50
Prosím o pomoc s makrem na kopírováním mezi dvěma sešity. Mám sešit import2.xlsm do kterého potřebuji nakopírovat data z sešitu plan_aktual.
V přiloze mám soubory kde jsem zkoušel různá makra, jak kopírování z xlsx souboru (první list), tak i import csv pomocí QueryTables (třetí list), řešení na druhém listu jsem našel někde na fóru. Bohužel mám problém s tím, že neumím, nastavit makro, tak aby další kopírování nepřepsalo řádky které tam jíž jsou (tak mi to funguje teď), ale přidaly se na poslední prázdný řádek. Protože sešit plan_aktual bude sloužit jako zdroj dat, který se bude každý den měnit. Na konci makra mám odstranění duplicit, které mi zajístí to abych v sešitě import2 neměl duplicitní záznamy. Nevím které řešení je vhodnější protože by tam mělo zůstat nastavené filtrování.
Tak jestli by mi někdo nemohl pomoc s kódem který mi zajistí to aby se kopírovalo na poslední volný řádek? Děkuji
Příloha: 37684_import.zip (73kB, staženo 48x)
elninoslov(6.10.2017 23:42)#037841 Zaujímavé ...
Keď si zoberiem číslo 41524,5981365741 (čo zodpovedá dátumu 7.9.2013 14:21:19) a dám ho naformátovať ako dátum v tom Vašom XLSM, alebo v hocijakom inom súbore, zobrazí ho správne, ale keď to isté urobím vo Vašom XLSX, zobrazí ho ako 8.9.2017 14:21:19. Bez makra, s makrom nič nerobím. Zaujímavé, bude polnoc, nič ma nenapadá. Uvidíme čo na to múdrejšie hlavičky
citovat
elninoslov(7.10.2017 18:59)#037844 Zosúladte si dátumové systémy v súboroch. Jeden používa 1904 a druhý nie.
Súbor - Možnosti - Rozšírené - Pri výpočte tohto zošita - Použiť dátumový systém 1904.
citovat
meffisto(9.10.2017 6:33)#037857 Ano. měl jsi pravdu. Děkuji. Tohle bych nehledal.
citovat