хочу переоценить (скопировать и вставить) значения формулы в зависимости от других значений формулы в vba
Вот мой пример:
D2 содержит раскрывающийся список со значениями 1, 2 и 3.
ЕСЛИ D2 = 2 (базовый случай), то переменная1 = 10. Для этого значения результат в G2 равен 100
ЕСЛИ D2 = 1 (низкий уровень), то переменная1 = 5. Для этого значения результат, указанный в G2, равен 80
ЕСЛИ D2 = 3 (Высокий), то переменная1 = 5. Для этого значения результат, указанный в G2, равен 120
Обратите внимание, что G2 содержит результат моего бюджета в виде формулы. Это с другого листа
Я хочу переоценить (скопировать и вставить) эти значения в ячейки F2 и H2. Я запускаю следующий код, но я принимаю то же значение 100, что и в ячейке G2
Вот мой код
Range ( "D2"). Выберите
ActiveCell.FormulaR1C1 = 2
Range("G2").Select
Selection.Copy
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range ( "D2"). Выберите
ActiveCell.FormulaR1C1 = 3
Range("G2").Select
Selection.Copy
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range ( "D2"). Выберите
ActiveCell.FormulaR1C1 = 1
End Sub