TextBox'ta Nokta Virgül Kontrolü

[a_self_lion]

Sevgili ARkadaşlar

aşağıdaki kod benim yeni bir çalışmama aittir. şimdi burda yapmak istediğim
txt1KdvHBF bir miktar girince aşağıda formata göre kdvhariç toplam tutarını hesaplayıp txt1kdvHTT a yazıyor Ve Kdv dahil toplam tutarını ise txt1KdvDTT tutara yazıyor bu buşekilde
hangisine rakam girilse bir birini miktara göre oranlayıp kdv hariç birim fiyatını kdv hariç toplam tutarını kdv dahil toplam tutarını hesaplayıp yazıyor

benim proplemim aşağıdaki kodlardan ziyade daha önce klavyeden girilince sayıların bulunduğu sağ taraftaki nok işareti virgül çıkıyordu onu keydown a formül girerek çözmüştük ama burda değişim var onun için benim virgül yerine nokta yazdırmam lazım bunu nasıl yapabiirim change olayına yazdım sizin kodları ama sonuç vermedi

bilgi olsun diye çalışmamamı ekliyorum

Teşekkürler şimdiden


Private Sub txt1KdvDTT_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txt1KdvHBF.Value <> "" Then GoTo devam

Dim kdvorani As Double
kdvorani = (txtKdv.Value + 100) / 100
txt1KdvDTT.Value = Format(txt1KdvDTT.Value, "#,##0.00")
txt1KdvHTT.Value = Format(Val(txt1KdvDTT.Value) / kdvorani, "#,##0.00")
txt1KdvHBF.Value = Format(txt1KdvHTT / txtMiktar.Value, "#,##0.00")

devam:
cb2Firma.SetFocus

End Sub

Private Sub txt1KdvHBF_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txt1KdvHBF.Value = "" Then
txt1KdvHTT.SetFocus
Exit Sub
Else
txt1KdvHTT.Value = Format((txt1KdvHBF.Value * txtMiktar.Value), "#,##0.00")
txt1KdvDTT.Value = Format((((txt1KdvHTT.Value / 100) * txtKdv.Value) + txt1KdvHTT.Value), "#,##0.00")
txt1KdvHBF = Format(txt1KdvHBF, "#,##0.00")
End If
cb2Firma.SetFocus
End Sub

Private Sub txt1KdvHTT_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim kdvoranii As Double
kdvoranii = (txtKdv.Value + 100) / 100
If txt1KdvHTT.Value = "" Then
txt1KdvDTT.SetFocus
Else
txt1KdvHBF.Value = Format((txt1KdvHTT.Value / txtMiktar.Value), "#,##0.00")
txt1KdvDTT.Value = Format((txt1KdvHTT.Value) * kdvoranii, "#,##0.00")
txt1KdvHBF = Format(txt1KdvHBF, "#,##0.00")
cb2Firma.SetFocus
End If
End Sub