Textbox ile + tuşuna basarak toplama işlemi yapma. (YARDIM)

[TanerSaydam]

Merhaba arkadaşlar;

Bir userform üzerine koyacağım bir textbox'a hesap makinesi ile topladığım rakamları yazıyorum. Örneğin 5 adet rakamı hesap makinesi ile toplayıp, kopyala yapıştır ile textbox'a alıyorum. İstediğim şey + tuşuna basarak bu toplamayı textbox üzerinden yapma.

NOT: TextBox işlem sonunda veriyi sayfadaki bir hücreye atıyor.

Mause kullanmadan "+" ve "enter" tuşu ile bunu yapabilmemin bir yolu var mı?

NOT2: Toplam rakamı textbox üzerinde görmem lazım. Yani "=" formülü ile aktarmayı denedim ama sorun çıktı. O yüzden textbox üzerinde toplanıp, toplanan rakamı aktarmak istiyorum.

Kod konusunda siz değerli arkadaşlardan yardım bekliyorum.

İyi formlar.

 

[Ömer BARAN]

Merhaba.

Bir fikir verir umarım, deneyiniz.

Aşağıdaki kod, başına = işareti koymadan yazacağınız 4 işlemin hesaplamasını yapıp sonucunu
(örneğin 8*2+4/2 yazdığınızda 18'i)
2 saniye boyunca Textbox1'de gösterir ve aktif sayfanın K1 hücresine sonucu yazıp, TextBox1'i boşaltarak TextBox1'den çıkar.
.

[B]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)[/B]
    TextBox1 = Evaluate("=" & [B][COLOR="Blue"]Replace(TextBox2.Text, ",", ".")[/COLOR][/B])
    Application.Wait Now + TimeValue("00:00:02")
    [COLOR="red"]ActiveSheet.[K1][/COLOR] = Evaluate("=" & [B][COLOR="Blue"]Replace(TextBox2.Text, ",", ".")[/COLOR][/B])
    TextBox1 = ""
[B]End Sub[/B]

 

[TanerSaydam]

Ellerinize sağlık. Ufak bir sorunum kaldı. Kuruşlu hesaplamalarda hata veriyor. Onu nasıl aşabilirim?

 

[Ömer BARAN]

Tekrar merhaba.

Önceki kod cevabımda mavi renklendirdiğim kısım değiştirildi.
Sayfayı yenileyerek önceki cevabımı tekrar kontrol ediniz.
.

 

[TanerSaydam]

Mükemmel çalışıyor Ömer bey. Sayenizde bir şey daha öğrendim. Çok teşekkürler.