Userform

[iplikci_80]

Arkadaşlar EK'te sunduğum örnekte Userformda hazırlanmış bir KDV hesaplama proğramı var. Ben buna girilen rakamın KDV'siz halinide göseterebilicek şekilde ekleme yapmak istiyorum fakat Userform hazırlama hususunda bilgi sahibi olmadığım için çaresiz kaldum lütfen yarım edin. Yapmak istediğim girilen rakamın KDV'si, KDV'li toplamı ve KDV'siz halini göstermek. Herkese teşekkürler

 

[ulutanas]

gönderdiğiniz dosyada rakamı giriyosunuz kdv sini ve kdv li toplam halini gösteriyor zaten. kdv siz halini görmek istiyosanız...

 

[Mehmet Şahin]

Merhaba,
istediğiniz böyle birşey midir? Kolay gelsin.

 

[iplikci_80]

Ayırdığınız zaman ve emek için çok teşekkür ederim.

 

[Mehmet Şahin]

Rica ederim, iyi çalışmalar.

 

[iplikci_80]

Merhabalar; en son yapımşı olduğumuz KDV hesaplayıcısında ana para ile kDV'snin toplamında hata var önreğin 114070,99'un KDV'si 20532,78 toplamı ise 134603,77 iken proğramda 2167348,77 oluyor bir türlü düzeltemedim lütfen yardımcı olun.TEŞEKKÜRLER.

 

[Mehmet Şahin]

Merhaba,
aslında sorun ondalık ayıracı ile ilgili. Normalde ondalık ayıracı olarak "." kullanıyoruz. Bu şekilde girdiğinizde doğru hesaplar. Ya da textbox1'in change olayını şu şekilde değiştirin, virgül olarak girseniz de noktaya çevirecektir.

Private Sub TextBox1_Change()
TextBox1 = Replace(TextBox1, ",", ".")
Call hesap
End Sub

 

[iplikci_80]

Merhabalar cevabınızı yeni gördüm ilginize çok teşekkür ederim fakat bu konularda bilgi sahibi olmadığımdan bir türlü düzeltmeyi yapamadım. Lütfen düzelme konusunda yandımcı olurmusunuz. Çok teşekkürler

 

[Mehmet Şahin]

Merhaba,
Başlat/Ayarlar/Denetim Masası/Bölge ve Dil Ayarları/Bölge Ayarları/Özel'in içinde ondalık sembol olarak ".", binlik grup sembolü olarak da "," seçin ve tamam diyerek kapatın. Bu durumda hesap prosedürünü de aşağıdaki gibi değiştirin. İyi çalışmalar.

Sub hesap()
If TextBox1 = "" Or IsNumeric(TextBox1) = False Then
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
Exit Sub
Else
End If
If OptionButton1 = True Then
TextBox3 = Format(Round(CDbl(TextBox1) * 0.18, 2), "#,##0.00")
TextBox4 = Format(CDbl(TextBox1) + CDbl(TextBox3), "#,##0.00")
TextBox5 = Format(CDbl(TextBox1) * 0.08, "#,##0.00")
TextBox6 = Format(CDbl(TextBox1) + CDbl(TextBox5), "#,##0.00")
Label3.Caption = "KDV'Lİ TOPLAM"
Label6.Caption = "KDV'Lİ TOPLAM"
ElseIf OptionButton2 = True Then
TextBox3 = Format(Round(CDbl(TextBox1) - Round((CDbl(TextBox1) / 1.18), 2), 2), "#,##0.00")
TextBox4 = Format(Round((CDbl(TextBox1) / 1.18), 2), "#,##0.00")
TextBox5 = Format(Round(CDbl(TextBox1) - Round(CDbl(TextBox1) / 1.08, 2), 2), "#,##0.00")
TextBox6 = Format(Round(CDbl(TextBox1) / 1.08, 2), "#,##0.00")
Label3.Caption = "KDV'SİZ TOPLAM"
Label6.Caption = "KDV'SİZ TOPLAM"
End If
End Sub