Textbox ta işlem yapma

Katılım
27 Mayıs 2017
Mesajlar
185
Excel Vers. ve Dili
2010 xls
2016 xls
Merhaba arkadaşlar textbox1 ve textbox2 yi textbox3 te otomatik çarptırmak icin nasıl bir formül gerekiyor şimdiden teşekkürler
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Bu şekilde deneyin.
Kod:
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
 
Katılım
27 Mayıs 2017
Mesajlar
185
Excel Vers. ve Dili
2010 xls
2016 xls
Merhaba,

Bu şekilde deneyin.
Kod:
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Kod:
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
.
 
Katılım
27 Mayıs 2017
Mesajlar
185
Excel Vers. ve Dili
2010 xls
2016 xls
Kod:
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
 
Üst