"D" sütünün daki "0" dan büyük verileri kontrol et

[akgüvercin]

Selamlar arkadaşlar uzun bir aradan sonra Excell VBA ya bakayım dedim .
Ben haylice hamlamışım .
Bakındım sağa sola ama yaklaşık bir uyarlara göremedim . şimdiden teşekkürler

--
"D" sütünün daki "0" dan büyük verileri kontrol et
her hangi bir satır daki değer 399 dan büyük ise ("x" satırındaki veri "399" dan büyük) msgbox ile uyar

 

[turist]

"D" sütünün daki "0" dan büyük verileri kontrol et
her hangi bir satır daki değer 399 dan büyük ise ("x" satırındaki veri "399" dan büyük) msgbox ile uyar

En kolay cevap : "For Next " döngüsü ile yapılabilir, ancak;
Bu mesaj hangi şartlarda görüntülenecek?
500 satırlık veride 25 satır 399'dan büyükse hepsi tek mesaj kutusunda mı görüntülenecek?
Görüntüleme işlemi bir butona bağlı makro ile mi çalışacak?
Sayfada bir işlem sonucu mu mesaj görüntülenecek?

gibi ( daha da fazla koşul olabilir) sorulara açıklık getirirseniz, gerçek isteğinizi tam ve net olarak tanımlarsanız veya örnek bir excel dosyanızı foruma eklerseniz, daha kolay ve hızlı cevap alabilirsiniz.

 

[akgüvercin]

Çalışma dosyasını yükledim

http://s9.dosya.tc/server/d5lw2c/00000makro.rar.html

"1" isimli sayfadaki "D"Sütunu
Aslında
B sütununa veriyi girerken de yaptırabilirim ama deneme aşamasında CommandButton5 da kodu deniyorum .


İlginiz için teşekkürler Turist

 

[turist]

Sayfa "1" in VBA daki sayfa kısmına:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s1 As Worksheet, son As Long, i As Long
Set s1 = ThisWorkbook.Sheets("1")
son = s1.Cells(Rows.Count, "a").End(3).Row
On Error Resume Next
If Not Intersect(Target, s1.Range("B6:B" & son)) Is Nothing Then
If s1.Cells(Target.Row, "d").Value > 399 Then
MsgBox Target.Row & " satırındaki  veri 399 dan büyük"
s1.Cells(Target.Row, "B").ClearContents ' bu satırı isterseniz kullanabilirsiniz, _
kullanmazsanız tamamen silip _
istediğiniz başka bir konutu da yazabilirsiniz
End If
End If
End Sub

ekleyerek deneyin.
B sütununa girdiğiniz değere göre , D sütunundaki veri 399'dan büyükse Mesaj üretir.

Bu işlemi butona atayarak çalıştırmak isterseniz; çalışmaz, zira orada mesaj kutucuğu çıkacağı için makro ilerlemez ve hata verir.Onun yerine D sütunundaki 399 dan büyük değerleri "işaretleme", renklendirme gibi başka metodlar kullanılabilir.

 

[akgüvercin]

Değerli Turist

Denedim ve gayet güzel çalışıyor

Çözümünüz , ilgi ve alakanız için teşekkür ederim.