Ввод сложных формул в ячейку

[NikolayGVB]

Дорогие Коллеги,

пожалуйста, подскажите, как правильно ввести в ячейку чуть более сложную формулу, например:
=ЕСЛИ(СЧЁТ(M6;P6;S6;V6)=0;"";M6+P6+ S6+V6)

Я по простоте душевной пытаюсь применить следующий код:

FormulaInsertY = "=ЕСЛИ(СЧЁТ(M6;P6;S6;V6)=0;" & Chr(34) & Chr(34) & ";M6+P6+S6+V6)"
Range("Y6").Formula = FormulaInsertY

Ничего не выходит, все время выдает ошибку

И еще вопрос: если Вы сможете подсказать, как правильно осуществить вставку этой формулы, то посоветуйте заодно, как эту формулу вставить в конкретный диапазон (столбец) с изменением индексов ячеек, как это делает Excel при операциях copy/paste, т.е.
=ЕСЛИ(СЧЁТ(M6;P6;S6;V6)=0;"";M6+P6+ S6+V6)
=ЕСЛИ(СЧЁТ(M7;P7;S7;V7)=0;"";M7+P7+ S7+V7)
=ЕСЛИ(СЧЁТ(M8;P8;S8;V8)=0;"";M8+P8+ S8+V8)
...

Использование команды

Range("Y7").Formula = Range("Y7").Formula

не помогает - индексы не меняются.

Заранее благодарен за помощь,
с уважением,
Николай

[EducatedFool]

Sub test()
    'FormulaInsertY = "=ЕСЛИ(СЧЁТ(M6;P6;S6;V6)=0;" & Chr(34) & Chr(34) & ";M6+P6+S6+V6)"
    FormulaInsertY = "=ЕСЛИ(СЧЁТ(M6;P6;S6;V6)=0;"""";M6+P6+S6+V6)"
    
    'Debug.Print FormulaInsertY
    Range("d6").FormulaLocal = FormulaInsertY
End Sub

[Юнлинг]

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

И еще вопрос: если Вы сможете подсказать, как правильно осуществить вставку этой формулы, то посоветуйте заодно, как эту формулу вставить в конкретный диапазон (столбец) с изменением индексов ячеек, как это делает Excel при операциях copy/paste, т.е.
=ЕСЛИ(СЧЁТ(M6;P6;S6;V6)=0;"";M6+P6+ S6+V6)
=ЕСЛИ(СЧЁТ(M7;P7;S7;V7)=0;"";M7+P7+ S7+V7)
=ЕСЛИ(СЧЁТ(M8;P8;S8;V8)=0;"";M8+P8+ S8+V8)
...

Использование команды

Range("Y7").Formula = Range("Y7").Formula

не помогает - индексы не меняются.

Заранее благодарен за помощь,
с уважением,
Николай

Попробуй так

Range("e2").Select
Selection.Copy
Range("e3").Select
ActiveSheet.Paste

где e2 что копируете
e3 куда копируете

[EducatedFool]

как эту формулу вставить в конкретный диапазон (столбец) с изменением индексов ячеек

Sub test()
    [d6].FormulaLocal = "=ЕСЛИ(СЧЁТ(M6;P6;S6;V6)=0;"""";M6+P6+S6+V6)"
    [d6].AutoFill [D6:D13]   ' растягиваем формулу на диапазон  D6:D13
    
    ' или так:
    [d13].Copy [e2:f6] ' копируем ячейку d13 (c формулой) в ячейки диапазона e2:f6
    ' при этом формула тоже корректно переносится
End Sub

[NikolayGVB]

Спасибо, дорогие Коллеги! Все работает!

С уважением,
Николай