Как скопировать значение из одной книгу в другую, но так, чтобы фокус не переходил на книгу в которую копируются значения? То есть, чтобы значение скопировалось "по-тихому". Мой код копирует значение, но сделать "тихое" копирование не получилось. Код макроса изначально записан в личную книгу макросов, чтобы его можно было запускать в любом экзелевском файле. Помогите пожалуйста.
Код |
---|
'Отключаем перерисовку для ускорения работы макроса Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False Application.DisplayStatusBar = False Application.DisplayAlerts = False ' Копируем активную ячейку ActiveCell.Copy Workbooks("Уникальные адреса.xlsx").Activate Sheets("Уникальные адреса").Activate Dim mia ' Определяем первую пустую строку в столбце В, чтобы в неё вставить копируемое значение mia = Cells(Rows.Count, 2).End(xlUp).Row + 1 Cells(mia, 2).Activate ' Вставляем значение ActiveSheet.Paste |