texbox da çıkarma işlemi

[puslukurt]

sayfa2 b5 hücresinde bulunan bir rakamı userform üzerinde bulunan textboxdaki rakamı çıkartarak diğer texbox da yazdırabilirmiyiz. şimdiden teşekkürler

 

[Ali]

Private Sub TextBox1_Change()
TextBox2.Value = TextBox1.Value - Sheets("Sayfa2").Range("B5")
End Sub

 

[puslukurt]

Ali bey teşekkür ederim. oldu fakat ufak bir sorun çıktı texbox daki rakamı yazınca çıkarma işlemi yapıyor ancak textbox a diyelimki 60 yazdım pişman oldum çünki 71 yazmam gerekiyormuş 60 sildim 71 yazacakken karşıma run time error "13" type mismatch hatası geliyor niyeki acaba

 

[Ali]

Private Sub TextBox1_Change()
TextBox2.Value = Val(TextBox1) - Sheets("Sayfa2").Range("B5")
End Sub

şeklinde değiştirin.

 

[puslukurt]

teşekkr

iyiki varsınız saolun