AndreTM, да соглашусь, просто я в макросах пока чайник вот и задаю иногда глупые вопросы, разобрался как прописать, чтобы сбор данных с другой книги было, если вдруг у кого то подобный вопрос будет, то вот какой код я использовал:
Вам огромное спасибо.
| Код |
|---|
Sub Обновить_сводную()
Dim Sht As Worksheet, Shs As Worksheet
Dim Wb As Workbook
Dim Wbbu As Workbook
Dim i As Long
Dim iLastRow_B As Long
Dim iLastRow_Ai As Long
Set Wb = ActiveWorkbook
Set Wbbu = GetObject("C:\Users\Андрей\Downloads\Макрос сбора.xlsm")
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
Set Wb = ThisWorkbook
Set Shs = Wb.Sheets("Сводная")
Shs.Cells.Clear 'очищаем лист "Сводная"
Shs.Range("A1:Z1") = Array("Оценка", "ФИО сотрудника", "Старший", "Группа", "Дата оценки", _
"Номер звонка", "Пометка на звонок", "Проф. Навыки", "Навыки ведения диалога", "Общая оценка за звонок", _
"Тематика (1 уровень)", "Тематика (2 уровень)", "Тематика (3 уровень)", "Основная зона роста (1-ый уровень)", _
"Основная зона роста (2-ый уровень)", "Доп. зона роста (1-ый уровень)", "Доп. зона роста (2-ый уровень)", _
"Вес нарушения Основной зоны", "Вес нарушения доп. Зоны", "ст", "Неделя", "Месяц", "Год", _
"Ошибка", "Отдел", "Кодировка")
For Each nm In Array("Привет", "Пока")
Set Sht = Wbbu.Sheets(nm)
iLastRow_B = Shs.Cells(Rows.Count, 2).End(xlUp).Row
iLastRow_Ai = Sht.Cells(Rows.Count, 1).End(xlUp).Row
Sht.Range("A2:Z" & iLastRow_Ai).Copy Shs.Cells(iLastRow_B + 1, 1)
Next
.ScreenUpdating = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
End With
Wbbu.Close
End Sub |
Вам огромное спасибо.
