Kaç tane var?

[Erhan Yavuz]

Değerli dostlar;

(A:A) sütunundaki Yazılar içinde ............. "*" & "Osman" & "*" nı aratıp; bulduğu satırın
(B:B) sütununda "1" ler kaç tane,
"2" ler kaç tane,
"3" ler kaç tane sayacak;
ve bunu Döngü dışında yapabilecek bir WorksheetFunction yapabilirmiyiz? 
Yani bir nevi WorksheetFunction.SumIf() fonksiyonunun iki şartlı şekline ihtiyacım var.

Örneğin WorksheetFunction.SumIf() + WorksheetFunction.CountIf() fonksiyonlarının ikisinin aynı anda kullanılması gibi sanırım...

Bu arada Haldun kardeşim; aşağıdaki örneği gönderdi ama 2003 de Type Mismatch hatası veriyor nedenini bulamadık?

Kod: [Seç]

Sub Test()
    Dim FormulSablon As String
    FormulSablon = "=SUMPRODUCT(--(IF(ISERROR(SEARCH(" & Chr(34) & "%p" & Chr(34) & ",A:A)),FALSE,SEARCH(" & Chr(34) & "%p" & Chr(34) & ",A:A)<>0)),--(B:B=%n))"
   
    Dim Formul As String
    Dim Isim As String, Sayi As Integer
    Dim KacTane As Integer
    Isim = "osman"
    Sayi = 2
    Formul = Replace(Replace(FormulSablon, "%p", Isim), "%n", Sayi)
    KacTane = Application.Evaluate(Formul)
    Range("g1").FormulaArray = Formul
    MsgBox KacTane
   
End Sub
30000 satır var A:A sütununda... Burada örneğin Osman, onlarca, yüzlerce başka bir isimle birlikte yazılı.

Kimi Başta kimi sonda yazılı.. Ama Osman ile yazılı diğer kelimelerin bir anlamı yok..

Ayrıca içinde Osman geçen bu satırların karşısında da ya 1 var, ya 2 yada 3..

Bana lazım olan A:A sütununda İçinde Osman geçen satırların karşısındaki B:B sütunundaki "1"-"2" veya"3" lerin kaçar tane olduklarını bulmak..

[Bülent Öztürk]

Merhaba Erhan abi.
Örnek dosya ekleyebilir misin?

[Erhan Yavuz]

Hemen kardeş..

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Bülent Öztürk]

Böyle bir şey işine yarar mı abi?


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Erhan Yavuz]

Yaradı bile.. Sağolasın kardeşim..

[Bülent Öztürk]

Sen de sağol abi.