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

• #10025 Delila_1 veterán varikahun #10024

  Új Válasz 2011-04-11 12:52:54 #10025

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

  A lapfülön jobb klikk, Kód megjelenítése.
  Bejutottál a VB szerkesztőbe, jobb oldalon kaptál egy üres felületet, ide másold be:

  Private Sub Worksheet_Change(ByVal Target As Range)
  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

  Ez a C oszlopban megadott OK-ra sárga hátteret ad, a P-be beírt Worn-re pirosat.
  A színeket a makróban a 6, ill. a 3 módosításával tudod változtatni.

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