Excel Aktif Hücrenin Bulunduğu Satır ve Hücre Renklensin

Microsoft Excel programında, özelliklede çok sütun ve satırların olduğu bir dosyada çalışırken aktif hücrenin rengi sizi tatmin etmeyebilir hatta bazı zamanlar ekranda acaba hangi hücre seçili bile diyebilirsiniz. Mevcut durumda Excel'de aktif hücre reklendirmesi yok ancak bunu basit bir kod yardımıyla çalıştığımız dosyada yapabilirsiniz.

Aşağıdaki kodu çalıştığınız Excel dosyasında (Örneğin Sayfa 2'in üzerinde) de sağ tuş yaparak "Kod Görüntüle" tıklayın.

Açılan VBA penceresine en alt kısımda paylaştığım kodu yapıştırın ve pencereyi kaydedin.

Gördüğünüz üzere, artık aktif hücre renklendirilmiş oldu. Renk durumunu kodun içerindeki değerleri değiştirerek istediğiniz gibi ayarlayabilirsiniz.

AKTİF HÜCRE REKLENDİRME EXCEL VBA KODU

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

BİR BAŞKA AKTİF HÜCRE SATIRINI RENKLENDİREN KOD

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Cells.Interior.ColorIndex = 0  'Turn off previous use
   If Cells(1, 1) = "." Then Exit Sub
   Target.EntireRow.Interior.ColorIndex = 38
End Sub