Bende bu tür fonksiyonları makro içinde nasıl kullanabilirim diye araştırmalar yapıyorum. Öncelikle Makro Kaydet ile ne tür komutlar kullanılıyor ve onu genel hale nasıl getirebilirim diye üzerinde çalışıyorum.
Kod:
Sub Macro1()
[COLOR=red]' ActiveCell.FormulaR1C1 = "=COUNTIF(RC[-2]:R[6]C[-2],"">=5"")"[/COLOR]
[C1] = Application.WorksheetFunction.CountIf(Range("A2:A7"), ">=5")
End Sub
Kırmızı satırı makro kaydet ile buldum. Eğer Range in değişken olmasını istiyorsanız kodu aşağıdaki gibi kullanınız.
Kod:
Sub Macro1()
' ActiveCell.FormulaR1C1 = "=COUNTIF(RC[-2]:R[6]C[-2],"">=5"")"
Son = [A65536].End(3).Row
[C1] = Application.WorksheetFunction.CountIf([B]Range("A2:A" & Son[/B]), ">=5")
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.