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

[Bocul]

Помогите пожалуйста составить макрос.

Необходимо написать макрос, при использовании которого на лист 2 подставляются формулы в поле, производят расчет.
Есть данные на листе «Расчет»


Есть лист «сводная таблица»

При нажатии на кнопку «Проставить формулы» на листе «Сводная таблица» подставляются формулы

В итоге получается

Кнопка «очистить поле» очищает столбец «B» «C» «D» на листе «Сводная таблица»

[VictorM]

Смотрите, сделал для 2-х формул, дальше по аналогии.
Ну и очистка.

[Bocul]

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

Смотрите, сделал для 2-х формул, дальше по аналогии.
Ну и очистка.

Спасибо вам, все понятно.

Еще дополнительный вопрос, возможно после использования формулы

PHP код:

=СЧЁТЕСЛИ(Расчет!C2:C6;"<=10") 


превращать значение в число ?

[VictorM]

возможно.
Можно просто скопировать значение полученное формулой и затем вставить "только значение", прмерно так

[b1].Copy
[b1].PasteSpecial Paste:=xlValues

[Bocul]

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

возможно.
Можно просто скопировать значение полученное формулой и затем вставить "только значение", прмерно так

[b1].Copy
[b1].PasteSpecial Paste:=xlValues

Спасибо Вам за помощь!

[Bocul]

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

возможно.
Можно просто скопировать значение полученное формулой и затем вставить "только значение", прмерно так

[b1].Copy
[b1].PasteSpecial Paste:=xlValues

Подскажите пожалуйста, возможно данные в параметре "<10" - брать из поля ввода или из ячейки и подставлять в формулу в Макрос?

PHP код:

=СЧЁТЕСЛИ(Расчет!C2:C6;"<=10") 


[VictorM]

Наверное я уже туплю, но ей Богу не пойму вопрос.
Что брать и куда подставлять?

[Bocul]

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

Наверное я уже туплю, но ей Богу не пойму вопрос.
Что брать и куда подставлять?

1. на листе "расчет" добавляем поле для ввода значений
2. настраиваем поле таким образом, что бы при вводе в это поле цифры подставлялись в макрос (в общую формулу расчета)

[VictorM]

Теперь понятно.
Можно сделать так, применительно к первому макросу:

Sub Формулы()
    Значение = Sheets("Расчет").[k3]
    With Sheets("Сводная_таблица")
        .[b1].FormulaLocal = "=Расчет!C1"
        .[b2].FormulaLocal = "=СЧЁТЕСЛИ(Расчет!C2:C6;""<=" & Значение & """)"
        'и т.д.
    End With
End Sub

[Bocul]

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

Теперь понятно.
Можно сделать так, применительно к первому макросу:

Sub Формулы()
    Значение = Sheets("Расчет").[k3]
    With Sheets("Сводная_таблица")
        .[b1].FormulaLocal = "=Расчет!C1"
        .[b2].FormulaLocal = "=СЧЁТЕСЛИ(Расчет!C2:C6;""<=" & Значение & """)"
        'и т.д.
    End With
End Sub

Очень круто, спасибо Вам огромное!