countif ile harf sayma formülü atama

[nuclearist]

iyi akşamlar. Belli bir aralıktaki hücrelerin bazısının içinde bulunan y harfini sayacak bir formülü makro ile bir hücreye yazan kodu yazmak istiyorum. Örneğin A1:M1 aralığındaki hücrelerde bulunan y harfinin (hücrede sadece y harfi bulunuyor, kelime içinde değil) sayısını sayacak formülü N1 hücresine yazdırmak istiyorum. Bunun için,

Sub say()
Cells(1, 14).Formula = "=countif(A1:M1,y)"
End Sub

kodunu kullandığımda hücredeki formül 0 değerini döndürüyor. y yerine rakam yazdığımda ise sorun yok. çalışma sayfasına eğersay ile formülü kendim yazdığımda "y" şeklinde yazıyorum. vba da yazınca hata veriyor.
şimdiden teşekkür ederim.

 

[Excelmy]

Sayın nuclearist

Hücreye formul yazacak olursak ;

[N1].Formula = "=countIf(A1:M1,""y"")"

Formul yazmadan ise ;

[N1] = WorksheetFunction.CountIf([A1:M1], "y")

 

[nuclearist]

çok teşekkür ederim excelmy. hayırlı geceler...