Veri Doğrulama

[besen]

Merhaba A2-A6 arasına oran girdiğimde B2-B6 arasında hesaplamalar yapılıyor. Bunların toplamları A1'den farklıysa uyarı gelsin istiyorum, if(B1<>A1) şeklinde formül yazdım ama bunu sadece büyük için hesaplıyor.
Küçükse de uyarı gelsin istiyorum, bunu yapamadım.
Yardımlarınız için teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.

Veri doğrulamada Formül kısmına A1=B1 formül sonucu doğruysa izin verir değilse hata iletisi gösterir.

 

[besen]

küçükse hata vermiyor.

 

[Muzaffer Ali]

Bu mümkün değil.
A1=B1 formül sonucu doğruysa hata vermez yanlışsa mutlaka hata verir.
Örnek dosya üzerinde mi deniyorsunuz başka bir dosyada mı.
Bşka dosyada deniyorsanız farklı bir sorun olmalı.

 

[besen]

Göndediğim örnek dosyasında.

 

[Muzaffer Ali]

Şöyle mi anlamalıyım?
Hata iletisi hep aynı mı oluyor? Küçük olsa da büyük olsa da hep büyüktür hatası mı veriyor?

Eğer küçükse küçüktür desin, büyükse büyüktür desin mi istiyorsunuz?

Yoksa B1 A1 den küçük olduğunda hiç hata iletisi vermiyor mu?

 

[besen]

Veri girerken doğal olarak son işleme kadar hep küçük olacağı için hata vermemeli, uyarı olmalı.
Büyükse hata vermeli
Benim yaptığım da sadece büyükse hata veriyor.

 

[Muzaffer Ali]

Veri Doğrulamalarının tamamını kaldırın.

Sayfa adını sağ tıklatın Kod Görüntüle seçin aşağıdaki kodları açılan sayfaya kopyalayın

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A" & Cells(Rows.Count, "A").End(xlUp).Row)) Is Nothing Then
        If Range("A1") > Range("B1") Then
            MsgBox "Toplam dağılım, belirlenen kontenjanfan az.", vbCritical
            Exit Sub
        End If
    End If
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        If Range("B1") > Range("A1") Then
            MsgBox "Toplam dağılım, belirlenen kontenjanfan fazla.", vbCritical
        ElseIf Range("A1") > Range("B1") Then
            MsgBox "Toplam dağılım, belirlenen kontenjanfan az.", vbInformation
        End If
    End If
End Sub

 

[besen]

Zahmet verdim. Çözüm tamam ama ben öğrenmek için de sormuştum, fonksiyon içinde çözüm yok anlaşılan.
Teşekkür ederim.

 

[Muzaffer Ali]

Fonksiyon derken veri doğrulamayı kast ediyorsunuz değil mi?

Mutlaka bir mantık düşünerek yapılabilir.
Mesela B1 gibi başka bir hücrede de toplama yapılır, biri büyük olduğunda diğeri küçük olduğunda uyaracak şekilde mesaj verdirilebilir.