Döngü İçine Eğersay Fonksiyonu Atamak

[Myazar78Anestezi]

Eğersay komutu worksheetFunction.CountIf(Range("a1:a10"),"muhammet")
Şeklinde yaziliyor. Fakat bu fonksiyonu bir döngü içerisine sokup ("a1:a10") kisminin degisken olmasini istedigimizde bunu mümkün kılmıyor. Cells ile yazmaya çalıstıgımızda cells(1,1:10,1) diye bi seyde olmuyor. Yardımcı olabilirseniz çok sevinirim..

 

[Korhan Ayhan]

Tam olarak hangi kısım değişken olacak?

 

[çıtır]

Foruma hoş geldiniz.
Aşağıdaki şekilde deneyiniz.

Sub eğersay()
For i = 1 To 10
Sheets("Sayfa1").Range("B" & i) = WorksheetFunction.CountIf(Sheets("Sayfa1").Range("A1:A" & i), "Muhammet")
Next i
End Sub

 

[Myazar78Anestezi]

Öncellikle emeginiz için çok tesekkür ederim. Bu degiskeni çift tarafli yapmak istiyorum. Yani a1 sabit kalmiycak.
Kisaca a1:a10 arasini sonra a2:a11 arasini sonra a3:a12 .. boyle devam etmeli.
("A"& i : "A" & (i + 9) ) olarak denedim ama olmadi????

 

[Myazar78Anestezi]

Tam olarak hangi kısım değişken olacak?

a1:a10 sonra a2:a11 a3:a12 seklinde devam ettirmek istiyorum

 

[Korhan Ayhan]

Deneyiniz.

Range("A" & i & ":A" & i + 9)

 

[Myazar78Anestezi]

Deneyiniz.

Range("A" & i & ":A" & i + 9)

Çokk teşekkür ediyorum????????