Как в модуле, менять значение переменной в зависимости от выбранного Листа

[valerij]

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

Это о чем?

Читай с #31

[VictorM]

И еще.
Я конечно не знаю Вашей задачи полностью, но ИМХО вводить проценты в коде процедуры не совсем удобно. Они ведь имеют свойство меняться.
Я делаю обычно немного не так, ввожу такие коэффициенты прямо на рабочем листе, в любом удобном месте. И код тогда будет выглядеть так:

Sub ПроверкаЗарПлаты()
    Procent = ActiveSheet.[a1] 'значения процентов нужно вводить через ТОЧКУ
                       'ну и конечно в любую удобную ячейку
    If Procent = "" Then Exit Sub ' если нет коэффициента, т.е. нерабочий лист
    For dat = 0 To 30
        With Cells(dat * 44 + 39, 7)
            .FormulaR1C1 = "=(R[-4]C[1]-R[4]C[1])* " & Procent
            .NumberFormat = "0"
            .Value = .Value
        End With
    Next
End Sub

[valerij]

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

вводить проценты в коде процедуры не совсем удобно. Они ведь имеют свойство меняться.

Виктор, да не ввожу я проценты, те числа, под словом проценты, они постоянны, то я для себя, пройдет время и я забуду, и что бы ни гадать, что это за цифры, так обозвал..
Но мысль понял, интересно, я пытался в листах вставить значение, не получилось.
В яч. вводить мне ни как, нельзя.

[valerij]

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

У меня тоже не хочет работать с не целым числом

Вот так, будет все работать

.FormulaR1C1 = "=(R[-4]C[1]-R[4]C[1])*" & Str(Procent)
ИЛИ
.FormulaR1C1 = "=(R[-4]C[1]-R[4]C[1])*" & Replace(Procent, ",", ".")
ИЛИ
.FormulaR1C1 = "=(R[-4]C[1]-R[4]C[1])*" & Application.Substitute(Procent, ",", ".")