Erkan Gegez
Yeni Üye
- Katılım
- 22 Eki 2021
- Mesajlar
- 25
- Aldığı beğeni
- 13
- Excel V
- Office 2019 TR
Konu Sahibi
Arkadaşlar merhaba,
Bir programı youtube da bir arkadaşın yaptığı programı ben de oraya bakarak yapmaya çalışırken bir problemle karşılaştım.
Userform'un kod sayfasında şöyle bir ifade var
Private Sub txtMiktar_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 And IsNumeric(txtMiktar.Text) Then
txtTutar.Value = txtMiktar.Value * txtFiyat.Value
SEPETE_EKLE
End If
End Sub Burada yapılmak istenen Tutar = Miktar * Fiyat dır aslında.
Fakat bu kodu çalıştırınca
Tutar = Miktar * Fiyat
2 * 23,4 = 46,80 olması gerekirken 468 hesaplıyor.
virgüllü fiyatlarda bunu yapıyor.
yani buradaki txtTutar.Value = txtMiktar.Value * txtFiyat.Value formülünü buna nasıl uyarlayabiliriz.
Teşekürler ilgilenecek olan arkadaşlara...
Bir programı youtube da bir arkadaşın yaptığı programı ben de oraya bakarak yapmaya çalışırken bir problemle karşılaştım.
Userform'un kod sayfasında şöyle bir ifade var
Private Sub txtMiktar_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 And IsNumeric(txtMiktar.Text) Then
txtTutar.Value = txtMiktar.Value * txtFiyat.Value
SEPETE_EKLE
End If
End Sub Burada yapılmak istenen Tutar = Miktar * Fiyat dır aslında.
Fakat bu kodu çalıştırınca
Tutar = Miktar * Fiyat
2 * 23,4 = 46,80 olması gerekirken 468 hesaplıyor.
virgüllü fiyatlarda bunu yapıyor.
yani buradaki txtTutar.Value = txtMiktar.Value * txtFiyat.Value formülünü buna nasıl uyarlayabiliriz.
Teşekürler ilgilenecek olan arkadaşlara...
