macroda eğer ve eğersay komutu

[odisse]

arkadaşlar ben makroda
activecel.formula="=eğer(a4=3;5)"

formuna benzer bir giriş yapmak istiyorum ama kabul etmiyor.
neden

activecel.formular1c1="=if(a4=3;5)"
de denedim olmadı

birde asıl benim yapmaya çalıştığım
i parametresine bağlı ai hücresinin değerini kontrol etmek doğruysa bu hücreyi sayacak ama if veya idcount un içine i parametresinide yerleştiremedim.

yardım ederseniz çok sevinirim. çok teşekkürler.

 

[odisse]

ActiveCell.FormulaR1C1 = "=COUNTIF(R[-i]C[+3]:R[+j]C[+3], "">=5"")"

yapmak istediğim satır kabul etmiyor

 

[odisse]

bunu hücre olarak ta yazabiliriz ama yapamadım

 

[odisse]

yardım edebilecek biri yok mu

 

[odisse]

Yardım lütfen

 

[Emir Hüseyin Çoban]

. . .

Öneri:
Örnek dosya ile yapmak istediğinizi belirtiniz.

. . .

 

[odisse]

http://www.excel.web.tr/attachment.php?attachmentid=163139&stc=1&d=1386246998

 

[Emir Hüseyin Çoban]

. . .

Makro kaydet ile oluşturduğunuz kısımlar çok karmaşık :dusun:

Bu formül için şu kodları deneyiniz. Fikir verecektir.

=EĞERSAY(B2:B5;"<5")

Sub KOD()

ba = 2
bi = 5

MsgBox WorksheetFunction.CountIf(Range("B" & ba & ":B" & bi), "<5")

End Sub

. . .

 

[odisse]

Bu formülü denedim o an ekrandaki veriler neyse ona göre işlem yapıyoruz ancak benim sayfadaki verilerim değişken bunun için bana bu ifadeyi hücreye egersay fonksiyonu olarak atması lazım sorunum o