Sütun içindekilerini saydırma

[turgayzeynep]

Hocam kolay gelsin B3:B:400 arasındaki satırlarda hücrelerin içerisinde bazı hücrelerde 3 tane isim bazılarında 5 bazılarında 7 olmak üzere b3'ten b400 arasındaki satırların içerisindeki isimleri nasıl saydırabilirim toplamını

 

[Necdet]

Merhaba,
Pivot Table ile rahatlıkla yapabilirsiniz.

 

[HücrelereFısıldayanAdam]

Sorunuz açık değil, hücre içindeki ad soyad bilgisindeki kelimeleri saydırmak istiyorsanız, hücrelerdeki boşluk sayısını hesaplayarak bulabilirsiniz.

 

[turgayzeynep]

Hayır hocam ad soyad içerisindeki kelimeleri değil örnek
A1 sütununda aşağıdaki şekilde alt enter ile yazıldığını farz edelim
Turgay
Ahmet
Veli
Cihan

Bu isimleri saydırmak istiyorum örnek 4 kişi olarak en alt satıra saymasını istiyorum Nasıl bir formül kullanmam lazım

 

[dEdE]

Merhaba,
Örnek dosya olmadan bu konunun bir hayli uzayacağına iddiaya girerim.
A1 hücresi (A1 sütun değil) için kod;

Sub Say()
    MsgBox "A1 hücresinde " & UBound(Split(Range("A1"), Chr(10))) + 1 & " isim vardır."
End Sub

 

[Korhan Ayhan]

Merhaba,

Benzer bir sorunuz..

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

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

www.excel.web.tr

Ek olarak bende soruya cevap aramıştım. Paylaşmak istedim..

Eski sürümler için;

=TOPLA.ÇARPIM((UZUNLUK(B3:B400)-(B3:B400<>"")*(UZUNLUK(YERİNEKOY(B3:B400;DAMGA(10);""))-1)))

Ofis 365 için;

=BAĞ_DEĞ_DOLU_SAY(METİNBÖL(METİNBİRLEŞTİR(DAMGA(10);1;B3:B400);DAMGA(10)))

 

[turgayzeynep]

Merhaba,
Örnek dosya olmadan bu konunun bir hayli uzayacağına iddiaya girerim.
A1 hücresi (A1 sütun değil) için kod;

Sub Say()
    MsgBox "A1 hücresinde " & UBound(Split(Range("A1"), Chr(10))) + 1 & " isim vardır."
End Sub

Saymış olduğu kişileri nereye toplam sayıyı nı yazması gerekiyo A 450 getirmesini istiyorum

 

[dEdE]

Saymış olduğu kişileri nereye toplam sayıyı nı yazması gerekiyo A 450 getirmesini istiyorum

Türkçe yazım kurallarına uymayan mesajları anlayamadığım için yanıtlayamıyorum.

 

[turgayzeynep]

Hocam örnek E3 hücresi ile E450 hücreleri arasındaki isimleri toplam sayısını E455'e yazmasını istiyorum rica etsem yazmıy olduğunuz makronun devamını Ekleyebilir misiniz rica etsem
Sub Say()
MsgBox "E1 hücresinde " & UBound(Split(Range("E3"), Chr(10))) + 1 & " isim vardır."
End Sub

 

[dEdE]

#1 no.lu mesaj : "... B3:B:400 ...."
#4 no.lu mesaj : "... A1 sütununda ..."
#9 no.lu mesaj : "... E3 hücresi ile E450 ..." kafam karıştı.

#9 no.lu mesj için çözüm:

Sub test()
    For i = 3 To Cells(Rows.Count, "E").End(3).Row
        myArr = Split(Cells(i, 5), Chr(10))
        Topl = Topl + UBound(myArr) + 1
    Next i
    Range("E455") = Topl
    MsgBox "Toplam " & Topl & " isim vardır.", vbInformation, "BİLGİ"
End Sub

 

[HücrelereFısıldayanAdam]

Diğer soruya bakınca ne olduğunu anlayabildim, hücre içinde isimler, enter a basılarak alt satıra geçerek yazılmış, üstadlar da bunları saydırabilmiş.
Verileri bu şekilde hücre içinde tutmak mantıklı değil. Verileri düzeltmek daha mantıklı bir çözüm olurdu. Bu şekilde bir çok soru geliyor, veriler hatalı tutulduğu için çok karmaşık çözümler gerekiyor.