Public xEski As String



Private Sub Worksheet_Deactivate()

'sayfadan çıkınca bölgeyi temizler isterseniz bu prosedürü eklemeyin

If xEski <> "" Then ' eski aktif hucre bilgilerini alıyor

    Set Eski = Range(xEski)

    Eski.Interior.ColorIndex = 0 'rengini sıfırlıyor

End If

End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim xStrStn() As String



If xEski <> "" Then ' eski aktif hucre bilgilerini alıyor

    Set Eski = Range(xEski)

    Eski.Interior.ColorIndex = 0 'rengini sıfırlıyor

End If

    

If Target.Row > 4 Then

    xStrStn = Split(Target.Address, "$") 'aktif hucrenin sütun-satır  bilgilerini alıyor

    Set Aktif = Range(xStrStn(1) & 4 & ":" & xStrStn(1) & xStrStn(2) & ", A" & xStrStn(2) & ":" & xStrStn(1) & xStrStn(2)) 'aktif alanın ardalanını değiştir

    Aktif.Interior.ColorIndex = 4

    xEski = xStrStn(1) & 4 & ":" & xStrStn(1) & xStrStn(2) & ", A" & xStrStn(2) & ":" & xStrStn(1) & xStrStn(2) 'adresini kaydediyor _

böylece başka hucreye gidince bu bilgiyi alabilecek



End If



End Sub

memurlar2 sayfası daki tüm kodları silip bunu ekleyerek dener mısınız.
Ben sadece renk işlemini yaptim