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

• #11086 Delila_1 veterán zsotesz81 #11085

  Új Válasz 2011-08-16 12:27:33 #11086

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

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 7 Or Target.Column = 8 Then
  Dim icolor As Integer
  If Target = "low" Then icolor = 35
  If Target = "medium" Then icolor = 36
  If Target = "high" Then icolor = 40
  If Target = "" Then icolor = 15
  Range(Target.Address).Interior.ColorIndex = icolor
  End If
  End Sub

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