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

• #7833 Delila_1 veterán Jarod1 #7832

  Új Válasz 2010-07-31 17:41:24 #7833

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

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Value="Bizonyos" Then Rows(Target.Row).Interior.ColorIndex = 4
  End Sub

  Ugyanez az oszlop megadásával együtt:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Value="Bizonyos" And Target.Column= 2 Then Rows(Target.Row).Interior.ColorIndex = 4
  End Sub

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