Soru Metin içindeki tarih bugünden küçük ise yazı rengi kırmızı olsun

[bulentkars]

Merhaba;

B12 satırında = "Müşteri Karlılık Raporu - ( Son Veri Yükleme Zamanı : 20.03.2024 )" metni var.
Burada yapmak istediğim metin içindeki tarih EĞER bugünden küçük ise "Müşteri Karlılık Raporu - ( Son Veri Yükleme Zamanı : 20.03.2024 )" rengi kırmızı olsun, değilse siyah kalacak.
Bunu makro ile yapmak istiyorum. Yardımcı olabilirseniz sevinirim.

 

[AdemCan]

Merhaba,
Sayfa1 yerine işlem yapmak istediğiniz sayfayı yazınız.

Sub test()
Dim s1 As Worksheet
Set s1 = Sayfa1
With s1
    tarih = Mid(.Range("B12"), WorksheetFunction.Search(":", .Range("B12")) + 2, 10)
        If CDate(tarih) < Date Then
            .Range("B12").Font.Color = vbRed
        Else
            .Range("B12").Font.Color = vbBlack
        End If
End With
End Sub

 

[bulentkars]

Sayın Ademcan; Çok teşekkür ederim. Elinize sağlık

 

[AdemCan]

Rica ederim.