Görünen boş hücre sayısını bulmak

[ataman55]

soruma henüz yanıt alamadım.

 

[mami68]

Yanlış anlamadıysam "X" olmayan hücre sayısını buluyor.

=BOŞLUKSAY(F3:Q152)

 

[ataman55]

Yanlış anlamadıysam "X" olmayan hücre sayısını buluyor.

=BOŞLUKSAY(F3:Q152)

ilginize teşekkürler,
Filtre uygulanmamış yani görünen içinde "X" olmayan hücre sayısını bulmamız gerekiyor. sizinki tüm boş hücreleri buluyor. (sadece " f " sutununu bulmak yeterli.)

 

[Korhan Ayhan]

Selamlar,

Sonucun 9 mu çıkması gerekiyor. Bu sonuca hangi hücreleri sayarak ulaşmalıyız. Açıklarmısınız.

 

[mami68]

ilginize teşekkürler,
Filtre uygulanmamış yani görünen içinde "X" olmayan hücre sayısını bulmamız gerekiyor. sizinki tüm boş hücreleri buluyor. (sadece " f " sutununu bulmak yeterli.)

Bende bu formül "x" olmayan hücre sayısını buluyor kardeş. "X-i" ekleyince rakam değişiyor daha ne anlamadım.

 

[ataman55]

Selamlar,

Sonucun 9 mu çıkması gerekiyor. Bu sonuca hangi hücreleri sayarak ulaşmalıyız. Açıklarmısınız.

ilginize teşekkürler.
örnek dosyada da görüldüğü gibi içinde X olmayan görünen boş hücre sayısının 3 olarak bulunmasını istiyorum. filtre uygulanarak görünmez hale gelmiş boş hücre sayısı bana lazım değil, bunlar dikkate alınmayacak.

 

[Korhan Ayhan]

Selamlar,

Sn. ataman55,

Ben size AA26 hücresindeki 9 sayısına nasıl ulaştığınızı soruyorum.

Eğer 9 sayısı F sütunundaki mor renkli boş hücreleri temsil ediyorsa sonucun 8 çıkması gerekmez mi ?

Ayrıca F sütununda içinde "X" olmayan boş hücre (dolgu rengi olmayan) sayısıda 4 adettir. Siz nasıl 3 sonucuna ulaşıyor sunuz ?

 

[ataman55]

sayın korhan ayhan,
Bir satırda sorun vardı. Düzeltilmiş dosya ektedir.
Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

AA26 hücresindeki sonuca ulaşmak için yerleşik fonksiyonları kullanamazsınız. Bunun için özel fonksiyon kullanmak gerekecektir. Aşağıdaki fonksiyonu boş bir modüle ekleyin.

Ayrıca formülleri esnek hale getirdim. İstediğiniz ayı seçip sonucu görebilirsiniz.

Fonksiyonun kullanım şekli;

[B][COLOR=blue]=ÖZEL_SAY(Hücre_Aralığı)[/COLOR][/B]

Option Explicit
 
Function ÖZEL_SAY(Aralık As Range)
    Dim Bul As Byte, Sütun As String
    Dim X As Byte
    Dim Hücre As Range, Say As Long
    Dim Kaçıncı1 As Byte, Kaçıncı2 As Byte
    Dim Ay1 As Byte, Ay2 As Byte
 
    Application.Volatile
 
    If InStr(1, Aralık.Address(0, 0), ":") > 0 Then
        Bul = WorksheetFunction.Find(":", Aralık.Address(0, 0), 1)
        Sütun = Mid(Aralık.Address(0, 0), 1, Bul - 1)
        For X = 0 To 9
        Sütun = Replace(Sütun, X, "")
        Next
    End If
 
    For Each Hücre In Aralık
        If Hücre.Rows.Hidden = False Then
 
        If Cells(Hücre.Row, "D") <> "" Then
        Kaçıncı1 = WorksheetFunction.Match(Cells(2, Sütun), [F2:Q2], 0)
        Ay1 = Month(Cells(Hücre.Row, "D"))
            If Ay1 > Kaçıncı1 Then
            If Hücre.Value = Empty Then
            Say = Say + 1
            End If
            End If
        End If
 
        If Cells(Hücre.Row, "E") <> "" Then
        Kaçıncı2 = WorksheetFunction.Match(Cells(2, Sütun), [F2:Q2], 0)
        Ay2 = Month(Cells(Hücre.Row, "E"))
            If Ay2 < Kaçıncı2 Then
            If Hücre.Value = Empty Then
            Say = Say + 1
            End If
            End If
        End If
        End If
    Next
 
    ÖZEL_SAY = Say
End Function

 

[ataman55]

çok teşekkürler. bilemiyorum ama bende ağır işliyor. başka yolu olabilir mi acaba.

 

[Korhan Ayhan]

Selamlar,

65536 satırı tanımladığımız için ağır çalışmaktadır. Aşağıdaki formüldeki kırmızı renkli bölümü 500 olarak değiştirip deneyiniz.

=ÖZEL_SAY(DOLAYLI(ADRES(3;KAÇINCI(AA15;2:2;0))&":"&ADRES([COLOR=red]65536[/COLOR];KAÇINCI(AA15;2:2;0))))

 

[ataman55]

çok teşekkürler.