Sn. Berduş Hocam yardımınız için çok teşekkür ederim. Yazılan değeri sayısal olarak aktararak kaydetme işlemi gerçekleşti fakat
girdiğiniz sayı 1250 tl ise sorun olmadan 1.250,00 tl olarak kaydediyor ama girdiğiniz sayı
1250,75 gibi küsuratlı ise bunu 125.075,00 TL olarak aktarıyor.
Worksheets("Ana Sayfa").Cells(SonSatir, 7) = txt_MasrafTutari
satırlarını aşağıdaki kodla değiştirip dener misiniz?
Worksheets("Ana Sayfa").Cells(SonSatir, 7) = CDbl(txt_MasrafTutari)
Maalesef değişmedi. Aynı şekilde atıyor.
(11/02/2021, 22:33)feraz yazdı: https://www.excel-inside.de/beispiele_vb...l-qformatq
sSn Feraz Hocam bana uygun olan format
=FORMAT(wert, "#,##0.00") bu
ama bunu
Vba koduma nasıl adapte edeceğim.
Kod:
If IsNumeric(txt_MasrafTutari.Value) Then
SonSatir = WorksheetFunction.CountA(Worksheets("Ana Sayfa").Range("A:A")) + 1
If SonSatir = 2 Then
Worksheets("Ana Sayfa").Cells(SonSatir, 1) = 1
Worksheets("Ana Sayfa").Cells(SonSatir, 2) = txt_MasrafTarihi
Worksheets("Ana Sayfa").Cells(SonSatir, 3) = cmb_Firma
Worksheets("Ana Sayfa").Cells(SonSatir, 4) = txt_BelgeNo
Worksheets("Ana Sayfa").Cells(SonSatir, 5) = cmb_MasrafTuru
Worksheets("Ana Sayfa").Cells(SonSatir, 6) = txt_Aciklama
Worksheets("Ana Sayfa").Cells(SonSatir, 7) = txt_MasrafTutari
Else
Worksheets("Ana Sayfa").Cells(SonSatir, 1) = Worksheets("Ana Sayfa").Cells(SonSatir - 1, 1) + 1
Worksheets("Ana Sayfa").Cells(SonSatir, 2) = txt_MasrafTarihi
Worksheets("Ana Sayfa").Cells(SonSatir, 3) = cmb_Firma
Worksheets("Ana Sayfa").Cells(SonSatir, 4) = txt_BelgeNo
Worksheets("Ana Sayfa").Cells(SonSatir, 5) = cmb_MasrafTuru
Worksheets("Ana Sayfa").Cells(SonSatir, 6) = txt_Aciklama
Worksheets("Ana Sayfa").Cells(SonSatir, 7) = txt_MasrafTutari
Wert yerine mesela
Textbox1.value yazılacak abey.
Textbox1.value =FORMAT(textbox1.value, "#,##0.00")
Yukardaki gibi örnek olabilir.