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

[valerij]

Модуль:

Sub ПроверкаЗарПлаты()
Application.EnableEvents = False: Application.ScreenUpdating = False
    For dat = 0 To 30
        With Cells(dat * 44 + 39, 7) 
            .FormulaR1C1 = "=(R[-4]C[1]-R[4]C[1])*процент"
                .NumberFormat = "0"
            .Value = .Value
        End With
    Next
Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

Лист1 процент = 0,039
Лист2 процент = 0,042
Лист3 процент = 0,0465

[doober]

Пока писал,Валера прикид успел поменять


Select Case WS_Name

Case "Лист1"

процент = 0,039
Case "Лист2"
процент = 0,042
---------
End Select

[valerij]

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

прикид успел поменять

Ага, но с кодом не получается, что не так?

Sub ПроверкаЗарПлаты()
Application.EnableEvents = False: Application.ScreenUpdating = False
    Select Case WS_Name
        Case "Лист1": процент = 0.039
            Case "Лист2": процент = 0.042
        Case "Лист3": процент = 0.0465
    For dat = 0 To 30
    With Cells(dat * 44 + 39, 7)
        .FormulaR1C1 = "=(R[-4]C[1]-R[4]C[1])*процент"
            .NumberFormat = "0"
        .Value = .Value
    End With
    Next
    End Select
Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

[motorway]

Вот так можно:

Function Procent()

If (ActiveSheet.Name = "Ëèñò1") Then Procent = 0.039
If (ActiveSheet.Name = "Ëèñò2") Then Procent = 0.042
If (ActiveSheet.Name = "Ëèñò3") Then Procent = 0.0465

End Function

[doober]

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

Ага, но с кодом не получается, что не так?

WS_Name - это имя Листа ,с которым работаешь.
Я дал только как пример

[VictorM]

но с кодом не получается, что не так?

End Select пропущен
Вернее, стоит поздно

[valerij]

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

End Select пропущен
Вернее, стоит поздно

Пробовал и так в MsgBox процент, пусто

Sub ПроверкаЗарПлаты()
Application.EnableEvents = False: Application.ScreenUpdating = False
    Select Case WS_Name
        Case "Лист1": процент = 0.039
            Case "Лист2": процент = 0.042
        Case "Лист3": процент = 0.0465
    End Select
        MsgBox процент
Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub

[motorway]

Понятно, что если нет такой переменной WS_Name, вряд ли можно чего-то ожидать. Не хотите ли подставить туда ActiveSheet.Name?

[valerij]

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

Понятно, что если нет такой переменной WS_Name, вряд ли можно чего-то ожидать. Не хотите ли подставить туда ActiveSheet.Name?

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

То же, MsgBox Procent, пусто
Может надо объявить переменную, не помогло?

[motorway]

Ну тогда заодно выведите в Msgbox и ActiveSheet.Name