Neskodilo by, kdyby ses vyjadril presne. Ten muj kod nemuze hlasit kolik listu je nacteno. Pokud to neco hlasi, tak to je pocet zkopirovanych listu a v tom stadiu by opravdu mely byt zkopirovane.
Nezbyva nez abys provedl zakladni troubleshooting. Zaremuj (na zacatek radku vloz apostrof) prikaz Application.ScreenUpdating = True.
Nasad zarazku (F9) na kopirovaci radek
Range(Cells(1, 1), Cells(iLastR, iLastC)).Copy (ws.Cells(iMxRow, 1)) a spust makro (F5). Procedura se zastavi na zarazce, radek zustane zluty.
Zkontroluju hodnoty vsech promennych, jestli zodpovidaji skutenosti. Dal uz krokuj F8. Hned po prvnim kroku se musi prvni list vybraneho souboru nakopirovat. Jestli ne, napis mi hodnoty vesch promennych - uvidis je v Locals Window, ktere zobrazis pres VBA menu View(Zobrazit) - Locals Windows). Snaz se premyslet, co by mohlo byt spatne. Jestli ten kopirovany list (v tomto okamziku bude zrovna aktivni) opravdu nejaka data obsahuje, na kterem radku ta obast dat konci, jestli tomu odpovida hodnota promenne iLastR atd... Chces-li makra pouzivat, musis taky vynalozit usili. Jinak budes odsouzen na excelovou zebrotu. A jeste neco: az zjistis kde byl problem, tak nam to taky rekni, ne jak vetsina tazatelu, kteri bud nenapisou nic, anebo jen...tak uz to funguje
citovat