• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Textbox ta işlem yapma

Katılım
27 Mayıs 2017
Mesajlar
185
Beğeniler
2
Excel Vers. ve Dili
2010 xls
2016 xls
#1
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
19,219
Beğeniler
30
Excel Vers. ve Dili
2010-Türkçe
#2
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
Beğeniler
2
Excel Vers. ve Dili
2010 xls
2016 xls
#3
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
6,593
Beğeniler
267
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#4
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
Beğeniler
2
Excel Vers. ve Dili
2010 xls
2016 xls
#5
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