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

• #29904 m.zmrzlina senior tag m.zmrzlina #29903

  Új Válasz 2015-12-16 13:31:25 #29904

  Ú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

  

  m.zmrzlina

  senior tag

  válasz m.zmrzlina #29903 üzenetére

  Egy fokkal talán jobb ez a megoldás:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Cells.Interior.ColorIndex = xlNone
  Cells.Font.ColorIndex = xlAutomatic
  
  ActiveCell.EntireRow.Interior.ColorIndex = 1
  ActiveCell.EntireRow.Font.ColorIndex = 2
  End Sub

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