hücre renklendirme

[igultekin2000]

iyi akşamlar;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

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 = 7
 Set EskiHucre = Target
End sub

kod ile bulunulan hücre renkleniyor, acaba hücre değilde bulunalan hücredeki yazının renklenmesi gibi bir işlem olabilir mi?

 

[ÖmerBey]

Merhaba,
Target.Interior.ColorIndex yerine Target.Font.ColorIndex şeklinde deneyiniz.

 

[igultekin2000]

Merhaba,
Target.Interior.ColorIndex yerine Target.Font.ColorIndex şeklinde deneyiniz.

Teşekkür ederim, sorun çözülmüş oldu, iyi akşamlar

 

[ÖmerBey]

Rica ederim,
İyi akşamlar, iyi çalışmalar...