Ctrl + F nin formülü

[mumillica]

Arkadaşlar merhaba
Ctrl + F nin yaptığı işlevin bir formülü var mı?
Niyetim bir alan içerisinde yer alan isimlerin kaç tane olduğunu saymak
Eğersay ile hücre bulabiliyorum fakat aynı hücre içinde birden fazla isim olduğunda o hücreyi saymıyor
O yüzden ctl + f ile arattırıp sol alt köşesindeki çıkan toplama ulaşmak için nasıl bir yol izlemeliyim
Makro tarafında da kaydederken ctrl + f nin kodları çıkmıyor

 

[vardar07]

Örnek dosya ekleyin ki neyi nerede , nasıl arayıp saydırılacak çözümünü bulalım.

 

[mumillica]

b2:f52 alanı içinde ı sütunundaki isimleri arayıp kaç tane olduğunu vermesini istiyorum
dosyayı ekleyemedim linkten indirebilirsiniz

http://s2.dosya.tc/server3/202hqs/DEGERLENDIRME_LISTESI-02.12.2016.xls.html

 

[merakli_72]

Selam
A1=mehmet ali
ve siz ali'leri saydırdığınızda bu hücreninde sayılmasını istiyorsanız formülü
=EĞERSAY(A:A;"*ali*")
şeklinde girmelisiniz

 

[mumillica]

selam
tek bir isim için faydalı oluyor fakat 54 tane isim var tek tek yazmak gerekiyor
I sütunundaki isimleri uygulayınca I yı arıyor

 

[vardar07]

Deneyiniz.

Sub sayy()
Range("k2:k52").ClearContents
With Sheets("Sayfa1")
For Each sira In .Range("I2:I52")
a = sira.Row
For Each veri In .Range("B2:F52")
b = UCase(.Cells(a, "I"))
d = UCase(.Cells(veri.Row, veri.Column))
If d Like "*" & b & "*" Then
say = say + 1
End If
Next
.Cells(a, "J") = say
say = 0
Next
End With
End Sub

 

[mumillica]

elinize sağlık teşekkürler