Új hozzászólás Aktív témák

• #46293 Delila_1 veterán paatrick #46292

  Új Válasz 2021-03-19 13:36:53 #46293

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz paatrick #46292 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column >= 3 And Target.Column <= 5 Or Target.Column = 11 Or _
        Target.Column = 12 Then
        Select Case Target
            Case "F": Range(Target.Address).Interior.ColorIndex = 43
            Case "K": Range(Target.Address).Interior.ColorIndex = 45
            Case "I": Range(Target.Address).Interior.ColorIndex = 3
        End Select
    End If
End Sub

Új hozzászólás Aktív témák