Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: iplikci80 - 27 Mayıs 2011, 08:50:17

Başlık: TextBoxlarda Ondalık Kısım Hatası
Gönderen: iplikci80 - 27 Mayıs 2011, 08:50:17

Arkadaşlar EK'te göndermiş olduğum örnek KDV hesaplayıcısında, ana para ile KDV'sinin toplamında hata var. Örneğin 114.070,99'un KDV'si 20.532,78 toplamı ise 134.603,77 iken proğramda 2.167.348,77 oluyor bir türlü düzeltemedim lütfen yardımcı olun.Herkese çok teşekkkür ederim.


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Başlık: Ynt: TextBoxlarda Ondalık Kısım Hatası
Gönderen: lark - 27 Mayıs 2011, 09:54:50

Bende doğru çalıştı. Excel 2003. Belki 2007'de bakmak gerekebilir.

Başlık: Ynt: TextBoxlarda Ondalık Kısım Hatası
Gönderen: Bülent Öztürk - 27 Mayıs 2011, 10:19:26

Aşağıdaki gibi dener misiniz?

Textbox1 için:

Kod: [Seç]

Private Sub TextBox1_Change()
TextBox1 = Replace(TextBox1, ".", ",")
Call hesap
End Sub
Diğer textbox'ların change olayına da şunu uyarlayıp ekler misiniz?

Kod: [Seç]

TextBox3 = Replace(TextBox3, ".", ",")

Nokta-virgül karmaşası Excel makroları için sıkıntılı bir durumdur.

Başlık: Ynt: TextBoxlarda Ondalık Kısım Hatası
Gönderen: Bülent Öztürk - 27 Mayıs 2011, 10:21:35

Lütfen foruma eklediğiniz dosyalarınızdaki

Alıntı

Application.Quit

komutu yerine

Kod: [Seç]

ThisWorkbook.Closeyazar mısınız?

Genelde Excel ile çalışanların önünde sadece 1 dosya açık olmaz ve hiç kimsenin başkasının çalışmalarını kapatmaya hakkı yoktur!