Çözüldü Formülü makro ile ifade etmek

[tarık34]

Arkadaşlar şöyle bir makroya ihtiyacım oldu:
Sayfa1 B2 hücresine aşağıdaki formülün sonucunu makro ile yazdırmak istiyorum. Makroyu butona atayarak kullanacağım.
=BAĞ_DEĞ_DOLU_SAY('Sayfa2'!A1:A5;'Sayfa4'!A1:A5;'Sayfa6'!A1:A5) Bu formülü makro yapmak istiyorum.

 

[serhatyaman43]

Makro çalıştırıp bu fonksiyonu bir hücreye yazın ve makroyu durdurun. VBA bölümüne gelirseniz kodu görürsünüz.

 

[tarık34]

Dediğiniz şekilde makro kaydet ile yaptım garip bir şey ortaya çıktı.
Bir de ilgili hücreye sadece sonucu değil formülü de yazdı.

Sub Makro4()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=COUNTA(Sayfa2!R[-20]C[-11]:R[-16]C[-11],Sayfa4!R[-20]C[-11]:R[-16]C[-11],Sayfa6!R[-20]C[-11]:R[-16]C[-11])"
End Sub

 

[Ömer BARAN]

Merhaba.

Sub Makro1()
Sheets("Sayfa1").[B2] = Evaluate("=COUNTA(Sayfa2!A1:A5,Sayfa4!A1:A5,Sayfa6!A1:A5)")
End Sub

 

[tarık34]

Makro tam istediğim gibi işlem yapıyor. Çok teşekkürler.