Yalnızca Sayılar (Rakamları) Say

[şehiriçi]

Merhaba Arkadaşlar,
Doğrusu bu sefer hiç araştırmadan ,direk soruyu soruyorum ,umarım değerli üstadlarım kızmazlar.
ekteki dosyamda A3:A19 aralığına hem fonksiyonla hemde vba da kod ile yazılmasını istiyorum ,
örnek verecek olursak A3 sütununa yazılacak fonksiyon ya da kod G3:AJ3 aralığında ki sadece sayılari (rakamları) saymalı saatleri saymamalı ve sonuç 1 olacak
A4 sütununa yazılacak fonksiyon ya da kod G4:AJ4 aralığında ki sadece sayılar (rakamları) saymalı saatleri saymamalı ve sonuç2 olacak ve böylece aşağıya doğru satır devam edecek

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim Bak As Long
    Dim Satir As Range
    Dim Say As Integer
    For Bak = 3 To Cells(Rows.Count, "C").End(xlUp).Row
        For Each Satir In Range("G" & Bak & ":AJ" & Bak)
            If IsNumeric(Satir.Text) Then
                Say = 1 + Say
            End If
        Next
        Cells(Bak, "A") = Say
        Say = 0
    Next
End Sub

 

[şehiriçi]

Teşekkürler Adaş ,benim de istediğim Kod ile olmasıydı,eline emeğine sağlık.

 

[şehiriçi]

Tekrar Merhaba Muzaffer Ali , mümkünse aynı kodun içinde ,sonucu 1 den büyük olanların rengini kırmızıya çevirebilir misin.?.Saygılarımla...

 

[şehiriçi]

Merhaba.

[KOD]Alt Testi()
Dim Bak As Uzun
Menzil Olarak Dim Satir
Tamsayı Olarak Dim Say
Bak = 3 To Cells(Rows.Count, "C").End(xlUp).Row için
Menzildeki Her Satir İçin("G" & Bak & ":AJ" & Bak)
If Sayısal(Satir.Text) Sonra
Söyle = 1 + Söyle
Eğer Sonlandırıyorsanız
Sonraki
Hücreler(Bak, "A") = Say
Hücreler(Bak, "A").Font.ColorIndex = 3
= 0 söyle
Sonraki
Aboneliği Bitir[/KOD]
[/ALINTI]

Cevabı buldum Teşekkürler.