Hücre de değer kontrolü

[haso_excel]

Merhaba arkadaşlar,

D2 hücresinden başlayarak D&son hücresine kadar olan bir alanda sıfırdan farklı değerleri kontrol etmek için aşağıdaki kodu yazdım. Ama istediğim gibi çalışmadı.
Amacım, sıfır ise işlem tamam mesajı, değil ise hatalı kayıt var mesajı almak.Hatta mesajbox da okeye basıldığında hatalı kayıda setfocus yapılırsa çok daha iyi olur.İlginiz için şimdiden teşekkürler

Sub mesaj()
For a = 2 To WorksheetFunction.CountA(Range("d:d")) + 1
If Cells(a, 4).Value = 0 Then
MsgBox "İŞLEM TAMAM"
ElseIf Cells(a, 4).Value <> 0 Then
MsgBox "DİKKAT HATALI ÇEK GİRİŞİ"
End If
Exit Sub
Next a
End Sub

 

[Huseyinkis]

Ekteki gibi denermisiniz. Bu her hücrede mesaj uyarısı verecektir işleminiz uzun sürebilir.

Sub mesaj()
For a = 2 To Cells(rows.count,4).End(3).row
If Cells(a, 4).Value = 0 Then
MsgBox "İŞLEM TAMAM"
ElseIf Cells(a, 4).Value <> 0 Then
MsgBox "DİKKAT HATALI ÇEK GİRİŞİ"
End If
Next a
End Sub

Bu işlem tek mesaj olarak size bilgi verir.

Sub mesaj()
For a = 2 To Cells(rows.count,4).End(3).row
If Cells(a, 4).Value = 0 Then
Adet0=Adet0+1
ElseIf Cells(a, 4).Value <> 0 Then
Adet1=Adet1+1
End If
Next a

Msgbox Adet0 &" Adette İşlem Tamam - " & Adet1 & "Adette Hata Var"

End Sub

buda hatalı satırı seçer ve durur.

Sub mesaj()
For a = 2 To Cells(rows.count,4).End(3).row
If Cells(a, 4).Value <> 0 Then
MsgBox "DİKKAT HATALI ÇEK GİRİŞİ"
Cells(a, 4).Select
exit sub
End If
Next a
End Sub

 

[haso_excel]

Çok teşekkür ederim, işlem tamam