renkli sutun

[meken]

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

A dan H sutununa kadar renkli göstermesini istiyorum.
Excel 2003 kullanıyorum.
Şimdiden teşekkürler

 

[Ömer]

Merhaba,

Kodları denemedim.

ActiveCell.EntireRow.Interior.ColorIndex = 22

Yukarıdaki satırın yerine aşağıdaki satırı yazın.

Cells(ActiveCell.Row, 1).Resize(1, 8).Interior.ColorIndex = 22

.

 

[meken]

Tamamdır
Çok teşekkürler

 

[meken]

yalnız kayıt ettikden sonra renk kalıyor bunun çözümü var mı?

 

[Ömer]

Konuyla ilgili forumda birden çok örnek vardır. Arama yapmanızı rica ederim.

Bir örnek:

http://www.excel.web.tr/f14/mouse-aret-takip-t136695.html

.