textbox ta çarpma işlemi

[mertmustafa01]

textbox1 deki adetle textbox2 deki rakamı çarpıp textbox3 yazmasını istiyorum ama beceremedim.

 

[mertmustafa01]

arkadaşlar biliyorum çok beceriksiz biriyim ama lütfen yardım edin

 

[Orion1]

Aşağıdaki kodlar bir commandbutona atanmıştır.

Private Sub CommandButton1_Click()
TextBox3.Value = Empty
If IsNumeric(TextBox1.Value) And IsNumeric(TextBox2.Value) Then
    TextBox3.Value = CDbl(TextBox1.Value) * CDbl(TextBox2.Value)
End If
End Sub

 

[mertmustafa01]

sevgili arion2 kardeşim
commandbutona aktarmadan olmazmı acaba.? direk işlem yapmazmıyım.?

 

[Seyit Tiken]

Aşağıdaki gibi deneyiniz.

Private Sub TextBox1_Change()
Me.TextBox3 = Me.TextBox1
End Sub

Private Sub TextBox2_Change()
On Error Resume Next
TextBox3 = Val(Me.TextBox1) * (Me.TextBox2)
End Sub

 

[Zeki Gürsoy]

Private Sub TextBox1_Change()
On Error Resume Next
    TextBox3 = TextBox1 * TextBox2
    
    If Err <> 0 Then TextBox3 = Empty
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
    TextBox3 = TextBox1 * TextBox2
    
    If Err <> 0 Then TextBox3 = Empty
End Sub

 

[mertmustafa01]

arkadaşlarım çok teşekkürler ederim bir de rakamı düz yazı 1.000,00 gibi olurmu acaba

 

[Zeki Gürsoy]

Private Sub TextBox1_Change()
On Error Resume Next
    TextBox3 = FormatNumber(TextBox1 * TextBox2)
    
    If Err <> 0 Then TextBox3 = Empty
End Sub
 
Private Sub TextBox2_Change()
On Error Resume Next
    TextBox3 = FormatNumber(TextBox1 * TextBox2)
    
    If Err <> 0 Then TextBox3 = Empty
End Sub

 

[mertmustafa01]

arkadaşlarım bu pazar günü yardımlarınızdan dolayı teşekkürler ederim. başka bir sayfada textbox larda farklı bir çalışma kitabından düşey ara ile bilgi getirebilirmiyim diye sormuştum. 2.xls kitabımdaki userform üzerindeki textbox1 e sayı veya harf girdiğimde 1.xls kitabımda a,b,c, sütünlarındaki bilgilerimi textbox2,textbox3,textbox4 e yazdırmam gerekiyor. fakat bu işlem birçok textbox üzerinde olması gerekiyor. yardım edermisiniz.