Seçili hücre aralığında bir metnin adedidini bulmak

[kutlu]

Merhaba arkadaşlar?

Aşağıdaki kod satırı ile bir hücre aralığını select yapıyorum.
Ancak bu aralıkta aradığım metin adedini bir değişkene veya hücre içine yazdıracak koda ihtiyacım var. Bu işlemi COUNTIF ile yapmaya çalıştım, olmadı. Doğrusu yapamadım.

Aşağıdaki kod çalışıyor:

Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(Range("ysay") - 1, 0)).Select

Benim için gerekli olan bu seçili aralıkta, örneğin "kutlu" kaç adet var, bunu bulmak.

Teşekkür ederim. İyi çalışmalar.

 

[Metin Karaağaç]

istediğiniz seçili alandaki "kutlu" yazan hücreleri saydırmaksa bunu formülle de yapabilirsiniz.

 

[veyselemre]

[vb:1:9d8c3f15bf]Sub DENE()
Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(Range("ysay") - 1, 0)).Select
For Each g In Selection
If InStr(g, "kutlu") > 0 Then a = a + 1
Next
MsgBox a & " Adet kutlu bulundu"
End Sub[/vb:1:9d8c3f15bf]
Gibi birşey mi?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:28a2a151ba]Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(Range("ysay") - 1, 0)).Select
MsgBox WorksheetFunction.CountIf(Selection.Cells, "*kutlu*")
[/vb:1:28a2a151ba]