спасибо. но так он делает это только с теми строками, которые я в процессе записи макроса сделал. т.е. так мне очень много раз придётся вырезать-вставлять, а ещё и сохранить надо каждый файл...
brutal_shit добавил 05.06.2010 в 14:30
сделал по-ламерски такое вот. Rows("от:до") каждый раз на 1500 увеличиваются. и таких кусков всего 40🤪
главное - работает)))) но если кто-то может это упростить - буду очччч рад))))☝
Sub Макрос1() ' ' Макрос1 Макрос ' Макрос записан 05.06.2010 (Alexey) ' ' Rows("1:1500").Select Selection.Copy Sheets("Лист1").Select Sheets.Add ActiveSheet.Paste ActiveSheet.Select Application.CutCopyMode = False ActiveSheet.Move ActiveWorkbook.SaveAs Filename:="C:\shit\basa_1.xls", FileFormat:=xlNormal _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Windows("shit.xls").Activate Rows("1501:3000").Select Selection.Copy Sheets("Лист1").Select Sheets.Add ActiveSheet.Paste ActiveSheet.Select Application.CutCopyMode = False ActiveSheet.Move ActiveWorkbook.SaveAs Filename:="C:\shit\basa_2.xls", FileFormat:=xlNormal _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Windows("shit.xls").Activate
покупал статьи у ТС, всё качественно и грамотно. купил бы и эти, но денег нету.(
сайт продан за блиц на мастере (в личке) =)
всё ещё актуально..делаем ставки=)
пфф
rapidget :)
сам юзал когда-то)...
старт принят.
молодой был, глупый 🚬
brutal_shit добавил 25.06.2009 в 00:58
продажа также начата на mastertalk.
а одинаковых статей с проданным Вами в этой теме сателлитом о Чехии нету?
отправил в личку проект.)
отлично. прогнано быстро, отчёт прислан. доволен, спасибо =)
отправил в ЛС.)
