Formülü makroya çevirmek

[soykan]

Değerli arkadaşlar Eğersay formülü ile işlem yapmak istiyorum.
kodu aşağıdaki şekilde yazabiliyorum.
ActiveCell.FormulaR1C1 = "=COUNTIF(R[-7]C[-3]:R[4]C[-3],""*"")"

Ancak benim istediğim "R[-7]C[-3]:R[4]C[-3]" yerine istediğim range yazabilmem örneğin Range("A2:A15") gibi bunu makro içinde nasıl kullanabilirim?

Yardımlarınız için teşekkürler.

 

[uzmanamele]

merhaba

bunu deneyiniz.

MsgBox  Application.WorksheetFunction.CountIf(Range("A1:A5"), "*")

 

[soykan]

Teşekkürler ama ben bunu bir hücrede yaptırmak istiyorum. MsgBox da yazdırmamın bir anlamı yok.

 

[uzmanamele]

Teşekkürler ama ben bunu bir hücrede yaptırmak istiyorum. MsgBox da yazdırmamın bir anlamı yok.

merhaba
bu şekilde çevap vermenin anlamı yok!

MsgBox yerine aşağıdaki gibi yazınız.

Sub deneme()
[B1]=Application.WorksheetFunction.CountIf(Range("A1:A5"), "*")
End Sub