Merhaba arkadaşlar,
Yapmak istediğim olay aktif hücredeysem o satır aktif hücreye kadar ve sutunuda 4 satıra kadar renklenmesini yapmak istedim maalesef yapamadım.

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

Çok teşekkür ederim berduş hocam...
rengi değişmek için hangi rakamları degiştirmem gerek, örneyin açık sarı.?

Rengi değiştirmek için
.inferior.colourIndex =renkNo
satırı kullanılıyor ama renk kodlarını bilmiyorum internetten bulabilirsiniz.