Soru: Üzerinde çalıştığım çalışma sayfamda o an aktif olan hücrenin renklenmesini
istiyorum. Ancak daha önce renki olan hücrelerde ise herhangi bir değişiklik
olmasını istemiyorum. Bu mümkün mü?
Cevap: Aşağıdaki kodu Çalışma sayfanızın kod sayfasına yapıştırın.
Cevap: Aşağıdaki kodu Çalışma sayfanızın kod sayfasına yapıştırın.
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
Static EskiHucre As Range
If Target.Interior.ColorIndex <> xlColorIndexNone Then
EskiHucre.Interior.ColorIndex = xlColorIndexNone
Exit Sub
ElseIf Not EskiHucre Is Nothing Then
EskiHucre.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 6
Set EskiHucre = Target
End Sub
Static EskiHucre As Range
If Target.Interior.ColorIndex <> xlColorIndexNone Then
EskiHucre.Interior.ColorIndex = xlColorIndexNone
Exit Sub
ElseIf Not EskiHucre Is Nothing Then
EskiHucre.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 6
Set EskiHucre = Target
End Sub
Hiç yorum yok:
Yorum Gönder