satır renklendirme

[xp45s]

Merhaba;
Aşagıdaki kodu siteden buldum.Yanlız kodda şöyle bir problem var.Aşagıdaki kodu ilgili sayfanın kod kısmına uyguladıgımızda hangi hücreyi tıklar isek o satırı renklendiriyor.Fakat satırı işaretleyip dosyayı kapatıp açtıgımızda o satırın rengi bozuluyor.Bunu nasıl engelleyebiliriz.Örnek dosya ektedir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Static eskirenkler(256)
Static a 'eski sutun
Static b 'eski satır
If a <> "" Then
If b = bb Then Exit Sub
For i = 1 To 256
If Cells(b, i).Interior.ColorIndex = 22 Then
Cells(b, i).Interior.ColorIndex = eskirenkler(i - 1)
End If
eskirenkler(i - 1) = Cells(ActiveCell.Row, i).Interior.ColorIndex
Next i
End If
ActiveCell.EntireRow.Interior.ColorIndex = 22
a = ActiveCell.Column
b = ActiveCell.Row
Application.ScreenUpdating = True
End Sub

 

[xp45s]

konu hakkında yardımınızı rica ediyorum..

 

[tahsinanarat]

Bu kodu deneyin
Private Sub Worksheet_SelectionChange(ByVal target As Range)
Range("a1:z65536").Interior.ColorIndex = xlNone
k = ActiveCell.Address
q = Mid(k, 3, 6)
With Range("a" & q, "z" & q).Interior
.ColorIndex = 22
.Pattern = xlSolid
End With
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linkte hazırlanmış olan kodu deneyebilirsiniz.

AKTİF SATIR-SÜTUN RENKLENDİRME

 

[xp45s]

sn tahsinanarat ilginiz için teşekkürler.Fakat vermiş oldugunuz kod benim istedigim şekilde çalışmıyor.Hücreyi renklendirdigim zaman,rengi bozuyor.

sn korhan hocam sizede teşekkür ederim.Fakat vermiş oldugunuz linki inceledim.Ancak işime yarar bişey çıkaramadım.Rica etsem benim yollamış oldugum kod üzerinde degişiklik yapabilirmiyiz.