eğer 0 dan farklı ise

[endymion]

yanlış yerde sormamışımdır umarım , excelde bir hücredeki değer eğer 0 dan farklı ise çıkarken uyarı vermesi için nasıl bir kod uygulanabilir.?

Teşekkürler.

 

[parametre]

nasıl bir uyarı sesli mi yoksa sadece kırmızı renk alması yeterlimidir kosullu biçimlendirmeden kırmızı rengi verebilirsiniz istemediginiz yerden çıkmayı eklemek icin a1 oldugunu varsayalım a1=0 oldugunda yazı veya arka planı kırmızı yaparsınız ornek dosya ekleyerek tam olarak ne istediginizi belirtirseniz daha ,y, cevaplar bulunabilir kolay gelsin

 

[endymion]

yani bir mesaj kutusu olarak uyarı vermesi için; örneğin eğer a1 = >< 0 ise çıkış tuşuna bastığımda kaydet butonu gelmeden önce a1 hücresi 0 dan farklı yinede devam etmek istiyormusunuz gibi bir uyarı vermesi için bir kod.

Teşekkürler.

 

[Mahir64]

Merhaba

Anladığım kadarıyla
Eki İnceleyin

 

[endymion]

peki bunu köşedeki çarpı tuşuna bastığımızda uyarı verecek hale getirmek mümkünmüdür? yani yanlışlıkla dosya kapatılırsa diye ??

 

[Mahir64]

İyi Akşamlar

Sub auto_close ()

If Range("a1") <> "0" Then

Baslik$ = "Ç I K I Ş !!!"
Mesaj$ = "A1 Hücresi Sıfırdan farkılı Programdan Çıkmak İstiyor musunuz?"
cevap$ = MsgBox(Mesaj$, 4 + 32 + 0, Baslik$)
If cevap$ = 6 Then
ActiveWorkbook.Close Save = False
End If
Else
ActiveWorkbook.Close Save = False
End If
End Sub

 

[endymion]

Kodu sayfanın kod bölümüne yapıştırdım a1 hücresi 0 dan farklı olduğu halde herhangi bir uyarı vermedi? yanlış bişeymi yaptım acaba.