Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Cells.Interior.ColorIndex = xlColorIndexNone ActiveCell.EntireColumn.Interior.ColorIndex = 19 'Sütun Rengi ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi End Sub

@fatiheryildiz; Yukarıda yazılı kod iş görüyor.

Nasıl Eklenir?
Aşağıdaki sekme ismine sağ tıklayıp (Sayfa 1, Sayfa 2), “kod görüntüle” seçeneğine tıkladıktan sonra açılan pencereye kodu girip pencereyi kapatınız.