bulunduğum satırı renkli göstersin

relaxim

Altın Üye
Katılım
30 Ağustos 2009
Mesajlar
478
Excel Vers. ve Dili
Ofis 2016 Tr 64 bit
Altın Üyelik Bitiş Tarihi
15.06.2027
Merhaba.
Ben de bir alternatif vereyim (işlem yapılacak sayfanın kod bölümüne uygulayın).
Belgede renklendirme yoksa (kod işlem öncesi, mevcut renklendirmeleri siler) seçili satır ve sütunun renklenmesi için kullanılabilir.
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count > 1 Then Exit Sub
    Cells.Interior.Color = xlNone
    Range(Cells(1, Target.Column), Cells(Rows.Count, Target.Column)).Interior.ColorIndex = 34
    Range(Cells(Target.Row, 1), Cells(Target.Row, Columns.Count)).Interior.ColorIndex = 34
    Target.Interior.ColorIndex = 36
End Sub
Ömer hocam sadece satırın renklenmesi için kodda nasıl bir düzenleme yapmamız lazım? Saygılar...
 

relaxim

Altın Üye
Katılım
30 Ağustos 2009
Mesajlar
478
Excel Vers. ve Dili
Ofis 2016 Tr 64 bit
Altın Üyelik Bitiş Tarihi
15.06.2027
Ömer hocam sadece satırın renklenmesi için kodda nasıl bir düzenleme yapmamız lazım? Saygılar...
Column yazan satırı kaldırdım oldu. Renkleri de ayarlayabiliyorum teşekkürler....
 
Üst