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

[doober]

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

Да, работает, перехожу в свою книгу, не работает!!
Я фигею, ни чего не делал, все заработало.

Из книги беса выгнать надо

[valerij]

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

Из книги беса выгнать надо

Попробуй, опять не работает!!!!!

[doober]

У меня тоже не хочет работать с не целым числом
Попробуй так

Sub ПроверкаЗарПлаты()
Application.EnableEvents = False: Application.ScreenUpdating = False
If (ActiveSheet.Name = "ЛЕН") Then Procent = 39
    'For dat = 0 To 1
    With Cells(39, 7)
        .FormulaR1C1 = "=(R[-4]C[1]-R[4]C[1])/1000 * " & Procent
            .NumberFormat = "0"
            '.Value = .Value
End With
    'Next
Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

[valerij]

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

У меня тоже не хочет работать

Сереж, закоментируй тот код и вставь этот, все работает, во БЕС!!!

Sub ПроверкаЗарПлаты()
    Application.EnableEvents = False: Application.ScreenUpdating = False
    If (ActiveSheet.Name = "ЛЕН") Then Procent = "0.039"
        With Cells(39, 7)
            .FormulaR1C1 = "=(R[-4]C[1]-R[4]C[1])* " & Procent
            .NumberFormat = "0"
            '.Value = .Value
        End With
    Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

[valerij]

И еще, как добавить в это условие:

If (ActiveSheet.Name = "Лист1") Then Procent = "0.039"
If (ActiveSheet.Name = "Лист2") Then Procent = "0.042"
If (ActiveSheet.Name = "Лист3") Then Procent = "0.0465"

А остальные Листы не проверять, дело в том, что этот макрос запускается у меня кл. F4 и если нажать на остальных листах, выскакивает ошибка

[valerij]

А тут, кто нить ответит? Наверное есть короче, путь!!

Sub ПроверкаЗарПлаты()
    If (ActiveSheet.Name = "Лист1") Then Procent = "0.039"
    If (ActiveSheet.Name = "Лист2") Then Procent = "0.042"
    If (ActiveSheet.Name = "Лист3") Then Procent = "0.0465"
    If (ActiveSheet.Name = "Лист4") Then GoTo 1
    If (ActiveSheet.Name = "Лист5") Then GoTo 1
    If (ActiveSheet.Name = "Лист6") Then GoTo 1
    If (ActiveSheet.Name = "Лист7") Then GoTo 1
    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
1:
End Sub

[VictorM]

Вот так работает

Sub ПроверкаЗарПлаты()
    If (ActiveSheet.Name = "Лист1") Then Procent = "0.039"
    If (ActiveSheet.Name = "Лист2") Then Procent = "0.042"
    If (ActiveSheet.Name = "Лист3") Then Procent = "0.0465"
    If (ActiveSheet.Name <> "Лист1") And (ActiveSheet.Name <> "Лист2") And (ActiveSheet.Name <> "Лист3") 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

[EducatedFool]

Ну и я свой вариант предложу:

Sub ПроверкаЗарПлаты()

    Select Case ActiveSheet.Name ' в зависимости от имени листа
        Case "Лист1": Procent = "0.039"
        Case "Лист2": Procent = "0.042"
        Case "Лист3": Procent = "0.0465"
        Case Else: Exit Sub    ' выход из процедуры
    End Select
    
    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]

А я так, додумал

Sub ПроверкаЗарПлаты()
    iCodeName = ActiveSheet.CodeName
    If iCodeName > "Лист3" Then Exit Sub
    If iCodeName = "Лист1" Then Procent = "0.039"
    If iCodeName = "Лист2" Then Procent = "0.042"
    If iCodeName = "Лист3" Then Procent = "0.0465"
    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

Супер, теперь есть из чего выбирать!!!

З. Ы.
Так с той, странной ошибкой и непонятки!!??

[VictorM]

Так с той, странной ошибкой и непонятки!!??

Это о чем?