Excel hücre içerisindeki kelimeleri saydırma.

[yusuf_128]

Merhaba , Bir hücre içerisindeki kelimeleri nasıl saydırabilirim.

Ahmet-mehmet-ahmet-mehmet (Mesela böyle bir hücrede kaçtane mehmet olduğunu bir hücreye nasıl yazdırabilirim.

Yada

Ahmet gidecek-Ali gelecek-Ali gelecek-Ahmet gidecek (Bu hücrede Ahmet gidecek kaç tane olduğunu bir hücreye nasıl yazdırabilirim.

Bilgi için şimdiden teşekkür ederim.

 

[turist]

Örnek:
A1 hücresine:
Ahmet gidecek-Ali gelecek-Ali gelecek-Ahmet gidecek girin
B1 hücresine:
Ahmet gidecek girin

C1 hücresine:
İngilizce Excel için:

=SUM(LEN(A1)-LEN(SUBSTITUTE(A1;B1;"")))/LEN(B1)

Türkçe Excel için:

=TOPLA(UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;B1;"")))/UZUNLUK(B1)

Formülünü girin.

 

[hamitcan]

Aşağıdaki linki de inceleyebilirsiniz.
http://www.excel.web.tr/showthread.php?t=61561

 

[yusuf_128]

Turist çok teşekkür ederim. Allah razı olsun.

Son bir sorum var. Hücre içerisindeki en son virgülden sonraki değeri nasıl başka hücreye yaDırabilirim.


Ornek

Ali gidiyor,ali geldi,ali gidiyor

Buradaki en sondaki ali gidiyoru nasıl başı hücreye alabilirim. Hücre sayım çok ve hepsinde farklı sayıda virgül olduğu için text to coloms kullanamadım

Yardımlarını rica ederim

 

[ZorBey_]

Merhaba iyi çalışmalar.
Sayın yusuf_128
Ekli dosyayı denermisiniz.

http://s3.dosya.tc/server16/pB23EN/H_creyeyazd_r.rar.html

 

[turist]

Formülle çözüm :
A1 hücresinde: "Ali gidiyor,ali geldi,ali gidiyor " yazılı olduğunu varsayarsak,

B1 hücresine:

=IFERROR(RIGHT(A1;LEN(A1)-FIND("*";SUBSTITUTE(A1;",";"*";LEN(A1)-LEN(SUBSTITUTE(A1;",";"")))));"")

formülünü uyguladığınızda istediğiniz sonucu alırsınız.

Macro ile çözüm isterseniz alternatif olarak;

Sub ayır()
Dim i As Long, j As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
  j = InStrRev(Cells(i, "A"), ",")
  If j > 0 Then Cells(i, "B") = Mid(Cells(i, "A"), j + 1)
Next i
End Sub

kodları kullanabilirsiniz.