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

• #10033 Delila_1 veterán varikahun #10028

  Új Válasz 2011-04-11 16:09:57 #10033

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

  A 10032-be írt sor elé még egyet tegyél be, amivel együtt így néz majd ki az egész:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column <> 3 Then Exit Sub
  If IsEmpty(Target) Then Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = xlNone
  If Target.Column = 3 And Target = "OK" Then _
  Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 6
  If Target.Column = 16 And Target = "Worn" Then _
  Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 3
  End Sub

• #10031 Delila_1 veterán varikahun #10028

  Új Válasz 2011-04-11 16:02:22 #10031

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

  A Private Sub ... sor alá írd be ezt:

  If IsEmpty(Target) Then Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = xlNone

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