1. İlgili sayfanın adına sağ tıklayıp "Kodu Görüntüle" seçeneğini seçin 3.
2. Açılan VBA ekranında sağdaki boş alana aşağıdaki kodu yapıştırın 3:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
    If Len(Target) = 21 Then
        Target.Characters(Start:=1, Length:=5).Font.Color = vbGreen
        Target.Characters(Start:=7, Length:=5).Font.Color = vbRed
    End If
End Sub
Kopyala

1. Boyamak istediğiniz hücre aralığını seçin 5.
2. Giriş sekmesinde yer alan Koşullu Biçimlendirme ifadesine tıklayın ve Yeni Kural’a tıklayın 5.
3. Biçimlendirilecek hücreleri belirlemek için formül kullan seçeneğini seçin 5.
4. Formül kutusuna uygun formülü yazın (örneğin, =$A2="Açık") 5.
5. Biçimlendir düğmesine basarak dolgu sekmesine geçin ve istediğiniz bir dolgu rengini seçin 5.
6. Tamam düğmesine tıklayın 5.