Koşullu Dolu Satır Sayısı

[hamzasaricicek]

Arkadaşlar merhaba.
A sutununda yer alan ortalama 200 e yakın kayıtım var. Ama ben bu kayıtlardan içeriğinde "TOPLAM" yazan hücrenin öncesinde kaç kayıt mevcut onu bulmak istiyorum. Bunun için nasıl bir kodlama kullanabiliriz.

 

[mustafaine1]

BAĞ_DEĞ_DOLU_SAY formulu isinizi gormuyor mu?

 

[hamzasaricicek]

Hocam hiç denemedim onu ama, vba kodu ile halletmem gereken bir durum sanırsam..

 

[Orion1]

Arkadaşlar merhaba.
A sutununda yer alan ortalama 200 e yakın kayıtım var. Ama ben bu kayıtlardan içeriğinde "TOPLAM" yazan hücrenin öncesinde kaç kayıt mevcut onu bulmak istiyorum. Bunun için nasıl bir kodlama kullanabiliriz.

Dim k As Range
Set k = Range("A:A").Find("TOPLAM", , xlValues, xlWhole)
If Not k Is Nothing Then
    MsgBox "Toplamdan önceki satır sayısı : " & k.Row - 1
    Else
    MsgBox "TOPLAM Bulunamdı."
End If

 

[hamzasaricicek]

Evren Hocam çok işime yaradı çok teşekkür ederim.. Ellerinize emeğinize sağlık.

 

[Orion1]

Evren Hocam çok işime yaradı çok teşekkür ederim.. Ellerinize emeğinize sağlık.

Rica ederim.
iyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki fonksiyonu kullanarakta sonuca ulaşabilirsiniz.

=BAĞ_DEĞ_DOLU_SAY(DOLAYLI(ADRES(1;1)&":"&ADRES(KAÇINCI("*TOPLAM*";A:A;0)-1;1)))

 

[hamzasaricicek]

Koray hocam ellerinize sağlık. Dün vba kodundan başkası işime lazım olmaz diye düşünmüştüm ama bugün lazım oldu ve tekrar girdiğimde sizin yazdığınızı gördüm. Çok ikrama geçti ellerinize sağlık tekrardan..