Yanıp sönen hücreler

[oguz demirbas]

merhaba ustalarım.....

aşağıdaki kodu EÐER fonksiyonu ile çalıştırmak istiyorum:

Sub YANIPSON()
Dim durum As Boolean, i As Single
Do While (True)
If durum = True Then
Range("C1").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
For i = 0 To 2500
DoEvents
Next
durum = False
Else
Range("C1").Select
Selection.Interior.ColorIndex = xlNone
For i = 0 To 2500
DoEvents
Next
durum = True
End If
Loop
End Sub



Eğer sayfa1!C1>sayfa2!C2 ise yukarıdaki kod çalışsın. (Sayfa1!C1 yanıp sönsün)

şekline nasıl getirebilirim?

 

[Mahmut Bayram]

çözümlü örnek ekte.

 

[damra2005]

sayın mahmut bayram örnek güzel olmuş. bildiğim kadarıyla devlet memurusunuz. bunu kademe terfilerine uygulanabilrmi. mesela temmuz 15 ila ağustosun 14 ü arası bir tarih hücrede varsa bu tarihler arasında yanıp sönmesi gibi

 

[oguz demirbas]

Mahmut Bey:

yanıp sönen makroyu nasıl HATALI SEVK EDİLDİ bölümüne ekleyebilirim?

Ã?rnek :

 

[Mahmut Bayram]

sayfa kod bölümünde sheets(" ") sorgulamasını istediğiniz sayfa isimlerini değiştirip deneyin

 

[oguz demirbas]

dediklerinizi uyguladım ama makroda da bir değişiklik yapmak lazım....

 

[oguz demirbas]

:agla:

 

[otufan03]

Mahmut Bayram çözümlü örnek ekte, demiş ama örneği göremedim.