Çözüldü hücre renklendirme de yazı rengi beyaz olsun

[sirkülasyon]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Satır As Range, Sütun As Range
Set Satır = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 256))
Set Sütun = Range(Cells(1, ActiveCell.Column), Cells(65536, ActiveCell.Column))
Cells.FormatConditions.Delete
With ActiveCell
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = 11
End With
End Sub

yazı renginin beyaz olması için eklenmesi gereken kodda yardımcı olabilir misiniz?

 

[çıtır]

İlave ediniz.

.FormatConditions(1).Font.ColorIndex = 2

 

[YUSUF44]

Aşağıdaki satırı ekleyebilirsiniz:

.FormatConditions(1).Font.Color = vbWhite

 

[sirkülasyon]

Sayın ÇITIR ve YUSUF44
Teşekkür eder saygılarımı sunarım

 

[çıtır]

Sayın ÇITIR ve YUSUF44
Teşekkür eder saygılarımı sunarım

Rica ederim.Dönüş yaptığınız için teşekkür ederim.