Перенести данные с формы на лист с формулами.

[parovoz]

Доброго времени суток.
Есть форма  для учета платежей. После заполнения всех полей формы данные переносятся на лист. Все  работает.
Вопрос,как перенести формулы в столбец 7 и 9.
В прилагаемом файле есть пример. В 7 столбец формула не переносится ,а в 9 выдает ошибку (закоментировал)

[vikttur]

"=.Cells(LastRow + 1, 6).Value / Me.txt_Цена.Value" - это все текст до тех пор, пок не станет в ячейку. А откуда Excel знает, о чем там в VBA думают? Ему неведомо, что такое LastRow и Me.txt_Цена.Value.
Делите текст формулы на фрагменты до и после переменных

Код (vb) Выделить Развернуть

"=.Cells(" & LastRow + 1 & ", 6).Value / " & ...
Во второй формуле кавычки. Но передавать кавычки внутри текста следует сдвоенными - "", иначе (один раз ") это ограничитель текста.

[parovoz]

Доброе утро.
vikttur. благодарю за подсказку . Вот прописал формулу ,но она не отображается в ячейке.

Код (vb) Выделить Развернуть

.Cells(LastRow + 1, 7) = .FormulaR1C1 = "=.Cells(" & LastRow + 1 & ", 6).Value / " & LastRow + 1 & ", 4).Value"

[Дмитрий Щербаков(The_Prist)]

Вот прописал формулу

уверены?

.Cells(LastRow + 1, 7) = .FormulaR1C1 = "=.Cells("

что это и почему Вы считаете, что оно может работать как хотелось?

[parovoz]

Дмитрий Щербаков(The_Prist), а как правильно должно быть? Подскажите.

[Дмитрий Щербаков(The_Prist)]

приплыли...Вы синтаксис вообще изучать не хотите? Это же самые азы, пора бы уже их знать.

Код (vb) Выделить Развернуть

.Cells(LastRow + 1, 7).FormulaR1C1 = "=" & .Cells(LastRow + 1, 6).Value & "/ " & .Cells(LastRow+ 1, 4).Value

[parovoz]

Дмитрий, перенес Вашу формулу к себе в пример. Но ячейка пуста.

[boa]

Код (vb) Выделить Развернуть

.Cells(LastRow + 1, 7).FormulaR1C1 = "=" & .Cells(LastRow + 1, 6).Address(, , xlR1C1) & "/ " & .Cells(LastRow + 1, 4).Address(, , xlR1C1)

[Дмитрий Щербаков(The_Prist)]

Код (vb) Выделить Развернуть

.Cells(LastRow + 1, 7).Formula = "=" & .Cells(LastRow + 1, 6).Address & "/ " & .Cells(LastRow + 1, 4).Address
А в следующий раз пишите не только то, что формулы не переносятся, но и какие формулы ожидаете в результате. Ответ получили бы уже давно.

[parovoz]

Все верно. Благодарю за ответ. В описании темы мой косяк.

[parovoz]

Прописал формулу для Статуса оплат.Получилось так. Может будут другие варианты:

Код (vb) Выделить Развернуть

.Cells(LastRow + 1, 7).Formula = "=IF(RC[-3]="""",""Не оплачено"",IF(RC[-3]>RC[-4],""Переплата"",IF(RC[-3]=RC[-4],""Оплачено полностью;Оплачено частично"")))"


[boa]

вы уже определитесь...
или используйте FormulaR1C1, или Formula
а то вы мухам котлеты присваиваете