Textbox'larda hesaplama

[M.ACAR]

TEXTBOX1'E BİNANIN GENİŞLİĞİNİ,TEXTBOX2'YE BOY,TEXTBOX3'E YÜKSEKLİK MANUEL GİRECEĞİM,TEXTBOX5'DE TEXTBOX1 ve TEXTBOX2'NİN ÇARPIMI;TEXTBOX6'DA TEXTBOX1,TEXTBOX2,TEXTBOX3'ÜN ÇARPIMI OLACAK
BUNUN HESAPLAMASINI NASIL YAPABİLİRİM,YARDIMLARINIZ İÇİN TEŞEKKÜR EDERİM.

 

[dEdE]

Merhaba,
Aşağıdaki kodları ilgili UserFormun Koduna eklemeniz yeterli olacaktır.

Private Sub TextBox2_Change()
TextBox5.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub

Private Sub TextBox3_Change()
TextBox6.Text = Val(TextBox1.Text) * Val(TextBox2.Text) * Val(TextBox3.Text)
End Sub

 

[M.ACAR]

SAYIN : dEdE önce verdiğiniz biligi için teşekkür ederim,fakat ekli resimdeki hata mesajını verdi nedeni nedir acaba? textbox'lardaki manuel olarak yazmış olduğum birim değerleri kaybolmaması lazım bu mümkün mü acaba ?

 

[dEdE]

Merhaba,
Bende hata vermiyor.
Dosyayı ilişikte gönderiyorum. Dosya üzerinde dener misiniz?

 

[M.ACAR]

Merhaba,
Bende hata vermiyor.
Dosyayı ilişikte gönderiyorum. Dosya üzerinde dener misiniz?

Hata benden kaynaklandı,Birim değerlerinin kaybolmadan yazdırma imkanı varmı acaba ?

 

[dEdE]

Örnek dosyayı değiştirdim. TextBox 5 ve 6 da Birim değerlerini yazıyor. Kodları incelerseniz diğerlerini de benzer şekilde yapabilirsiniz diye düşünüyorum

 

[M.ACAR]

SAYIN :dEdE ÇOK ÇOK TEŞEKKÜR EDERİM,ALLAHIM SİZE UZUN ÖMÜRLER VERSİN.

 

[M.ACAR]

FORUM'DAN ALDIĞIM ALDIĞIM DESTEK ve BİLGİLER İLE BİRŞEYLER HAZIRLAMAYA ÇALIŞIYORUM,BİR SORUM OLACAK TI ! USERFORM4'DEKİ LİSTVİEW'E ECXEL'DE DEĞİŞİM SAYISI SAYFASINDAKİ BİLGİLERİ NASIL ALABİLİRİM,YARDIMLARINIZI BEKLİYORUM.