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

Katılım
15 Mart 2005
Mesajlar
20
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ç

Uzman
Altın Üye
Katılım
25 Aralık 2004
Mesajlar
1,793
Excel Vers. ve Dili
Office 2016 Pro Plus-Türkçe
Altın Üyelik Bitiş Tarihi
10-12-2025
istediğiniz seçili alandaki "kutlu" yazan hücreleri saydırmaksa bunu formülle de yapabilirsiniz.
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
[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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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]
 
Üst