Excelde İstenilen Hücrenin İstenilen Sayfada Otomatik Yanıp Sönmesi

[akmes]

Selamlar,

Ekte verdiğim örnekte de anlaşılacağı gibi,bir macro yardımıyla istenilen hücrenin yanıp sönmesi sağlanabiliyor.Benim istediğim ise ilgili sayfa açıldığında bu işlemin otomatik olarak çalışması.Bu konuda yardımınızı rica ediyorum.

 

[ynmcan]

Kodu sayfanın Activte prosedürüne yazınız

[COLOR="Red"]Private Sub Worksheet_Activate[/COLOR]()
On Error Resume Next

Do While (True)
If durum = True Then
Range("B1").Interior.ColorIndex = 3
For i = 0 To 1000
DoEvents
Next
durum = False
Else
Range("B1").Interior.ColorIndex = xlNone
For i = 0 To 1000
DoEvents
Next
durum = True
End If
Loop
End Sub

 

[akmes]

Kodu sayfanın Activte prosedürüne yazınız

[COLOR="Red"]Private Sub Worksheet_Activate[/COLOR]()
On Error Resume Next

Do While (True)
If durum = True Then
Range("B1").Interior.ColorIndex = 3
For i = 0 To 1000
DoEvents
Next
durum = False
Else
Range("B1").Interior.ColorIndex = xlNone
For i = 0 To 1000
DoEvents
Next
durum = True
End If
Loop
End Sub

Üstadım ben biraz bu konularda eksiğim,sayfanın Activte prosedürü neresinde oluyor veya örnek üzerinde gösterme şansımız varmı?