Countif (Sayma) komutunun makro kodu nedir

[volume01]

merhaba,

ekteki dosyada kısa bir sütun var. command butonu tıklandığında "A" ların sayısını veren bir makro yazar mısınız?

ben ne kadar denediysem de beceremedim. hücre içine yazabiliyorum ama benim derdim makroyla yazmak. seçtiğim range içinde : işaretine hata veriyor makroda.lütfen yazıp gösterir misiniz?

çok teşekkür ederim.

 

[uzmanamele]

merhaba
aşağıdaki kod işinizi görür mü?

Private Sub CommandButton1_Click()
Cells(16, 2).FormulaR1C1 = "=COUNTIF(R[-12]C:R[-1]C,""A"")"
End Sub

 

[tariktaskiran]

arkadaşlar başka bir programla ilgili özelden bana yardımcı olabilir misiniz?

 

[volume01]

hocam teşekkür ederim , demek ben olayı baştan yanlış anlamışım ben =countif ( b4:b15;"A") yazınca sayacağını sanıyordum ama demek makroya farklı yazmak gerekiyor. peki bu fonksiyonların makro uyarlamalarını nerden bulabilirim?

 

[uzmanamele]

merhaba
bir formülün makro kodları ile karşılığını öğrenmek için en basit yöntem kayıt makrosudur.
makro kaydeti başlattıkdan sonra ilgili formülü yazın ve sonra kaydı durdurun.
kaydedilen kodu incelediğinizde yazdığınız formülün nasıl kodlandığını görebilirsiniz.

 

[volume01]

hocam son bir soru sorabilir miyim, sizin verdiğiniz makro, sayma işlemini aktif hücreye yapıyor, ben onu belli bir hücrede ya da userform textbox da nasıl yapabilirim?

kısacası activecell.formular1c1 yapısı nasıl değişir?

 

[uzmanamele]

merhaba
aktif hücreye yazmıyorki.
Cells(16, 2) yani B16 hücresine yazıyor.

Private Sub CommandButton1_Click()
Cells(16, 2).FormulaR1C1 = "=COUNTIF(R[-12]C:R[-1]C,""A"")"
End Sub

 

[Necdet]

Merhaba,

Diğer bir seçenek :

Private Sub CommandButton1_Click()
Range("C4") = Application.WorksheetFunction.CountIf(Range("B4:B15"), "A")
End Sub