Peşpeşe gelen dolu hücre sayısı

[mrs303]

Satırlarda peşpeşe olan 3 ve üzeri dolu olan hücrelerin sayısının toplamını bulmak istiyorum.

Ornek dosya ekte yer almaktadır.

Teşekkürler.

 

[asimavi50]

Dosyanızı aşağıdaki linke yükleme imkânınız varsa yardımcı olabilirim diye düşünüyorum?


http://s3.dosya.tc/

 

[Mahir64]

Merhaba,

10 sonucunu nasıl buldunuz?

--

 

[mrs303]

dosyayı başka bir yere yükleyemiyorum, işyeri izin vermiyor.

10 sonucunu peşpeşe gelen 3 ve üzeri dolu hücreleri sayarak buldum. Bunun formülünü istiyorum, eğer mümkün ise.

 

[Murat OSMA]

Makro ile çözüm isterseniz bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim i%, topla%, say%
    For i = 1 To Cells(2, Columns.Count).End(1).Column
        If Cells(2, i) <> "" Then
            say = say + 1
            Cells(i, "y") = say
                Else
            say = Empty
        End If
        On Error Resume Next
        If Cells(i, "Y") = "" And Cells(i - 1, "Y") > 2 Then
            topla = topla + Cells(i - 1, "Y")
            Range("X2").Value = topla
        End If
    Next i
    i = Empty: topla = empty: say = empty
End Sub[/FONT]

 

[mrs303]

Murat bey teşekkür ederim istediğim gibi olmuş. Fakat Y sütundaki rakamları görmek istemiyorum makro çalıştıktan sonra bu mümkün müdür ?

 

[Murat OSMA]

End Sub satırından önce bu kodu ilave edin;

[FONT="Trebuchet MS"]Range("Y:Y").ClearContents[/FONT]

Yani bu şekilde yazın;

[FONT="Trebuchet MS"]Range("Y:Y").ClearContents
End Sub[/FONT]

 

[ÖmerBey]

Alternatif olsun;
Kullanıcı Tanımlı Fonksiyon:

Function TOPLAMAL(arazi)
For Each hücre In arazi
    If hücre <> "" Then
        say = say + 1
        ElseIf say > 2 Then
            toplam = toplam + say
            say = 0
        Else
            say = 0
    End If
Next
If say > 2 Then toplam = toplam + say
TOPLAMAL = toplam
End Function

Bu kodu boş modüle kopyaladıktan sonra hücre içine:

=TOPLAMAL(A2:V2)

şeklinde formülle de hesaplatabilirsiniz.

 

[hassas]

Teşekkür ederim , sorun çözüldü.