Formüllü alanda veri doğrulama mümkün mü

[tarık34]

Değerli arkadaşlar,
Formülle gelen değerlerin olduğu bir aralıkta boşluk sayısına veya dolu hücre sayısına göre işleyen bir formüle ihtiyacım var.
Açıklamalı dosyam ekte.
http://s3.dosya.tc/server15/5n3wms/Veri_Dogrulama.xlsx.html

 

[ÖmerBey]

Merhaba, veri doğrulama ile veri girişini engellemek istiyorsanız veri doğrulamayı veri girişinizin yapıldığı A ve B sütunlarına yapmanız gerekiyor. Aksi takdirde veri girişi yapılmaya devam eder. Sadece C sütununa veri doğrulama uyguladığınız zaman yalnızca geçersiz veriyi daire içine alıp gösterebilirsiniz. Veri girişini engellemek için verilerin girildiği hücrelere veri doğrulama uygulamanız gerekir.
Bununla birlikte başka bir veri doğrulama kullananmanız gerektiğini belirtmişsiniz, iki veri doğrulamayı tek formülde birleştirmek mümkün olabilir. Örnek dosyanız için doğrulama formulü şu şekilde olabiilir.

=EĞERSAY($C$1:$C$20;">0")<16

 

[Ömer BARAN]

Merhaba, alternatif olsun.

Sanırım sorunuz veri doğrulama işlemi değil, A ve B sütunlarına elle veri girişi yapılırkan,
A1:B20 arasına yazılan değerlerin toplamı olan C sütununda boş sonuç vermeyen hücre sayısının 15 ile sınırlandırılması.
-- alt taraftan ilgili sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılan VBA ekranında, sağdaki boş alana aşağıdaki kod blokunu yapıştırın.
.

[B][COLOR="blue"]Private Sub Worksheet_Change(ByVal Target As Range)[/COLOR][/B]
If Intersect(Target, [[COLOR="Red"]A1:B20[/COLOR]]) Is Nothing Then Exit Sub
For sat = 1 To 20
    If Cells(sat, "C").Value <> "" Then say = say + 1
Next
If say > [COLOR="red"][B]15[/B][/COLOR] Then
    MsgBox "Kriter alanın istiap haddi doldu, veri yazamazsınız."
    Target = ""
End If
[B][COLOR="Blue"]End Sub[/COLOR][/B]

 

[Orion1]

Alternatif.
VBA kod isterseniz,Buyurun.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:B20]) Is Nothing Then Exit Sub
If WorksheetFunction.Count(Range("C1:C20")) > 15 Then
    MsgBox "Dolu hücre sayısı 15 i geçti!!", vbCritical, "UYARI"
    Target.Value = ""
End If
End Sub

 

[tarık34]

Merhaba, veri doğrulama ile veri girişini engellemek istiyorsanız veri doğrulamayı veri girişinizin yapıldığı A ve B sütunlarına yapmanız gerekiyor. Aksi takdirde veri girişi yapılmaya devam eder. [/CODE]

Sayın Mucit77,
Yukarıdaki bilgiyi arıyordum. Teşekkür ederim.

Sayın Baran, Sayın Orion1,
Kod için sağ olun.

Bu noktada kod kullanmam daha doğru olacak.