EXCEL: Aktif satır ve sütun renklendirme

Makro kullanarak Excelde aktif satır ve sütunu renklendirerek hücre takibi yapmak kolaylaştırılabilir.
Bu işlem için iki farklı makro kodu veriyorum.
Kodları deneyip uygun olanını kullanabilirsiniz.

Makro eklemek için önce aşağıda verilen makro kodunu kopyalayın.
Excelde sayfa adı(Sayfa1, Sayfa2 …) üzerinde sağ tıklayın
Açılan menüde Kod görüntüle tıklayın.

Açılan kod penceresinde kodu yapıştırın. CTRL+V

VBA Editörünü açmak için alternatif yollar:

ALT+F11'e basın.
ya da
Menüden Geliştirici / Kod görüntüle

Açılan pencerede sol bölmeden sayfa adını çift tıklayın(Sayfa1, Sayfa2 …)
Sağ bölmeye kodu yapıştırın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'makro: Mesut Akcan
'19/6/2016
'mesutakcan.blogspot.com

' önceden hücrelerde yapılan zemin rengi renklendirmelerini iptal eder
' CTRL+Z (Geri al) çalışmaz

On Error Resume Next
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub

g = 10 'renklendirme genişliği
r = Target.Row 'satır no
c = Target.Column 'sütun no

renk = 6 'sarı
ahrenk = 17 'aktif hücre rengi: 3=kırmızı, 7=pembe, 2= beyaz

br = r - g 'renklendirme başlangıç satırı
If br < 1 Then br = 1

bc = c - g
If bc < 1 Then bc = 1 'renklendirme başlangıç sütunu

Cells.Interior.ColorIndex = xlNone

Range(Cells(r, bc), Cells(r, c + g)).Interior.ColorIndex = renk
Range(Cells(br, c), Cells(r + g, c)).Interior.ColorIndex = renk

ActiveCell.Interior.ColorIndex = ahrenk
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'makro: Mesut Akcan
'19/6/2016
'mesutakcan.blogspot.com

' önceden hücrelerde yapılan zemin rengi renklendirmelerini iptal eder
' CTRL+Z (Geri al) çalışmaz
Cells.Interior.ColorIndex = xlColorIndexNone
With ActiveCell
    .EntireColumn.Interior.ColorIndex = 17 'Sütun Rengi. 6=sarı
    .EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
    .Cells.Interior.ColorIndex = 19 ' Hücre Rengi
End With
End Sub

Originally published at https://mesutakcan.blogspot.com