Farklı bir yanar söner yazı

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Ekli dosyada farklı bir yanar söner yazı var. G4:G5 hücrelerini seçerek elde edildiği için, makro çalıştığında, ortası lekeli gibi duruyor. E4:I5 arasını seçtiğinizde, yazının tamamı lekeli bir bölgede gibi görünüyor. Acaba bu hücreleri seçmeden, sadece yazının yanıp sönmesi oluşturulabilir mi?
Saygılarımla

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Sub Yanar_Soner()
    If Range("G5") <> "Bugün" Then GoTo 99
    For x = 1 To 3
        [A1].Select
        With Range("G4:G5").Font
            .Color = -16776961
        End With
        Application.Wait (Now + TimeValue("0:00:1"))
        With Range("G4:G5").Font
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = 0
        End With
        Application.Wait (Now + TimeValue("0:00:1"))
    Next x
    With Range("G4:G5").Font
        .Color = -16776961
    End With
99:
    Range("A1").Select
End Sub

 

[Tevfik_Kursun]

Sayın Yusuf Hocam,
İlginize teşekkür ederim.
Saygılarımla