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

• lomajpure csendes tag

  #11429

  #11428 m.zmrzlina

  2011-09-21 10:04:02

  Új Válasz

  Ú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

  

  lomajpure

  csendes tag

  #11428 m.zmrzlina

  #11428 m.zmrzlina

  Illetve hogy legyünk konzekvensek és ne keveredjen a Target.... meg az Activecell....:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Row >= 3 And Target.Row <= 5 And Target.Column <= 32 And Target.Column >= 3 Then
  If Target.Interior.ColorIndex <> 24 Then Target.Offset(10, 0).Value = Target.Interior.ColorIndex
  
  If Target.Interior.ColorIndex = 24 Then
  Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value - 8
  Target.Interior.ColorIndex = Target.Offset(10, 0).Value
  Exit Sub
  End If
  
  Cells(Target.Row, 36).Value = Cells(Target.Row, 36).Value + 8
  Target.Interior.ColorIndex = 24
  End If
  End Sub

  Amúgy amikor alulra kiírja a színkódokat, azoknak adhatok fehér színű betűtípust ugye? és akkor nem is lenne látható

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