selectionchange'de gibi çalışıyor???

[pcci]

Merhaba arkadaşlar. Size bir sorum olacaktı. Excel'de vb ekranını açtım.
sub kontrol
end sub yazdım. (makro tanımla'dan değil yani) Sonra bu sub'a aşağıdaki satırı ekledim.
Range("a1").FormulaR1C1 = "=if( rc[2]=15,""c1 deki sayı 15"",""c1deki sayı 15 değil"")"
Bu olay c3 hücresinden her ayrıldığımda gerçekleşiyor. Ama selectionchange olayına yazmadım. Neden her seçim değişmede oluyor? Bir de iki tırnak yanyana neden koyuluyor? İlgilenirseniz çok sevinirim arkadaşlar. Cevaplarınızı bekliyorum. Forumda aktif gözükmesem de foruma bakıyorum. Kolay gelsin... :hey:

 

[xxrt]

A1 Hücresine atadığınız formül silinmediği sürece işlev devam eder.

Sub sayı()
If [c1] <> "" And [c1] <> 15 Then
soru = MsgBox("Girdiğiniz Sayı Değil.Devam Edeyimmi?", vbYesNo, "Soru Başlığı")
If soru = vbYes Then GoTo devam
If soru = vbNo Then Exit Sub
End If
devam:
[a1] = "Girdiğiniz Sayı"
End Sub