Textbox,ta toplam hesap

[Jezus]

Herkese merhaba Userform icerisinde textbox1 ile textbox2,yi carpip veya toplayip sonucu textbox3 e nasil verebilirim yardimlarinizi bekliyorum.

Selamlar

 

[ccumhur]

4 işlem

ek size fikir verrir umarım

 

[Jezus]

ccumhur guzel bir ornek fakat benim istedegim bu degildi birinci ve ikinci textboxlara veri girdiginde ucuncu texboxa direk sonucu versin herhangi bir tus olmadan yinede ilgin icin sagol

Selamlar

 

[ccumhur]

ilgili kodları sayı2 nin cahange olayına yazın hocam

Private Sub sayı2_Change()
sonuç = Val(sayı1) * Val(sayı2)

End Sub

 

[dEdE]

Böyle bir uygulama mı?

 

[Jezus]

Ben bu sekilde yazdim ama sonuc alamadim
Private Sub TextBox11_Change()
sonuç = Val(TextBox9) + Val(TextBox10)
End Sub

 

[dEdE]

Pardon,
Sayın ccumhur sizin cevabınızı sonradan gördüm

 

[Jezus]

Ilginiz icin hepinize tesekkur benim yapmak istedigim textbox9 ile textbox10 u toplatip sonucu texbox11 e vermesi

 

[Levent Menteşoğlu]

Aşağıdaki kodları deneyin.

[vb:1:87ffb88940]Private Sub TextBox9_Change()
a = TextBox9.Value
b = TextBox10.Value
If TextBox9 = "" Then a = 0
If TextBox10 = "" Then b = 0
TextBox11 = a * 1 + b * 1
End Sub

Private Sub TextBox10_Change()
a = TextBox9.Value
b = TextBox10.Value
If TextBox9 = "" Then a = 0
If TextBox10 = "" Then b = 0
TextBox11 = a * 1 + b * 1
End Sub
[/vb:1:87ffb88940]

 

[Jezus]

Sayin Leventm Direk hata veriyor acaba ben yanlismi yapiyorum..?

 

[Levent Menteşoğlu]

Hata vermez, Textbox9 ve textbox10 da change olayında yazılı başka kod olmasın ondan hata verebilir. Yani textbox9 a sadece yukarıdaki birinci kodu, textbox10 a da sadece yukarıdaki ikinci kodu yazın. Birde textbox isimlerinin doğru olup olmadığına bakın.

 

[Jezus]

Isterseniz programin ornegini gondereyim birde siz bakin fakat buraya nasil eklerim onu bilmiyorum

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=2489

 

[Jezus]

Textbox,tan toplam alma

Ornek ektedir

 

[Jezus]

Pardon kullanici adi s sifre a

 

[Levent Menteşoğlu]

Textboxların exit olaylarına yazdığınız format kodlarını silin, bunlar sayıları metne çeviriyor.

 

[Jezus]

Hepsini sildim fakat yinede hata yeri burayi gosteriyor sanirim formulde bir hata var sizde deneyin kayit bul deyince direk hata bu diyor TextBox11 = a * 1 + b * 1

Selamlar

 

[Levent Menteşoğlu]

Hatayı ancak yanlışlıkla alfanümerik veri girerseniz yapıyordu, bunun içinde koda bir ilave yaptım.

 

[Jezus]

Leventm bey tamam simdi oldu onceki veriyi silmem gerekiyormus cok tesekkurler bu arada fazla sordu demezsen eger Combobox,a hesap makinesi ekledim fakat kodunu bilmiyorum normal windows taki hesap makinesi acilsin istiyorum acaba kodunu biliyormusunuz tesekkurler

Selamlar

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:f649050409]Shell "calc.exe"
[/vb:1:f649050409]