eğersay

[iskelet]

iyi günler yapmak istediğim şey ekli dosya belirtilmiştir.
Yardımlarınız için şimdiden teşekkürler.

 

[muygun]

Merhaba;
İlave bir sütun kullanmanın mahsuru yoksa eki inceleyin.
İyi çalışmalar.

 

[iskelet]

sayın muygun teşekkür ederim sağolun
iyi çalışmalar.

 

[Ali]

Yardımcı sütunsuz alternatif olsun.

B1 hücresine aranacak değeri yazın.

C1 hücresine

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

yazınız.

.

 

[iskelet]

sayın Ali bey bey teşekkür ederim bu daha kullanışlı gibi
iyi çalışmalar

 

[Korhan Ayhan]

Selamlar,

Ali beyin çözümüne benzer fakat biraz daha kısa bir formül alternatif olarak kullanabilirsiniz.

=TOPLA.ÇARPIM((UZUNLUK(A1:A15)-UZUNLUK(YERİNEKOY(A1:A15;2;""))))

 

[iskelet]

sayın korhan ayhan bey sizede teşekkür ederim.
iyi çalışmalar

 

[Ali]

Korhan Bey kısa ama negatif sayılarda çalışmadığı için uzun olanı verdim.

 

[Korhan Ayhan]

Selamlar,

Pardon Ali bey negatif sayılar hiç aklıma gelmemişti.

 

[Ali]

Selamlar,

Pardon Ali bey negatif sayılar hiç aklıma gelmemişti.

Ayrıca iki ve daha yukarı basamaklı sayılar içinde kısa formül çalışmaz.
.

 

[iskelet]

selamlar
yukarıdaki formülleri denedim ama mesela ben 1 sayısının kaç tane olduğunu taratırken
11 sayısındaki 1 leride sayıyor bunu nasıl düzeltebilirim.
iyi çalışmalar.

 

[iskelet]

selamlar
sayın muygun, sayın korhan ayhan ve sayın ali bey
ben 1 sayısının kaç tane olduğunu taratırken
11 sayısındaki 1 leride sayıyor bunu nasıl düzeltebilirim.
iyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Sayılar arasında ayraç kullanacaksanız kullanıcı tanımlı fonksiyon ile çözüm üretilebilir. Ayraç kullanmayacaksanız yerleşik işlevlerle çözümü zor görünüyor.

 

[iskelet]

selamlar
sayılar arasında
2-4-7-9
1-3-2-11
7-14-2-4 bu ayracı kullanıyorum ve 1 sayısını aratınca normalde 1 tane çıkması lazım ama sonuç 4 çıkıyor
kullanıcı tanımlı fonksiyonla nasıl çözülür acaba
teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir modüle uygulayın.

Option Explicit
 
Function DEĞER_SAY(ARALIK As Range, VERİ As Range, Optional AYRAÇ As String = "-")
    Dim HÜCRE As Range, AYIR() As String, X As Integer, SAY As Integer
 
    Application.Volatile
 
    If AYRAÇ = Empty Then AYRAÇ = "-"
 
    For Each HÜCRE In ARALIK
        AYIR = Split(Replace(HÜCRE, Chr(160), ""), AYRAÇ)
        For X = 0 To UBound(AYIR)
            If Trim(AYIR(X)) <> "" Then
            If CDbl(Trim(AYIR(X))) = VERİ Then SAY = SAY + 1
            End If
        Next
    Next
 
    DEĞER_SAY = SAY
End Function

Daha sonra sonucu görmek istediğiniz hücreye aşağıdaki yapıya göre formülü uygulayın. Formül içindeki kriterleri hücrelerden alabilirsiniz.

[B][COLOR=blue]=DEĞER_SAY(Hücre_Aralığı;Aranan_Veri;Ayraç)[/COLOR][/B]

Not : Eksi değerlerde doğru sonuç vermesi için ayracı farklı kullanmalısınız.

 

[iskelet]

sayın korhan bey ben denedim ama başaramadım ekte ki dosyada eğer zahmet olmazsa yapabilir misiniz?
teşekkürler.

 

[Ali]

selamlar
sayılar arasında
2-4-7-9
1-3-2-11
7-14-2-4 bu ayracı kullanıyorum ve 1 sayısını aratınca normalde 1 tane çıkması lazım ama sonuç 4 çıkıyor
kullanıcı tanımlı fonksiyonla nasıl çözülür acaba
teşekkürler

C1 hücresine aranan değeri yazınız.

D1 hücresine

=TOPLA.ÇARPIM(UZUNLUK("-"&$A$1:$A$27&"-")-UZUNLUK(YERİNEKOY("-"&$A$1:$A$27&"-";"-"&C1&"-";"")))/UZUNLUK("-"&C1&"-")

yazınız.

Dosya ektedir.



.

 

[iskelet]

selamlar
sayın ali bey çok teşekkür ederim elleriniz dert görmesin
iyi çalışmalar

 

[Ömer]

Merhaba,

Alternatif olsun,

=EĞERSAY(A:A;"*-"&C1&"-*")+EĞERSAY(A:A;"*-"&C1)+EĞERSAY(A:A;C1&"-*")

.

 

[iskelet]

merhaba
sayın ömer teşekkür ederim
iyi çalışmalar.