Textbox ta işlem yapma

[excelience]

Merhaba arkadaşlar textbox1 ve textbox2 yi textbox3 te otomatik çarptırmak icin nasıl bir formül gerekiyor şimdiden teşekkürler

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub TextBox1_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
        TextBox3 = TextBox1 * TextBox2
    End If
End Sub

Private Sub TextBox2_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
        TextBox3 = TextBox1 * TextBox2
    End If
End Sub

 

[excelience]

Merhaba,

Bu şekilde deneyin.

Private Sub TextBox1_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
        TextBox3 = TextBox1 * TextBox2
    End If
End Sub

Private Sub TextBox2_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
        TextBox3 = TextBox1 * TextBox2
    End If
End Sub

Teşekkürler hocam süpersiniz Hocam Text2 ve Text3 Teki rakamları parasal olarak göstermek istiyorum yani sonunda tl yazsın ve diyelim ki 1000 TL 1.000 olarak yazsın yardımlarınız için tekrardan teşekkürler

 

[Haluk]

Private Sub TextBox1_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
        TextBox3 = FormatCurrency((TextBox1) * (TextBox2), 2)
    End If
End Sub
'
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        TextBox1 = FormatCurrency(TextBox1, 2)
End Sub
'
Private Sub TextBox2_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
        TextBox3 = FormatCurrency((TextBox1) * (TextBox2), 2)
    End If
End Sub
'
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        TextBox2 = FormatCurrency((TextBox2), 2)
End Sub

.

 

[excelience]

Private Sub TextBox1_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
        TextBox3 = FormatCurrency((TextBox1) * (TextBox2), 2)
    End If
End Sub
'
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        TextBox1 = FormatCurrency(TextBox1, 2)
End Sub
'
Private Sub TextBox2_Change()
    If TextBox1 <> "" And TextBox2 <> "" Then
        TextBox3 = FormatCurrency((TextBox1) * (TextBox2), 2)
    End If
End Sub
'
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
        TextBox2 = FormatCurrency((TextBox2), 2)
End Sub

.

Teşekkürler hocam