Копирование формул макросом без сдвига ссылок

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование формул макросом без сдвига ссылок (Макросы/Sub)

makc1985

Дата: Понедельник, 27.10.2014, 11:18 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 45

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Здравствуйте, может мой вопрос уже изъезжен, но не могу найти решение.
Необходимо скопировать формулу из ячейки одного документа в ячейку другого документа.
Опишу кратко, код там большой но все упирается в следующий отрезок.
Допустим в ячейке есть формула A1+B1
[vba]

Код

Set WS1 = Workbooks.Item("Договоры1.xlsm").Sheets("Договоры")
Set WS2 = Workbooks.Item("Договоры2.xlsm").Sheets("Договоры")
WS1.Cells(1, 2).Copy: WS2.Cells(1, 2).PasteSpecial xlPasteValues 'Копирую значения
WS1.Cells(1, 2).Copy: WS2.Cells(1, 2).PasteSpecial xlPasteFormulas 'Копирую формулы

[/vba]

В итоге в файл "Договоры2" копируется ячейка, а формула в ней ссылается на ячейки файла "Договоры1"
с результатом 'C:\...\Договоры1'!A1+C:\...\Договоры1'!B1
Как быть? нужно чтобы получилось A1+B1
Я так понимаю можно какой то приписать параметр может быть?