Yanıp sönen hücreyi durduramadım

[KONYA42]

İyi akşamlar,aşağıdaki kodu yazdım ve böylece hücre yanıp sönüyor ama durduracak kodu nasıl yazacağım?

Sub Renk1()
DoEvents



Sheets("Su İzleme Formu").Range("E9").Interior.Color = vbGreen

Sheets("Su İzleme Formu").Range("F9").Interior.Color = vbYellow
Application.OnTime Now + TimeValue("00:00:01"), "Renk2"
End Sub
Sub Renk2()
DoEvents



Sheets("Su İzleme Formu").Range("F9").Interior.Color = vbGreen
Sheets("Su İzleme Formu").Range("E9").Interior.Color = vbYellow
Application.OnTime Now + TimeValue("00:00:01"), "Renk1"

End Sub

 

[Ferhat Pazarçevirdi]

Aşağıdaki Kodu kullanınız ...

Sub Durdur()
    End
EndSub

 

[KONYA42]

Hocam te&#351;ek&#252;r ederim ama durduramad&#305;m.&#350;&#246;yleki Sub Ba&#351;lat() If [a1]<5 Then Call Renk2 End If
End Sub
Renk2'yi &#231;a&#287;&#305;rd&#305;ktan sonra yanan h&#252;creyi durduram&#305;yorum.
Sub Durdur() End
End Sub yapt&#305;m ama olmad&#305;.

 

[parsley2]

yanıt

kodlarınızın arasına durmasını istediğinizi belirten bir koşul koyunuz. aşağıda buna ilişkin kod ben koydum araya bir dene belki daha başka fikirler verir.

Sub Renk1()
DoEvents



Sheets("Su İzleme Formu").Range("E9").Interior.Color = vbGreen

Sheets("Su İzleme Formu").Range("F9").Interior.Color = vbYellow
If Sheets("Su İzleme Formu").Range("a1")=1 then
exit sub
else
Application.OnTime Now + TimeValue("00:00:01"), "Renk2"
end If
End Sub
Sub Renk2()
DoEvents



Sheets("Su İzleme Formu").Range("F9").Interior.Color = vbGreen
Sheets("Su İzleme Formu").Range("E9").Interior.Color = vbYellow
If Sheets("Su İzleme Formu").Range("a1")=1 then
exit sub
else

Application.OnTime Now + TimeValue("00:00:01"), "Renk1"
end If
End Sub

 

[uzmanamele]

merhaba
5 kez i&#351;lem yap&#305;nca dursa i&#351;inizi g&#246;r&#252;r m&#252;?

Public say As Integer

Sub Renk1()
If say > 5 Then GoTo 10
DoEvents
Sheets("Su &#304;zleme Formu").Range("E9").Interior.Color = vbGreen
Sheets("Su &#304;zleme Formu").Range("F9").Interior.Color = vbYellow
Application.OnTime Now + TimeValue("00:00:01"), "Renk2"
10
Exit Sub
End Sub

Sub Renk2()
say = say + 1
DoEvents
Sheets("Su &#304;zleme Formu").Range("F9").Interior.Color = vbGreen
Sheets("Su &#304;zleme Formu").Range("E9").Interior.Color = vbYellow
Application.OnTime Now + TimeValue("00:00:01"), "Renk1"
End Sub

Sub s&#305;f&#305;rla()
say = 0
End Sub


bu da olmazsa makinenin fi&#351;ini &#231;ekin. :hihoho:

 

[hamitcan]

Ben de, bir arkadaşımın katkılarıyla kodu aşağıdaki şekilde düzenledim.
Kod, "Esc" ye basıldığında duruyor, tekrar basıldığınıda çalışıyor.

Private esc_key As Boolean
Sub durdur()
    esc_key = Not esc_key
End Sub

Sub Renk1()
    Application.OnKey "{ESC}", "durdur"
    If esc_key = True Then GoTo od_menu:
    Range("E9").Interior.Color = vbGreen
    Range("F9").Interior.Color = vbYellow
od_menu:
    Application.OnTime Now + TimeValue("00:00:01"), "Renk2"
End Sub

Sub Renk2()
    Application.OnKey "{ESC}", "durdur"
    If esc_key = True Then GoTo od_menu:
    Range("F9").Interior.Color = vbGreen
    Range("E9").Interior.Color = vbYellow
od_menu:
    Application.OnTime Now + TimeValue("00:00:01"), "Renk1"
End Sub

 

[KONYA42]

Arkada&#351;lar te&#351;ek&#252;r ederim hepinize.Cevaplar&#305;n&#305;z&#305; hen&#252;z &#351;imdi okudum.&#214;nerilerinizi uygulyaca&#287;&#305;m.