Excel'de bir buton oluşturdum. Daha sonra oluşturduğum butona aşağıdaki makroyu kaydettim ancak yanıp sönme efekti olmuyor. Yardımcı olabilirmisiniz.
Sub CheckRng()
If Range("B1") < Date Then
If Range("B1").Font.ColorIndex = xlColorIndexAutomatic Then
Range("B1").Font.Color = vbRed
Else
Range("B1").Font.ColorIndex = xlColorIndexAutomatic
End If
Else
Range("B1").Font.ColorIndex = xlColorIndexAutomatic
Exit Sub
End If
StartTimer
End Sub
Sub CheckRng()
If Range("B1") < Date Then
If Range("B1").Font.ColorIndex = xlColorIndexAutomatic Then
Range("B1").Font.Color = vbRed
Else
Range("B1").Font.ColorIndex = xlColorIndexAutomatic
End If
Else
Range("B1").Font.ColorIndex = xlColorIndexAutomatic
Exit Sub
End If
StartTimer
End Sub