Princip bude asi takovýto:
1. Je potřeba vytvořit cyklus, který projde všechny listy.
2. V každém listu nalezne poslední řádek a ten překopíruje na souhrnný list.
Pokud by sis s tím dlouho nevěděl rady, tak pošli přílohu.
Nalezení posledního řádku lze např. takto.
P.
Př.:posledni_radek = ActiveSheet.Range("a1048576").End(xlUp).Rowcitovat
1. Je potřeba vytvořit cyklus, který projde všechny listy.
2. V každém listu nalezne poslední řádek a ten překopíruje na souhrnný list.
Pokud by sis s tím dlouho nevěděl rady, tak pošli přílohu.
Nalezení posledního řádku lze např. takto.
P.
Př.:posledni_radek = ActiveSheet.Range("a1048576").End(xlUp).Rowcitovat
RSS nejnovější články