Formülü VBA Kod'a çevirme

[petsiye]

Merhaba,

Userform İçerisinde bulunan Text Kutusuna aşağıdaki formülün VBA kod şeklinde yazılışı konusunda değerli yardımlarınızı talep ediyorum. Formül sonucunuda yine Aynı Text Kutusu içerisinde görüntülenebilmesi konusunda da yine değerli yardımlarınızı rica ederim.

Sayın @hamitcan Bey'in Değerli Katkılarıyla
Eski Kod :
TextBox1 = WorksheetFunction.CountIf([A1:A1800], "*Macd*") & " Sinyal "




Olmasını arzuladığım Kod :

TextBox1 = " Aşağıdaki Formül & " Sinyal "

=EĞERHATA(EĞER(TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR(FILTRE!I$3:I$1800;SATIR(FILTRE!I$3:I$1800)-MİN(SATIR(FILTRE!I$3:I$1800));;1));--ESAYIYSA(MBUL("Macd";FILTRE!I$3:I$1800)))=0;"";TOPLA.ÇARPIM(ALTTOPLAM(3;KAYDIR(FILTRE!I$3:I$1800;SATIR(FILTRE!I$3:I$1800)-MİN(SATIR(FILTRE!I$3:I$1800));;1));--ESAYIYSA(MBUL("Macd";FILTRE!I$3:I$1800))));"")

 

[Korhan Ayhan]

Merhaba,

VBA tarafında formülü değerlendirmek için EVALUATE kullanılmaktadır. Ben paylaştığınız formülü bu komutla çalıştıramadım. Yazım hatası yapmadıysam sanırım karmaşık formülleri hesaplayamıyor.

Alternatif olarak bu formülü sayfada kullanılmayan bir hücreye yazın. Sonra bu hücredeki değeri TextBox nesnesinde kullanın.

Mesela Z1 hücresinde yazan formül için aşağıdaki gibi deneyebilirsiniz..

Private Sub UserForm_Initialize()
    TextBox1 = Range("Z1").Value & " Sinyal"
End Sub

 

[petsiye]

Merhaba,

VBA tarafında formülü değerlendirmek için EVALUATE kullanılmaktadır. Ben paylaştığınız formülü bu komutla çalıştıramadım. Yazım hatası yapmadıysam sanırım karmaşık formülleri hesaplayamıyor.

Alternatif olarak bu formülü sayfada kullanılmayan bir hücreye yazın. Sonra bu hücredeki değeri TextBox nesnesinde kullanın.

Mesela Z1 hücresinde yazan formül için aşağıdaki gibi deneyebilirsiniz..

Private Sub UserForm_Initialize()
    TextBox1 = Range("Z1").Value & " Sinyal"
End Sub

Korhan Bey, değerli yardım ve desteğiniz için çok teşekkür ederim.

Saygılarımla