Не могу вставить формулы! Help!!!!

[Lyubov1990]

Помогите пожалуйста, не могу вставить формулы!

Sub ЗаписьФормулНагрузка()

'Вычисление последней строки на листе Группа
n = WorksheetFunction.CountA(Worksheets ("Нагрузка").Ra nge("A:A"))

'определяем адреса ячеек по которым будем высчитывать
krit = "Нагрузка!" & Cells(n - 2, 3).Address 'c
krit1 = "Нагрузка!" & Cells(n - 2, 5).Address 'e
krit2 = "Нагрузка!" & Cells(n - 2, 35).Address 'ai
krit3 = "Нагрузка!" & Cells(n - 2, 2).Address 'b
krit4 = "Нагрузка!" & Cells(n - 2, 9).Address 'i
krit5 = "Нагрузка!" & Cells(n - 2, 32).Address 'af
krit6 = "Нагрузка!" & Cells(n - 2, 33).Address 'ag
krit7 = "Нагрузка!" & Cells(n - 2, 34).Address 'ah
krit8 = "Нагрузка!" & Cells(n - 2, 8).Address 'h
krit9 = "Нагрузка!" & Cells(n - 2, 13).Address 'm
krit10 = "Нагрузка!" & Cells(n - 2, 16).Address 'p
krit11 = "Нагрузка!" & Cells(n - 2, 21).Address 'u
krit12 = "Нагрузка!" & Cells(n - 2, 70).Address 'br
krit14 = "Нагрузка!" & Cells(n - 2, 51).Address 'ao
krit15 = "Нагрузка!" & Cells(n - 2, 67).Address 'bo
krit16 = "Нагрузка!" & Cells(n - 2, 68).Address 'bp
krit17 = "Нагрузка!" & Cells(n - 2, 69).Address 'bq

' записываем формулы в ячейки
Cells(n - 2, 8).FormulaLocal = "=ЕСЛИ(" & krit2 & ">0;ИНДЕКС(Группы!L:L;ПОИСКПОЗ( " & krit1 & ";Группы;0));"")"
Cells(n - 2, 40).FormulaLocal = "=ЕСЛИ(" & krit12 & ">0;ИНДЕКС(Группы!M:M;ПОИСКПОЗ( " & krit1 & ";Группы;0));"")"
Cells(n - 2, 37).FormulaLocal = "=ЕСЛИ(СУММ(" & krit8 & ")>8;СУММ(" & krit4 & ":" & krit9 & ";" & krit10 & ":" & krit11 & ")/" & krit8 & ";"")"
Cells(n - 2, 34).FormulaLocal = "=ЕСЛИ(" & krit3 & "= 'Платное'; СУММ(" & krit4 & ":" & krit5 & ");0)"
Cells(n - 2, 33).FormulaLocal = "=ЕСЛИ(" & krit3 & "= 'Бюджетное'; СУММ(" & krit4 & ":" & krit5 & ");0)"
Cells(n - 2, 68).FormulaLocal = "=ЕСЛИ(" & krit3 & "= 'Бюджетное'; СУММ(" & krit14 & ":" & krit15 & ");0)"
Cells(n - 2, 69).FormulaLocal = "=ЕСЛИ(" & krit3 & "= 'Платное'; СУММ(" & krit4 & ":" & krit5 & ");0)"

End Sub

[valerij]

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

Sub ЗаписьФормулНагрузка()
ЕСЛИ

Де вы в vba видели по русски?
Если - IF
СУММ - SUM

[EducatedFool]

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

Де вы в vba видели по русски?
Если - IF
СУММ - SUM

А что, Excel уже не понимает русские формулы?
Может, названия листов тоже на английский перевести?

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

Помогите пожалуйста, не могу вставить формулы!

А оно Вам надо? Зачем настолько усложнять себе работу?
Одно дело - программно вставить одну-две формулы, а, когда формул много, проще найти другой способ.

Объясните, почему нельзя заранее (вручную) прописать на листе все необходимые формулы?
В любом случае, подход к решению задачи неправилен, поэтому даже не буду вносить изменения в код.

[Lyubov1990]

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

[mchip]

Так пропиши строку заранее (в укромном уголке) со всеми формулами и при необходимости копируй и вставляй строку целиком.

[Lyubov1990]

Мне нужно вставить формулы с помощью VBA, иначе нельзя!

[EducatedFool]

Мне нужно вставить формулы с помощью VBA, иначе нельзя!

Никто же вас не заставляет прописывать формулы вручную...

mchip имел ввиду поместить эту строку с заранее внесёнными формулами на скрытый лист в тот же файл (из которого запускается макрос), и потом в нужный момент выполнить команду типа этой:

ThisWorkbook.Worksheets("Скрытый").[a3:d25].Copy ActiveSheet.[b4:e26]

[Lyubov1990]

Аааа! Ну хорошо, я попробую! Спасибо большое!

[mchip]

А что бы формулы не "портились" (не менялись ссылки), там где хранишь поставь "пробел"=формула
При копировании убираешь "пробел" и формула работает

[valerij]

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

А что, Excel уже не понимает русские формулы?

Заменив

Cells(n - 2, 8).FormulaLocal = "=ЕСЛИ(" & krit2 & ">0;ИНДЕКС(Группы!L:L;ПОИСКПОЗ(" & krit1 & ";Группы;0));"")"

На

ActiveCell.FormulaR1C1 = _
        "=IF("" & krit2 & "">0,INDEX(Группы!C[4],MATCH("" & krit1 & "",Группы,0)),"""")"

Все заработало, просит открыть файл, в исходном виде, ошибка