Durdur makrosu

[1Al2Ver]

Merhaba,

Sayfa2'de;

Private Sub Worksheet_Change(ByVal Target As Range)
YANSÖN
End Sub

Modül1'de;

Sub AUTO_OPEN()
If Sheets("Sayfa2").Range("J24") = "Dikkat" Then
Sheets("Sayfa2").Range("J24").Interior.ColorIndex = 3
Application.OnTime Now + TimeValue("00:00:02"), "YANSÖN"
Sheets("Sayfa2").Range("J24").Interior.ColorIndex = 3
Else
Sheets("Sayfa2").Range("J24").Interior.ColorIndex = xlNone
End If
End Sub

Sub YANSÖN()
If Sheets("Sayfa2").Range("J24") = "Dikkat" Then
Sheets("Sayfa2").Range("J24").Interior.ColorIndex = 6
Application.OnTime Now + TimeValue("00:00:02"), "AUTO_OPEN"
Else
Sheets("Sayfa2").Range("J24").Interior.ColorIndex = xlNone
End If
End Sub

makrosu mevcut,

Makro aktifken, makroyu bir buton ile durdurmak için gereken kodlar nelerdir ?

Teşekkür ederim.

 

[Ayhan Ercan]

Merhaba,
Değişik bir öneri :::

Yukarıdaki kodda YANSÖN makrosunun çalışabilmesi için Sayfa 2 deki J24 hücresinde "Dikkat" yazıyor olmalı.

Bir buton hazırlayın ve koduna da J24 hücresine "Dikkat" dışında bir şey yazıdırın.
Mesela:
Sheets("Sayfa2").Range("J24") = "Dikkat."

Burada Dikkat kelimesinin yanına bir nokta koyulması istenmiş. Eğer hücrede "Dikkat." yazarsa YANSÖN makrosunun çalışabilmesi mümkün olmadığından makro durdurulmuş olabilir.

Bu sadece sonuca gidebilmek adına değişik bir öneri...

Ben ToggleButton ile bir örnek yaptım.
Ek dosyayı inceleyiniz.....