Soru Textbox Format Hatası

[Hsn55]

İyi günler;
Ekli örnek dosyada Userform üzerinde TextBox2,Textbox3 ve TextBox4 e örneğin 225 diye bir rakam girdiğim zaman ve kaydet butonuna bastığımda veriler kayıtlar sayfasına istenilen formatta kayıt yapılıyor. Fakat Textboxlara 225,87 olarak girdiğimda kayıtlar sayfasına kayıt yapılırken hata veriyor. Bir türlü çözemedim. Yardımcı olursanız sevinirim. Saygılarımla

İndir Örnek

Dosyayı indir Örnek

dosya.co

 

[Mdemir63]

Selamlar

Bunun gibi olanların yerine

Format(TextBox4.Value, "@")

Bu şekilde kullanın

FormatNumber(CDbl(TextBox2.Value), 2)

 

[Hsn55]

o şekilde yaptım. Yine aynı hatayı verdi.

Private Sub CommandButton1_Click()
 On Error Resume Next
  
    No = TextBox1.Value
    
    If No = Empty Then MsgBox "DAVA TAKİP NO BOŞ OLMAZ!", vbCritical, "D İ K K A T":    Exit Sub
    Set SyfKyt = ThisWorkbook.Worksheets("KAYITLAR")
               ss = SyfKyt.Cells(Rows.Count, 1).End(xlUp).Row: If ss < 3 Then ss = 3
             x = Application.Match(No, SyfKyt.Range("B:B"), 0)
        If Not IsError(x) Then xMsg = "Veri Güncellensin mi?" Else xMsg = "Yeni Kayıt Eklensin mi?": x = ss + 1
If MsgBox(xMsg, vbInformation + vbYesNo + vbDefaultButton2, "D İ K K A T") = vbNo Then Exit Sub
    ListBox1.RowSource = ""
    SyfKyt.Cells(x, 1) = Format(x - 3, "@")
    SyfKyt.Cells(x, 2) = Format(TextBox1.Value, "@")
  
    SyfKyt.Cells(x, 3) = FormatNumber(CDbl(TextBox2.Value), 2)
    SyfKyt.Cells(x, 4) = FormatNumber(CDbl(TextBox3.Value), 2)
    SyfKyt.Cells(x, 5) = FormatNumber(CDbl(TextBox4.Value), 2)
    
    
  
    MsgBox Msj, vbInformation, "T E B R İ K L E R"
End Sub

 

[Mdemir63]

Selamlar

Sizin dosyanızda denedim bende hata vermedi

 

[Hsn55]

Userformu kapatınca hata oluşuyor hocam

 

[Mdemir63]

Selamlar

Bu şekilde deneyiniz.

    SyfKyt.Cells(x, 2) = CDbl(TextBox1.Value)
    SyfKyt.Cells(x, 3) = CDbl(TextBox2.Value)
    SyfKyt.Cells(x, 4) = CDbl(TextBox3.Value)
    SyfKyt.Cells(x, 5) = CDbl(TextBox4.Value)

 

[Hsn55]

Selamlar

Bu şekilde deneyiniz.

    SyfKyt.Cells(x, 2) = CDbl(TextBox1.Value)
    SyfKyt.Cells(x, 3) = CDbl(TextBox2.Value)
    SyfKyt.Cells(x, 4) = CDbl(TextBox3.Value)
    SyfKyt.Cells(x, 5) = CDbl(TextBox4.Value)

Çok teşekkür ederim. İyi akşamlar

 

[Mdemir63]

Rica Ederim
İyi Çalışmalar