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

• #46295 Delila_1 veterán paatrick #46294

  Új Válasz 2021-03-19 17:49:27 #46295

  Ú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 #46294 üzenetére

  Szívesen.
  Megy az újabb változat.
  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 0 To 10: Range(Target.Address).Interior.ColorIndex = 43
            Case 11 To 20: Range(Target.Address).Interior.ColorIndex = 45
            Case 21 To 30: Range(Target.Address).Interior.ColorIndex = 3
        End Select
    End If
End Sub

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