Her sütun için satır sayma

[klippers]

Arkadaşlar merhaba benim sorunum şu kısaca özetlemek istiyorum. Benim çalışma sayfamda veriler B18'den başlayıp O18'e kadar gidiyor. ben istiyorum ki b18 den 018'e kadar sayı olan hücreleri saysın daha sonra b19 019daki hücreleri saysın b20 020 diye bu şekilde devam etsin. bir çok for döngüsü denedim ama işin içinden çıkamadım yardımcı olursanız çok sevinirim. Hepinize iyi çalışmalar

 

[klippers]

Dersin projesiyle alakalı bir soru soruyorum cevabı alamadığım takdirde dersten yarın itibariyle kalacağımı ve okulumun 1 dönem uzayacağını belirtmek isterim.. O yüzden rica ediyorum cevap için.

 

[ZorBey_]

Merhaba İyi Çalışmalar
P18 E
=BAĞ_DEĞ_SAY(B18:O18)
Denermisiniz

 

[Ziynettin]

Benim çalışma sayfamda veriler B18'den başlayıp O18'e kadar gidiyor. ben istiyorum ki b18 den 018'e kadar sayı olan hücreleri saysın daha sonra b19 019daki hücreleri saysın b20 020 diye bu şekilde devam etsin. bir çok for döngüsü denedim ama işin içinden

Sub klippers()
    Dim s, c, son As Integer
    son = Range("B" & Rows.Count).End(3).Row
    Range("P18:P" & son).ClearContents
    For s = 18 To son
        For c = 2 To 15
            If IsNumeric(Cells(s, c)) And Cells(s, c) <> "" Then
            Cells(s, "P") = Cells(s, "P") + Cells(s, c).Count
            End If
        Next c
    Next s
End Sub

 

[klippers]

Size ne kadar teşekkür etsem azdır çok sağ olun.