eğersay fonksiyonun yaptığı işi makro ile yapmak

[ozcanaga]

eğersay fonksiyonun yaptığı işi makro ile nasıl yapabilirim;örnekle açıklayabilir misiniz?

 

[Necdet]

Sayın ozcanaga,

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.

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.

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

 

[mehmett]

Bir örnek de benden.