Soru Tabloda Satır Renklendirme

[okan32]

A1- E25 aralığında bir tablom var ve tablomun arka plan rengi yeşil aşağıdaki kod ile tablomda herhangi bir hücreye tıkladığımda tüm satırı renklendiriyor. bunda sorun yok. Fakat arka plan rengi beyaz oluyor. Benim istediğim arka plan renginin değişmemesini istiyorum. Yardımlarınız için şimdiden teşekkür ederim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
If Intersect(Target, [A1:E25]) Is Nothing Then Exit Sub
Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Interior.ColorIndex = 6
End Sub

 

[Necdet]

Merhaba,

Cells.Interior.ColorIndex = xlNone

Kod önce yukardaki satır ile arka plan rengini beyaz yapıyor.
Siz kullandığınız renk kodunu belirtin olsun bitsin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [A1:E25].Interior.ColorIndex = 4
    If Intersect(Target, [A1:E25]) Is Nothing Then Exit Sub
    Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Interior.ColorIndex = 6
End Sub

 

[okan32]

Necdet bey tüm sayfayı aynı renk yapıyor o zaman
Ben sadece tablo rengi istediğim renk olsun istiyorum.

 

[Necdet]

Merhaba,

Biraz dikkat etseniz olayı çözerdiniz. Yukarıda olması gereken kodu belirttim.

Renk kötü oldu ama siz uygun rengi bulursunuz sanırım.

 

[okan32]

Çok Teşekkür ederim Necdet Bey sağolun