Приветствую
У меня есть лист в книге, в которой формируются все данные. На одном из листов есть Congitional Formating с использованием формул(проверяется значение для подсветки из справочника). После формирования данных я копирую Листы(Сначало справочник для подсветки лист "Подсветка", а потом сам лист с данными)
В итоге при копировании формулы в Congidional Formating ломаются:
Было
Стало
То есть при копировании подставилась название старой книги и + сломалась ссылка на поле, по которому идет проверка значения для подсветки.
Копирую листы макросом. Сначало копирую лист справочник Подсветка, потом сам лист Закупки(где как раз подсветка происходит). Подскажите плиз, как можно скопировать лист Закупка так, чтобы не ищменялись ссылки в формулах conditional formating? Благодарю!
У меня есть лист в книге, в которой формируются все данные. На одном из листов есть Congitional Formating с использованием формул(проверяется значение для подсветки из справочника). После формирования данных я копирую Листы(Сначало справочник для подсветки лист "Подсветка", а потом сам лист с данными)
В итоге при копировании формулы в Congidional Formating ломаются:
Было
Стало
То есть при копировании подставилась название старой книги и + сломалась ссылка на поле, по которому идет проверка значения для подсветки.
Копирую листы макросом. Сначало копирую лист справочник Подсветка, потом сам лист Закупки(где как раз подсветка происходит). Подскажите плиз, как можно скопировать лист Закупка так, чтобы не ищменялись ссылки в формулах conditional formating? Благодарю!
Код |
---|
Sub CopyInNewWB() Dim wbO As Workbook, wbN As Workbook On Error GoTo ErrHandler Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.DisplayAlerts = False Set wbO = ActiveWorkbook Set wbN = Workbooks.Add wbO.Sheets("Подсветка").Copy wbN.Sheets(1) wbO.Sheets("Закупка").Copy wbN.Sheets(3) wbN.Sheets("Sheet1").Delete wbN.Sheets("Закупка").Activate Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.DisplayAlerts = True ErrHandler: Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.DisplayAlerts = True End Sub |