Дорогие форумчане, буду вам очень признателен за помощь в следующем деле - я написал макрос, который по сути формирует из определенного массива данных из разных книг одну таблицу по определенному шаблону. Есть совершенно непонятная проблема - при перегоне содержимого ячеек из одной книги в другую первая книга может в определенный момент выполнения макроса самопроизвольно закрыться - что естественно ведет к сбою и неуспешному завершению работы макроса. Возможно я не корректно как-то сделал конструкцию услувного оператора. это конструкция, предполагает что при условии если такая-то ячейка в заданном столбце пуста - перейти на следующую иттерацию цикла (фрагмент кода начиная с If NNsumm <> Empty Then). Если убрать это условие - макрос нормально работает, но при включении этого условия - на определенной странице происходит закрытие книги - источника, и далее идет сбой. Честно говоря вообще не могу понять что в принципе может вызвать закрытие книги, учитывая что в макросе я ее закрытие нигде не прописываю
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
' ============================================================================================
'4й этап - массирование экспортных данных в таблицу по "Покупателям"
' ============================================================================================
Sheets("Покупатели").Select
last_data_cell = Range("B" & Rows.count).End(xlUp).Row
j = 0
For iii = 3 To last_data_report_counter
Workbooks(book_name_source).Activate
j = last_data_cell + iii
NNnumber = Range("A" & iii)
NNdate = date_correction(Range("B" & iii), path, sheet_name)
NNsumm = Range("C" & iii).Value
NNsumm = LTrim(NNsumm)
NNsumm = RTrim(NNsumm)
' If NNsumm <> Empty Then
Workbooks(book_name2).Activate
Sheets("Покупатели").Select
Range("B" & j) = firm_name
Range("C" & j) = instument
Range("D" & j) = NNnumber
Range("E" & j) = NNdate
Range("F" & j) = NNsumm
Range("G" & j) = INN
Range("H" & j).Formula = "=HYPERLINK(""[" & path & "]" & "'" & sheet_name & "'!A1"")"
' End If
Next iii
Заранее спасибо
