MsgBox Uyarısı

[odin]

merhaba arkadaşlar benim derdim şu sayfanın kod bölümüne yazılacak bir macro ile a1 hücresindeki değer 500 altında olursa mesaj vermesini istiyorum eyer 500 üstünde ise değer hiç bir uyarı vermesin.

ilginize şimdiden teşekkürler.

 

[nziya]

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") < 500 Then
MsgBox ("500'ÜN ALTINDA VERİ GİRDİNİZ")
End If
End Sub

 

[Seyit Tiken]

İstediğiniz böyle bir şey mi?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") <= 499 Then
MsgBox "500'ün Altında Veri Giremezsiniz"
Else
End If
End Sub

 

[Metin Karaağaç]

veri doğrulamayı denediniz mi?
makro da olur ama bence bu daha pratik

 

[odin]

ilgi gösteren arkadaşlara teşekkürler verdiğiniz örnekler işimi gördü.

saygılar.

 

[odin]

fakat arkadaşlar başka bir hücreye gitsem mesaj sürekli çıkıyor

 

[Metin Karaağaç]

Tekrar ediyorum. Benim önerdiğim yol daha pratik. Makro ile daha karmaşık yapıdaki ayarları yapabilirsiniz. Ancak sizin isteğiniz çok basit olduğu için bence veri doğrulama.

 

[Levent Menteşoğlu]

sayfanın kod bölümüne yazılacak bir macro ile a1 hücresindeki değer 500 altında olursa mesaj vermesini istiyorum eyer 500 üstünde ise değer hiç bir uyarı vermesin.

Sorunuz yukarıdaki gibi, değerli arkadaşlarımızda bu isteğinize istinaden gerekli kodlamayı önermişler. Kod A1 hücresine göre çalışmaktadır. Sizin dosyanızda A1 hücresinde =Bugün() formülü olup günün tarihini göstermektedir. Dolayısıyla hiç bir zaman 500 gibi bir sayısal değer vermeyecektir.

 

[Zeki Gürsoy]

Aşağıdaki şekilde dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then
Exit Sub
End If
If [A1] <500 Then
Msgbox"500'den küçük değer girdiniz..."
Else
Exit Sub
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza baktım Sn. leventm beyin değindiği gibi A1 hücrenizde tarih var bu yüzden istediğiniz olmamaktadır. Siz tablonuzda hangi hücrelere 500 den küçük değer girildiğinde uyarı vermesini istiyorsanız belirtin yardımcı olmaya çalışalım.

 

[odin]

b3,c3,d3,e3,f3,g3,h3,ı3,j3 500 den küçük değer olursa msgbox ile uyarsın
istiyorum.

 

[Levent Menteşoğlu]

Yukarıda verilen kodlara ilk satır olarak aşağıdaki kodu ilave edin.

if intersect(activecell,[c3:j3]) is nothing then exit sub

 

[Seyit Tiken]

Bunu bir deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("b3,c3,d3,e3,f3,g3,h3,ı3,j3") <= 499 Then
MsgBox "500'ün Altında Veri Giremezsiniz"
End If
End Sub

 

[Seyit Tiken]

Kusura bakmayın. Kod istenilen sonucu vermiyor.

 

[Seyit Tiken]

Veri Doğrulama ile yapılmış bir çalışma.
Ekteki dosyaya bakınız.