Satırı Renklendirme

[ozkovlu]

Merhabalar,
Aşağıda vermiş olduğum kod tüm satırı renklendiriyor. Ama ben belirlemiş olduğum satırı renklendirmesini istiyorum. Kodda nasıl bir değişiklik yapmak istiyorum. Mesela, 1. hücreyle 10. hücreyi renklendirsin
Saygılarımla...

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'seçilen satırı reklendirme
Dim ColorIndx As Integer
On Error Resume Next
ColorIndx = Target.Interior.ColorIndex
ColorIndx = IIf(ColorIndx < 0, 6, ColorIndx + 1)
Cells.FormatConditions.Delete
With ActiveCell.EntireRow
.FormatConditions.Add Type:=2, Formula1:=1
.FormatConditions(1).Interior.ColorIndex = ColorIndx
End With
End Sub

 

[eaglecarsi88]

Cells(1,1).Interior.ColorIndex = 23
Cells(10,1).Interior.ColorIndex = 23

hocam cells() yazan yere hücrenin adresini yazarsanız istediğiniz yeri renklendirir.

 

[ozkovlu]

eaglecarsi88 gödermiş olduğunuz kodu nereye eklemem gerekiyor.
Sayfa 1 de herhangi bir satırı tıkladığımda renklendirmesi gerekiyor.

 

[eaglecarsi88]

hocam geliştirici sekmesi altından kod görüntüleyi tıklayıp gelen ekrandan kod yazacağınız ekranı "worksheet" seçip yan tarafındaki comboboxtan "selectionchange" olayını seçip altaki kodu oraya yazınız.

ActiveCell.Interior.Color = 23

buradaki 23 değerini değiştirirseniz farklı renkler elde edebilirsiniz. tıkladığıbnız hücreyi renklendirecek

 

[eaglecarsi88]

özür diliyorum kod aşağıdaki ile değişecek

ActiveCell.Interior.ColorIndex = 23

 

[ozkovlu]

eaglecarsi88; söylemiş olduğunuzu yaptım ama sadece seçili hücreyi renklendiriyor ve renk kalıcı oluyor.
Göndermiş olduğum kod satırın tamamını renklendiriyor. Benim istediğim, sadece satır içerisinde dolu olan hücreleri veya belli bir satır aralığını renklendirmesi.
Saygılarımla...

 

[Ömer BARAN]

Merhaba.
Yanlış anlamadıysam; istediğiniz işlem için aşağıdaki kod'u kullanabilirsiniz.
1'inci satır başlık satırı ve bu satırda renk değişikliği istemiyorsanız mavi olarak renklendirdiğim satırı silerek kullanın.

Kod, seçili hücre A:J sütun aralığında bir hücre ise; seçilen satırda A:J sütun aralığını renklendirir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A:J]) Is Nothing Then Exit Sub
    Cells.Interior.Color = xlNone
[B][COLOR="Blue"]If Target.Row = 1 Then Exit Sub[/COLOR][/B]
    Range("A" & Target.Row & ":J" & Target.Row).Interior.ColorIndex = 23
End Sub

 

[ozkovlu]

Ömer baran bey,
Tam istediğim şekilde, sağolasın...