Добрый день, пользователи Planete Excel.  
Помогите, пожалуйста, найти ошибку в макросе:  
Sub Macro3()  
'  
' Macro3 Macro  
' Macro recorded 04.01.2008 by Alexander L. Soloviev  
'  
 
'  
Worksheets("new").Activate  
Cells.Clear  
 
 
 
Set wb1 = Workbooks.Open("\\S2\ÂÝÄ\Delivery schedule\managers\Êîíöîâà ßíà\Áàçà ïîñòàâîê_AVTEL 2008_ßíà.xls")  
wb1.Activate  
 
   Set r1 = Range("Pisa")  
   ThisWorkbook.Activate  
   r1.Copy Destination:=Sheets("new").Range("A2")  
         
   wb1.Activate  
   Set r2 = Range("Bebra")  
   ThisWorkbook.Activate  
   r2.Copy Destination:=Sheets("new").Range("A2").Offset(r1.Rows.Count)  
         
   wb1.Activate  
   Set r3 = Range("Dortmund")  
   ThisWorkbook.Activate  
   r3.Copy Destination:=Sheets("new").Range("A2").Offset(r1.Rows.Count + r2.Rows.Count)  
     
   wb1.Activate  
   Set r4 = Range("Regensburg")  
   ThisWorkbook.Activate  
   r4.Copy Destination:=Sheets("new").Range("A2").Offset(r1.Rows.Count + r2.Rows.Count + r3.Rows.Count)  
     
   wb1.Activate  
   Set r5 = Range("Wuhu")  
   ThisWorkbook.Activate  
   r5.Copy Destination:=Sheets("new").Range("A2").Offset(r1.Rows.Count + r2.Rows.Count + r3.Rows.Count + r4.Rows.Count)  
     
   wb1.Activate  
   Set r6 = Range("HELLA")  
   ThisWorkbook.Activate  
   r6.Copy Destination:=Sheets("new").Range("A2").Offset(r1.Rows.Count + r2.Rows.Count + r3.Rows.Count + r4.Rows.Count + r5.Rows.Count)  
         
   wb1.Activate  
   Set r7 = Range("Delphi")  
   ThisWorkbook.Activate  
   r7.Copy Destination:=Sheets("new").Range("A2").Offset(r1.Rows.Count + r2.Rows.Count + r3.Rows.Count + r4.Rows.Count + r5.Rows.Count + r6.Rows.Count)  
     
   wb1.Activate  
   Set r8 = Range("Eurocir S.A.")  
   ThisWorkbook.Activate  
   r8.Copy Destination:=Sheets("new").Range("A2").Offset(r1.Rows.Count + r2.Rows.Count + r3.Rows.Count + r4.Rows.Count + r5.Rows.Count + r6.Rows.Count + r7.Rows.Count)  
   
   wb1.Activate  
   Set r9 = Range("Trelleborg")  
   ThisWorkbook.Activate  
   r9.Copy Destination:=Sheets("new").Range("A2").Offset(r1.Rows.Count + r2.Rows.Count + r3.Rows.Count + r4.Rows.Count + r5.Rows.Count + r6.Rows.Count + r7.Rows.Count + r8.Rows.Count)  
     
   wb1.Activate  
   Set r10 = Range("Europe Chemi-con")  
   ThisWorkbook.Activate  
   r10.Copy Destination:=Sheets("new").Range("A2").Offset(r1.Rows.Count + r2.Rows.Count + r3.Rows.Count + r4.Rows.Count + r5.Rows.Count + r6.Rows.Count + r7.Rows.Count + r8.Rows.Count + r9.Rows.Count)  
     
   wb1.Activate  
   Set r11 = Range("NEC")  
   ThisWorkbook.Activate  
   r11.Copy Destination:=Sheets("new").Range("A2").Offset(r1.Rows.Count + r2.Rows.Count + r3.Rows.Count + r4.Rows.Count + r5.Rows.Count + r6.Rows.Count + r7.Rows.Count + r8.Rows.Count + r9.Rows.Count + r10.Rows.Count)  
     
   wb1.Activate  
   Set r12 = Range("EBV")  
   ThisWorkbook.Activate  
   r12.Copy Destination:=Sheets("new").Range("A2").Offset(r1.Rows.Count + r2.Rows.Count + r3.Rows.Count + r4.Rows.Count + r5.Rows.Count + r6.Rows.Count + r7.Rows.Count + r8.Rows.Count + r9.Rows.Count + r10.Rows.Count + r11.Rows.Count)  
     
Set wb2 = Workbooks.Open("\\S2\ÂÝÄ\Delivery schedule\managers\Âàëèòîâà Òàòüÿíà\Ãðàôèê ïîñòàâîê_AVTEL_2008_Tatiana.xls")  
 
   wb2.Activate  
   Set r13 = Range("Custom")  
   ThisWorkbook.Activate  
   r13.Copy Destination:=Sheets("new").Range("A2").Offset(r1.Rows.Count + r2.Rows.Count + r3.Rows.Count + r4.Rows.Count + r5.Rows.Count + r6.Rows.Count + r7.Rows.Count + r8.Rows.Count + r9.Rows.Count + r10.Rows.Count + r11.Rows.Count + r12.Rows.Count)  
         
   wb2.Activate  
   Set r14 = Range("SWL")  
   ThisWorkbook.Activate  
   r14.Copy Destination:=Sheets("new").Range("A2").Offset(r1.Rows.Count + r2.Rows.Count + r3.Rows.Count + r4.Rows.Count + r5.Rows.Count + r6.Rows.Count + r7.Rows.Count + r8.Rows.Count + r9.Rows.Count + r10.Rows.Count + r11.Rows.Count + r12.Rows.Count + r13.Rows.Count)  
     
   wb2.Activate  
   Set r15 = Range("Cogeme")  
   ThisWorkbook.Activate  
   r15.Copy Destination:=Sheets("new").Range("A2").Offset(r1.Rows.Count + r2.Rows.Count + r3.Rows.Count + r4.Rows.Count + r5.Rows.Count + r6.Rows.Count + r7.Rows.Count + r8.Rows.Count + r9.Rows.Count + r10.Rows.Count + r11.Rows.Count + r12.Rows.Count + r13.Rows.Count + r14.Rows.Count)  
   
   wb2.Activate  
   Set r16 = Range("Mark")  
   ThisWorkbook.Activate  
   r16.Copy Destination:=Sheets("new").Range("A2").Offset(r1.Rows.Count + r2.Rows.Count + r3.Rows.Count + r4.Rows.Count + r5.Rows.Count + r6.Rows.Count + r7.Rows.Count + r8.Rows.Count + r9.Rows.Count + r10.Rows.Count + r11.Rows.Count + r12.Rows.Count + r13.Rows.Count + r14.Rows.Count + r15.Rows.Count)  
   
wb1.Close (False)  
wb2.Close (False)  
ActiveWorkbook.Save  
End Sub  
 
 
Начиная с позиции wb1.Activate  
   Set r7 = Range("Delphi")  
макрос перестает собирать данные. Подскажите в чем ошибка?  
 
Спасибо.

Подскажите, пожалуйста, можно ли синхронизировать 2 одинаковых файла, находящихся в разных книгах. У меня в нескольких книгах находится одна и таже база и много листов    
в каждой. Просто эти книги различаются по месяцам и чтобы не собиралась куча файлов, я разбила их по разным книгам.  
Как мне связать эти базы, чтобы , если я добываю данные в остальных книгах они тоже будут добавляться.  
И можно ли сделать так, чтобы при добавлении новых данных, та ячейка, где это произошло, выделялась бы каким то цветом.

Помогите разобраться. У меня имеется акт на контейнера, которые приходят на проверку каждые полгода, каждый раз приходится писать акты. Как сделать так, чтобы Excel  находил акты по последне дате и вставлял ее в акт. Я использую функцию Макс, но он мне находит последнюю дату , но акт вставляет максимальный по значению( чаще всего из прошлого обследования) например имеются 2 акта один- №97 за 2007г, а другой № 15 за 2008, номер контейнера одинаковый, так он мне вставляет №97, а дату"008г.  
Или придется все базы разбивать отдельно на полугодия и ссылаться на отдельную колонку. Может есть другой способ.  
Но дело в том, что контейнера приходят в разное время-одни 1 раз в 2007 г.Другие- 1 раз в 2008. Условное форматирование тоже не подходит.  
Более подробное пояснение есть в прикреплен файле

Подскажите, как удалить макрос из личной книги макросов( я хочу его заменить на другой). Когда я пытаюсь удалить макрос, то появляется запись, что макрос из скрытой книги нельзя,закрыть книгу и  только через меню файл-показать, но у меня такой команды нет. Что делать?

Подскажите, как сделать в Excel сравнение двух столбцов( в разных книгах), мне нужно, чтобы те строки, которые отличаются были выделены цветом( первый столбец  
идет по пррядку номеров, а второй нужно сравнить). Я пыталась использовать условное форматирование, но он находит дубликаты, причем во втором столбце у меня встречаются одинаковые номера(актов). Мне просто нужно узнать те строки, которые отличаются друг от друга( из 2 сравниваемых столбцов)

У меня в Excel набран текст, в котором по формуле меняются некоторые значения. Мне нужно создать акт отдельно на каждом листе. Как сделать большое количество копий листов(больше 100). Листы будут создаваться по одинаковому  образцу(а значения будут автоматически подставляться по формуле). Вручную делать очень долго.

Каждый день проделываются определенные действия расчеты определенные статьи затрат и сумма по ним. все эти действия по датам распределены в листах с названем даты.  
В конце месяца необходимо свести итоговые суммы за каждый день, нарастающим итогом. Работа сейчас поставлена так , что путем ссылок т.е. пойди в лист 01.01., возьми ячейку А1 и поставь в лист Свод ячейка А1+лист 02.01 А1 и тд.  
Как можно этот поцесс упростить