Formül sonucu 0 dan küçük ise uyarı verdirme

[zafer007]

Merhabalar..

Formül A1 hücresinde şu şekilde yazılı =TAMİŞGÜNÜ(B1;C1) ve formüller 50. satıra kadar devam ediyor benim burda yapmak istediğim eğer çıkan tarih farkı eksi ise msgbox ile uyarmak.

 

[Huseyinkis]

Merhabalar..

Formül A1 hücresinde şu şekilde yazılı =TAMİŞGÜNÜ(B1;C1) ve formüller 50. satıra kadar devam ediyor benim burda yapmak istediğim eğer çıkan tarih farkı eksi ise msgbox ile uyarmak.

Ekteki kodları denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To Cells(Rows.Count, 1).End(3).Row
If Cells(i, 1).Value < 0 Then
AAA = AAA + 1
End If
Next
If AAA > 0 Then
MsgBox AAA & " Adet Eksi Kayıt Var"
End If
End Sub

 

[zafer007]

Sn. Huseyinkis

Tam istediğim gibi olmuş elinize sağlık, ancak şöyle ufak bir nüans var b1 tarih girdiğinde hemen uyarı mesajı veriyor oysaki b1 girilip c1 girdikten sonra mesaj verdirme imkanımız olursa çok iyi olur.

 

[Huseyinkis]

Aşağıdaki kodları deneyin C1 ile C500 arasında değer girişi yaptığınızda makroyu calıştırır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C1:C500]) Is Nothing Then Exit Sub
For i = 1 To Cells(Rows.Count, 1).End(3).Row
If Cells(i, 1).Value < 0 Then
AAA = AAA + 1
End If
Next
If AAA > 0 Then
MsgBox AAA & " Adet Eksi Kayıt Var"
End If
End Sub

 

[zafer007]

Burda sorduğum soruyu, bu şekilde farklı bir yerde uyguladım ama olmadı..
B5:B20 hücre aralığında tamişgünü formülü var.
Buraya veri doğrulamadan izin verilenden Özel seçerek
bu formülü ekledim =EĞER($B$5:$B$20<0;"TARİH HATALI";"DOĞRU") ama aksi bir veri girildiğinde uyarı vermiyor.

 

[zafer007]

Sorunla ilgili fikri olan varmıdır ?

 

[zafer007]

Önerisi olan var mı ?

 

[zafer007]

Sn. Huseyinkis

Kodu denedim tam istediğim gibi oldu çok teşekkürler..