Satır içerisindeki isimleri saydırma Saydırma

[turgayzeynep]

A1:A100 satırları arasında her hücrede 5 kişi yazılı ve bu 5 kişi alt enter tuşuyla alt alta yazılmış şekilde Ben bunlara farklı bir sayfada SatırlarA1:A100 içerisinde kaç kişi olduğunun toplamını yapmak istiyorum Nasıl bir yol izlemem lazım Nasıl bir formül yazmam lazım Yardımcı olur musunuz hocam

 

[dEdE]

Merhaba,
VBA ile yapılabilir.
Aşağıdaki kodu bir Modul'e yapıştırarak dener misiniz?

Sub test()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
ss = s1.Cells(Rows.Count, "A").End(3).Row

    For i = 1 To ss
        myArr = Split(Cells(i, 1), Chr(10))
        topl = topl + UBound(myArr) + 1
    Next i
'MsgBox yerine sonucu yazdırmak istediğiniz hücre adresini yazınız _
    Örnek: Sheets("Sayfa2").cells(1,1)
MsgBox "Toplam " & topl & " kişi vardır.", vbInformation, "Toplam Kişi Sayısı"
End Sub

 

[Haluk]

Eğer A1:A100 hücrelerinin hepsi doluysa, alternatif olarak dizi formulü;

=SUM(LEN(A1:A100)-LEN(SUBSTITUTE(A1:A100;CHAR(10);""))+1)

.