Hücre biçimlendirme

[karahan61]

İyi Akşamlar

Çalışma sayfasında hangi hücrede çalışacaksam hücrede bulunduğum süre içinde sadece o hücrenin renklenmesi veya aktif hale gelmesi nasıl yapılır.
Yardımlarınız için teşekkürler

 

[harziyan]

İyi akşamlar;
Aradığınız bunun gibi bir şey mi? (Kod; ilgili sayfanın kod bölümüne yazılacak)

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

 

[karahan61]

Teşekkürler
ancak; sayfayı koru dediğimde çalışmıyor korumaya açık hçrelerde çalışması mümkün mü?

 

[harziyan]

Sayfa Koruma yaparken "hücreleri biçimle" işaretli olsun.