kopirovanie listov (VBA, Excel)
Mam xls subor, v prvom liste su data a makro, z nich mam vyrobenych nasledne niekolko dalsich listov. Teraz potrebujem vyrobene listy - okrem prveho s neroztriedenymi datami a makrom - ulozit do noveho suboru. Ked sa jednalo len o jeden list, dal som .Copy a .savecopyas a bolo . . . ale to je len jeden list.
Ked pouzijem priklad priamo zo stranom MS, tak to padne na chybu subscript out of range . . .
ActiveSheet.Move Before:=Workbooks("Test.xls").Sheets(1)
Neskúšal som, ale napadá ma čo tak vymazať prvý list so zdrojovými dátami a zvyšok uložiť štandardne Saveas
aj to ma napadlo, vyskusam, len potrebujem vyhodit aj to makro co tam je . . . nechcem aby sa v toim pripadne rypali . . .
Koukni SEM
Je tam odkaz od kolegy výše, kterej mi dal když sem řešil něco podobnýho.
diky, pozriem
Medzitym som nasiel, neviem ci chybu . . .
ActiveSheet.Move Before:=Workbooks("Test.xls").Sheets(1)
musi sa vyrobit novy prazdny xls aby mal harok, a potom donho mozem presuvat, a neda sa pouzit premenna s cestou, len meno na nazov subooru . . .
takze ulozit aj s cestou, ale odkaz na subor len meno