DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function TarihSay(Alan As Range) As Long
Dim Hcr As Range
Dim Adt As Long
For Each Hcr In Alan
If IsDate(Hcr) Then Adt = Adt + 1
Next Hcr
TarihSay = Adt
End Function
=TarihSay(A1:A10)
İdris Bey, sizin kontrolünüz hücredeki sayı 15706'dan büyük olanları sayıyor, yani tarihlerle ilgili bir biçim gerekli, yoksa o sayıdan büyük olanlar için +1 ilave eder, dolayısıyla yanlış sonuç üretilir.
Ya Ömer Bey'in dediği gibi yardımcı sütun kullanarak ya da Necdet Bey'in hazırladığı gibi bir KTF çözüm olacaktır.
O zaman bilgilendirmeye devam.Biliyorum, ben de mesajlarımızı herkes okuduğu için genel bir bilgilendirme yaptım.