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[
attachment=30885]
Ç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.