замена формул

[ЦЕРЦЕЯ]

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

[Serge 007]

Данные - изменить связи...

[ЦЕРЦЕЯ]

спасибо попробую

[ratibor]

Подскажите, пожалуйста.
Есть вот такой код:

Option Explicit

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If [c7] <> numb Then
[F:W].Replace "[*.xlsm]", "[" & [c7] & ".xlsm]": numb = [c7]
End If
If [c6] = "Ïëàí" Then
[F:G].Replace "!G", "!F"
[J:K].Replace "!K", "!J"
[N:O].Replace "!O", "!N"
[R:S].Replace "!S", "!R"
[V:W].Replace "!W", "!V"
End If
If [c6] = "Ôàêò" Then
[F:G].Replace "!F", "!G"
[J:K].Replace "!J", "!K"
[N:O].Replace "!N", "!O"
[R:S].Replace "!R", "!S"
[V:W].Replace "!V", "!W"
End If
Application.EnableEvents = True
End Sub

при 6000 формул, замена происходит за 25 минут. Возможно ли ускорить процесс?

[Hugo121]

Зачем на каждый пересчёт заменять формулы?
Кажется не в том коде замену делаете.
Ну и думаю, вместо (или с, если там ещё и на события что-то навешано) Application.EnableEvents = False/True нужно отключать/включать пересчёт и обновление экрана:

With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
...
...
...
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With

[ratibor]

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

Зачем на каждый пересчёт заменять формулы?
Кажется не в том коде замену делаете.

есть формулы вида: =[5.xlsm]Лист1'!G26,
есть выпадающие списки, где выбирается предприятие и в зависимости от этого меняется номер в ячейке С7 (1-13), который заменяется в формуле на соответствующий номер файла (1.xlsm, 2.xlsm....13.xlsm), а при выборе из выпадающего списка Плана или Факта (ячейка С6) в формуле происходит замена столбца. Такая сводная таблица по предприятию и план/факту. На небольших таблицах работает быстро, а вот на больших "тормозит". Может я что-то перемудрил в коде, тогда, пожалуйста, подскажите мне где ошибка?

[Hugo121]

Делайте эту замену по событию изменения этой конкретной ячейки, а не на каждый пересчёт листа.

[ratibor]

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

Делайте эту замену по событию изменения этой конкретной ячейки, а не на каждый пересчёт листа.

Как я понимаю, то через

Private Sub Worksheet_Change(ByVal Target As Range)
...
End Sub
???

[Hugo121]

Да.
Анализируете target, если она что нужно (и только она одна), то отключаете события, пересчёт, меняете формулы, включаете всё назад.
Если контролируемые ячейки две, и с разными заменами - ставьте в одну процедуру одно под другим - выполняться ведь будет одно из условий.

[ratibor]

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

Да.
Анализируете target, если она что нужно (и только она одна), то отключаете события, пересчёт, меняете формулы, включаете всё назад.
Если контролируемые ячейки две, и с разными заменами - ставьте в одну процедуру одно под другим - выполняться ведь будет одно из условий.

Понял. Спасибо большое Hugo121. Буду пробовать.