Копирование из одной книги в другую

[804040]

Ув. форумчане, помогите, плз.

Книга 1 - старая книга с данными
Книга 2 - новая книга куда переносим данные

Проблема следующая, при копирование данные из одной книги в другую, то формулы в новой книги продолжают ссылаться на листы, которые находятся в старой книге.

Формула которая стоит в старой книге =O29*'GA'!$B$4/365*O10
при копирование ее в новую она видо изменяется в =O29*'[001.xlsx]GA'!$B$4/365*O10

Причем лист GA присутствует и в той и в другой книге и имеет одинаковое название и содержание.

Как правильно копировать, чтобы не ссылалась на старую книгу. Копирование значениями не подходит.

[804040]

Сорри, но может я не смог объяснить, что хочу? Или просто нет решения? И единственный путь это "Найти-Заменить" ?

[voam]

Я в таких случаях обычно использую метод "Найти-заменить" - и всегда срабатывает. Т.е. в Вашем случае выделяем содержимое всего листа и заменяем все "[001.xlsx]" на пустоту.

Если таких листов много, то можно воспользоваться макросом, который проводил бы подобную замену во всех листах новой книги автоматически. Например, таким образом:

Sub DeleteLinks()
Dim WS As Worksheet
Dim C As Range
Dim firstAddress As String
On Error Resume Next
For Each WS In ActiveWorkbook.Worksheets
With WS.Cells
Set C = .Find("[001.xlsx]", LookIn:=xlValues)
If Not C Is Nothing Then
firstAddress = C.Address
Do
C.Value = ""
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> firstAddress
End If
End With
Next WS
On Error GoTo 0
End Sub

[804040]

Сообщение от voam

Я в таких случаях обычно использую метод "Найти-заменить" - и всегда срабатывает. Т.е. в Вашем случае выделяем содержимое всего листа и заменяем все "[001.xlsx]" на пустоту.

Если таких листов много, то можно воспользоваться макросом, который проводил бы подобную замену во всех листах новой книги автоматически. Например, таким образом:

Спасибо, но немного не то( Так как это пример только, но в действительно
[001.xlsx] постоянно разный. Но есть нельзя как нибудь копировать, чтоб формулы оставались все как есть? А не видоизменялись.

[Hugo121]

Другой путь - сперва заменить по всему листу/книге "=" на "xyz" например, потом после копирования вернуть назад.