Renk değiştiren hücre

[bmutlu966]

Bir makro yazıyorum ve makroda çalıştırıldığında Range komutu ile bir hücre seçiliyor. Bu hücre seçildiğinde dolgu renginin 2 sn aralıklarla kırmızı ve sarı olmasını istiyorum. bu işlem 3 defa tekrarlandığında makro duracak. Yardımlarınız için şimdiden teşekkürler.


Range("A1").Select
for t=1 to 5
Range("A1").Interior.ColorIndex = 3

2 sn zaman geçmesi için kod

Range("A1").Interior.ColorIndex = 6
Next

ardaki 2 sn lik beklemeyi beceremedim.

 

[dEdE]

Sub bekle()
Range("A1").Select
For t = 1 To 3
Range("A1").Interior.ColorIndex = 3
    Application.Wait (Now + TimeValue("00:00:02"))
Range("A1").Interior.ColorIndex = 6
    Application.Wait (Now + TimeValue("00:00:02"))
Next
End Sub

 

[bmutlu966]

Çok teşekkürler üstad...