Çözüldü excel vba da kod yazımı

[Erkan Gegez]

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...

 

[Artemis]

Private Sub txtMiktar_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Altına
dim txtFiyat As double yazarak bi deneyin.

 

[himmgarip]

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...

Kaydet butonundaki fiyatın kaydedildiği alanı aşağıdaki gibi revize ediniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Ek olarak kaydettiğiniz verilerdeki sütunları aşağıdaki gibi formatlandırabilirsiniz.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Ornek dosya ektedir.

 

[Erkan Gegez]

Private Sub txtMiktar_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)


Dim txtFiyat As Double
If KeyCode = 13 And IsNumeric(txtMiktar.Text) Then
txtTutar.Value = txtMiktar.Value * txtFiyat.Value
sh.Range("A" & lr + 1).Value = WorksheetFunction.Substitute(Me.txt_fiyat.Value, ",", ".")

End If

End Sub işaretli yerde hata veriyor arkadaşlar...

 

[himmgarip]

Excel çalışma kitabını paylasirmisiniz?

 

[Erkan Gegez]

Tabiiki ...
Ben acemiyim ,yeni yeni öğrenmeye çalışıyorum.Belki de ben becerememişimdir...

 

[himmgarip]

Birkaç yerde format değişikliği yaptım. Şuan normal çalışıyor. Dosyanız ektedir.

 

[Erkan Gegez]

Çok teşekkür ederim zahmet verdik size de. Başka problemlerle de karşılaşırsam rahatsız ederm.
iyi geceler...