butona formül yaptırmak

[cyberem]

merhaba ben toplama işleminde olduğu gibi =bağ_değ_dolu_say() formülünü bir buton aracılığı ile yapmak istiyorum ama bir türlü beceremedim nasıl bir işlemem yapmama gerekiyor yardımlarınız için şimdiden teşekkürler

 

[Levent Menteşoğlu]

Sorunuzdan anladığım kadarı ile bir kod veriyorum bu kodu bir butona bağlayarak çalıştırın. Kod sayfadaki A1:A65536 arasındaki değerleri sayar ve B1 hücresine yazar.

[vb:1:7efdd8cf09]Sub dolusay()
[b1] = WorksheetFunction.CountA(Sheets("sayfa1").Range("A1:A65536"))
End Sub
[/vb:1:7efdd8cf09]

 

[cyberem]

tamam istediğim formülün butona basarak çalıştırılması ama bunu toplama işlemi gibi seçili hücrede yapılsın istiyorum

 

[Levent Menteşoğlu]

Eki inceleyiniz. Alanı seçtikten sonra butona basınız. Sadece seçili alandaki değerleri sayar. Sonucuda bir msgbox'ta verecektir.

[vb:1:045aa7e9be]Sub dolusay()
MsgBox (WorksheetFunction.CountA(Selection.Cells))
End Sub
[/vb:1:045aa7e9be]

 

[ordulu82]

Eki inceleyiniz. Alanı seçtikten sonra butona basınız. Sadece seçili alandaki değerleri sayar. Sonucuda bir msgbox'ta verecektir.

[vb:1:045aa7e9be]Sub dolusay()
MsgBox (WorksheetFunction.CountA(Selection.Cells))
End Sub
[/vb:1:045aa7e9be]

Üstadım peki yazılmış olan herhangi bir formülü buton aracılığıyla nasıl çalıştırıcaz. her formül için ayrı kod mu gerekir yoksa mesela "çalıştır" şeklinde bir kod ile yapabilirmiyiz.
mesela "EĞER" kullanılmış bir formül çalıştırmak istesek ne yapmamız gerekir.