Формулу в цикл

[Iren]

Надо посчитать значение
ячейка H6 равна ячейке E6 *1,15*27
ячйка E7 равна ячейке E7*1,15*27
и так весь столбец включая последнюю используемую ячейку
по идее надо пустить по циклу формулу:
ActiveCell.FormulaR1C1 = "=RC[3]*1.15*27"
for i=6 to xlLastCell
(i - это будут строки. столбец все время один и тотже)
как это реализовать?непонимаю куда в формулу вставить эту I чтобы привязать ее к циклу? или другая формула должна быть?

[Stilet]

Уж ни это ли тебе нужно:

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 6 To xlLastCell
Range("e" + CStr(i)) = "=E" & CStr(i) & "*1.15*27"
Next i
End Sub

[pashulka]

Для того, чтобы ввести подобную формулу - использовать цикл не нужно, ибо достаточно всего лишь выполнить одну единственную инструкцию :

Range([E6], [E65536].End(xlUp)).Offset(, 3).Formula = "=E6*1.15*27"
'Предполагается, что в момент выполнения этой инструкции активным является лист,
'имеющий ячейки, кроме того, заполняемые ячейки (столбец H) + лист не должны быть защищены.
'Все вышеперечисленные условия не является обязательными, т.е.
'в первом случае достаточно указать родителей, во втором, например, предварительно
'использовать метод Protect об'екта Worksheet, 
'т.е. .Protect Password:="Ваш_пароль", UserInterfaceOnly:=True

[Iren]

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

For i = 1 To Range("J1").SpecialCells(xlLastCell).Row
Cells(i, 9).Value = "=RC[1]*1.15*27"
Next i

[Iren]

О, миль пардон, решено. одной строчкой

Selection.NumberFormat = "General"

фишка в том. что надо ее писать до расчета формул
ВОПРОС СНЯТ