hücre içindeki kelimeleri sayma

[elektrik61]

hücre içindeki kelimeleri sayıp sayısal değerini yazan bir formül var mı acaba

 

[Korhan Ayhan]

Selamlar,

Aramıza hoşgeldiniz. Forumda arama yaptınız mı?

http://www.excel.web.tr/showthread.php?t=61561

 

[elektrik61]

Hoş bulduk ve çok teşekür ederim çok işime yarayacak

 

[elektrik61]

peki şefim bu formülü bir çok sütünun toplamı için yapmak istersem bunun kısa bir yolu var mı

 

[Skorpiyon]

Sayın elektrik61,

Aşağıdaki şekilde denermisiniz. Örneğin A1, A2 ve A3 'te hepsini birden saydırmak için.

=TOPLA.ÇARPIM((UZUNLUK(A1:A3)-UZUNLUK(YERİNEKOY(KÜÇÜKHARF(A1:A3);KÜÇÜKHARF(B1);"")))/MAK(1;UZUNLUK(B1)))

 

[elektrik61]

çok teşekkür ederim

 

[Skorpiyon]

Rica ederim. Bizimkisi önceki formülden kopya oldu

 

[elektrik61]

en son bir soru bir kaç kelime tanımlamak istersem ne yapmam gerekir

 

[Korhan Ayhan]

Selamlar,

Aramak istediğiniz kelimeleri alt alta hücrelere yazın. Yanındaki hücrelerede size önerilen formülü uygulayın. Daha sonra hepsini toplatın.

 

[elektrik61]

teşekkürler ama bu istediğim olayı sağlamıyor. çünkü formülü çok kulanacağım ve hücreler içinde değişkenler olacak benim istediğim hepsini sayabilmek

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklermisiniz.

 

[elektrik61]

gönderdim ilgin içi teşekkürler

 

[Korhan Ayhan]

Selamlar,

Hangi bilgi hangi alanda sayılacak?

 

[elektrik61]

daire numaraları toplam miktar hücresinde teşekkürler

 

[abbasonline]

Korhan bey, hayırlı geceler kusura bakmassanız (http://www.excel.web.tr/showthread.php?t=77002) dosyaya yardımcı olurmusunuz.

 

[elektrik61]

yardımcı olacak kimse yok sanırım

 

[Korhan Ayhan]

Selamlar,

İşlerimin yoğunluğu nedeniyle sorunuzla ilgilenemedim. Kusura bakmayın.

Size kullanıcı tanımlı fonksiyon öneriyorum. Aşağıdaki kodu boş bir modüle ekleyin.

Modül eklemeyi bilmiyorsanız aşağıdaki linki inceleyiniz.

MODÜL EKLEME

Option Explicit
 
Function VERİ_SAY(ARALIK As Range)
    Dim HÜCRE As Range, AYIR As Variant, X As Integer
 
    For Each HÜCRE In ARALIK
        If InStr(1, HÜCRE.Value, ",") > 0 Then
        AYIR = Split(HÜCRE.Value, ",")
            For X = 0 To UBound(AYIR)
                If Len(Trim(AYIR(X))) > 0 Then VERİ_SAY = VERİ_SAY + 1
            Next
 
        ElseIf InStr(1, HÜCRE.Value, ",") = 0 And _
        InStr(1, HÜCRE.Value, "Tüm") = 0 And _
        HÜCRE.Value <> "" Then
                VERİ_SAY = VERİ_SAY + 1
 
        ElseIf InStr(1, HÜCRE.Value, "Tüm") > 0 Then
                VERİ_SAY = "Genel"
        Exit For
        End If
    Next
End Function

Daha sonra S9 hücresine aşağıdaki şekilde uygulayın.

=VERİ_SAY(C9)

Bu şekilde bileştirme yaptığınız hücrelere uygulayın.


Birleştirme yapmadığınız hücrelerede aşağıdaki şekilde uygulayın.

S12 hücresine;

=VERİ_SAY(C12:R12)

 

[elektrik61]

teşekkürler korhan bey ilginiz için hemen uygulamaya çalışacağım

 

[elektrik61]

hocam gerçekten çok teşekkür ederim gerçekten çok işime yarayacak