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?
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..
SORU ve CEVAPLAR (Yazılabilir)
Konu: Kaç tane var? (Okunma sayısı 12838 defa)