hücre uyarısı

[ilhaan]

İyi akşamlar; a1 hücresine 16 dan büyükbir değer girersek "bu değer girilemez,büyük değer" gibi bir uyarı mesajını nasıl yapabiliriz. Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

A1 hücresini seçin.
VERİ-DOĞRULAMA menüsünü açın.
AYARLAR sekmesinden ÖZEL seçeneğini seçin.
Alttaki formül kutusuna aşağıdaki formülü yazın.

=A1<=16

HATA UYARISI sekmesini açın.
Stil bölümünden DUR seçeneğini seçin.
BAŞLIK bölümüne "Dikkat !" yazın.
HATA İLETİSİ kutusuna aşağıdaki iletiyi yazın ve tamam tuşlarına basarak işlemi tamamlayın.

Bu değer girilemez !
Büyük bir değer !

 

[ilhaan]

slm

Yardımın için teşekkürler.

 

[Emir Hüseyin Çoban]

A1 hücresine el ile giriş yapınca uyarı veriyor ancak

a1 hücresin =a2+a3 formülü olsun. a2 de 15, a3 de 2 sayıları olsun.
bu şekilde bir işlem olunca uyarı vermesini nasıl sağlarız.

 

[Korhan Ayhan]

Selamlar,

Sn. huseyincoban sayfanın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

A2 yada A3 hücresi değiştiğinde kod çalışacaktır.

Option Explicit
 
Private Sub Worksheet_Calculate()
    On Error GoTo Son
    Application.EnableEvents = False
    If Range("A1") > 16 Then
        MsgBox "Bu değer girilemez !" & vbCrLf & "Büyük bir değer !", vbCritical
        Range("A2:A3").ClearContents
    End If
Son: Application.EnableEvents = True
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A2:A3")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Range("A1") > 16 Then
        MsgBox "Bu değer girilemez !" & vbCrLf & "Büyük bir değer !", vbCritical
        Range("A2:A3").ClearContents
    End If
Son: Application.EnableEvents = True
End Sub

 

[Emir Hüseyin Çoban]

Teşekkürler Sy Korhan Ayhan, sorunsuz çalışıyor.