вставка формулы посредством выполнения кода

[Казанский]

Так, наверно

mas.Cells(v, h).Formula = "=" & X1 & "*" & X2

[romahjvf]

Нет. Ругается именно на эту строку
Ошибка 1004

[Казанский]

А чему равны v,h,X1,X2? Что такое mas? Попробуйте

mas.Cells(v, h).FormulaLocal = "=" & X1 & "*" & X2

Поможет в случае дробных чисел.

[romahjvf]

Получилось, спасибо

Dim X1, X2 As Variant
Dim v, h As Integer
v = 1
h = 3
X1 = mas.Cells(v, h - 1)
X2 = mas.Cells(v, h - 2)
mas.Cells(v, h).FormulaLocal = "=" & X1 & "*" & X2

Только я кое что добавил

X1 = mas.Cells(v, h - 1).Address
X2 = mas.Cells(v, h - 2).Address

чтоб при изменении значения ячеек результат менялся.
БОЛЬШОЕ СПАСИБО за помощь

[romahjvf]

mas - это название листа

[Vja4eslav]

Sub vichetNDS()
Selection = ActiveCell.Value / 1.18
End Sub

Работает.

[Казанский]

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

Sub vichetNDS()
Selection = ActiveCell.Value / 1.18
End Sub

Работает.

Будьте осторожны: если выделено более одной ячейки, то в весь диапазон будет записано значение ActiveCell.Value / 1.18

[romahjvf]

Здраствуйте еще раз я уже писал сообщения на этой теме.
Думал мне это не пригодится.
Мне нужно составить формулу которая будет обращатся к разным листам за значениями, программно.
Пробовал сделать вот так:

rasch_to.Cells(sv, 10).FormulaLocal = "=Массив! " & mas.Cells(vz + 2, 1).Address & ")"

rasch_to-наименование листа
Массив-имя листа
Помогите пожалуйста.

[Казанский]

rasch_to-наименование листа - в смысле, переменная, содержащая название листа? Тогда так:

sheets(rasch_to).Cells(sv, 10).Formula = "=Массив!" & Cells(vz + 2, 1).Address

или

sheets(rasch_to).Cells(sv, 10).FormulaR1C1 = "=Массив!R" & vz + 2 & "C1"

[romahjvf]

Казанский спасибо.
Не нужно было добавлять: & ")" в конце строки