textbox ile fonksiyon girişi

[xxihsidxx]

İyi günler
textbox ile
=topla.çarpım(((c2:c50="1/A")*(d2:d50="2002")*(e2:e50="k"))) fonksiyonunu çalışma sayfasına girmek istiyorum , ama olmuyor.hücreye kaydediyor ama fonksiyon sonucu göstermiyor.hücreyi çift tıklatıp enterla çıkınca sonuç gözüküyor.Benim istediğim ise textbox'a yazıp sayfaya kaydedince sonucu hücre içinde göstermesi.
Aşağıdaki şekilde olunca direk hücre içerisinde fonksiyonun sonucu gözüküyor.Textbox ile nasıl yapılabilir?
CommandButton_Click()
range("c154").select
ActiveCell.FormulaR1C1 = _
"=SUMPRODUCT(((R[-153]C[1]:R[-105]C[1]=""1/A"")*(R[-153]C[2]:R[-105]C[2]=""2002"")*(R[-153]C[3]:R[-105]C[3]=""K"")))"
End Sub

 

[Levent Menteşoğlu]

Textbox ile fonksiyondaki hangi veriyi girmek istiyorsunuz.

 

[xxihsidxx]

sayın levent bey ,
textbox ile veri girmeyeceğim.textbox ile topla.çarpım fonksiyonunu girmek istiyorum.programı tamamlayıp çalışma sayfalarını ve kodları gizlediğimde userform üzerinden bu çalışma sayfasında bulunan fonksiyonları değiştirebilmek için bu işlemi yapmak istiyorum.48 adet textbox oluşturup kayıt yapılacak hücreleri belirleyip yeri geldiğinde (bilgilerde değişiklikler olunca ) fonksiyonu düzenleyip yeniden sayfadaki ilgili hücreye kaydedeceğim.

 

[xxihsidxx]

arkadaşlar textbox ile fonksiyon girmenin imkanı yok mu?

 

[Levent Menteşoğlu]

Textboxa fonksiyonu aşağıdaki gibi "=" kullanmadan ve ingilizce yazılış şekli ile yazın.

SUMPRODUCT(((c2:c50="1/A")*(d2:d50="2002")*(e2:e50="k")))

Commandbuttonada kodu aşağıdaki gibi düzenleyin.

range("c154")="=" & Textbox1