Excel'de Metin Hücrelerini Sayı Olarak Toplama

[camosur]

Excel'de Metin Hücrelerini Sayı Olarak Toplama

Öncelikle Excel.web.tr forum halkına selamlar.

Benim sorum şu.

1. Hücre: Mehmet
2. Hücre: Yusuf
3. Hücre: Veysel

3 hücrede metin yazılırsa bunları sayı olarak göstersin.
Hesaplama olarak yeni hücrede 3 yazsın.

Teşekkürler.

 

[hamitcan]

Sub MetinOlanHucreleriSay()
    For Each hcr In ActiveSheet.UsedRange
        If Application.IsText(hcr) Then s = s + 1
    Next
    MsgBox s
End Sub

 

[camosur]

Sub MetinOlanHucreleriSay()
    For Each hcr In ActiveSheet.UsedRange
        If Application.IsText(hcr) Then s = s + 1
    Next
    MsgBox s
End Sub

Kusura bakmayın hamitcan bey yalnız benim pek fazla excel bilgim yokta sayıları say otomatik varda metinleri say yok, yukarıdaki kodları nereye yazmam gerekiyo?

Teşekkürler

 

[mgurten]

alternatif olarak

mesela c1 hücresine aşağıdaki formülü yazabilirsiniz

=TOPLA.ÇARPIM(EMETİNSE(A:A)*1)

 

[camosur]

Teşekkür ederim efendim. Buraya bakıpta yaptım.

http://www.excel.web.tr/f47/s-tunlardak-met-n-er-kl-h-creler-t18229.html

Buradaki yeterli geliyo, yardımlarınız için çok saolun.

=BAĞ_DEĞ_DOLU_SAY(B2:B101)

 

[mgurten]

Teşekkür ederim efendim. Buraya bakıpta yaptım.

http://www.excel.web.tr/f47/s-tunlardak-met-n-er-kl-h-creler-t18229.html

Buradaki yeterli geliyo, yardımlarınız için çok saolun.

Bu formül ile yaparsan dolu olan bütün hücreleri sayar ayrım yapmaz
ama siz sorunuzda metin olan değerleri saymak istiyorum demiştiniz.

 

[camosur]

Bu formül ile yaparsan dolu olan bütün hücreleri sayar ayrım yapmaz
ama siz sorunuzda metin olan değerleri saymak istiyorum demiştiniz.

Evet haklısınız efendim. Eksik bilgi ve hatalı anlatmadan dolayı özür dilerim.