küsuratlı degerler metin biçiminde saklanan sayı olarak aktarılıyor

[fedeal]

aşagıdaki kodlarla sayfaya aktardıgım " , "lü (küsuratlı) sayılar metin biçiminde saklanan sayı olarak aktarılıyor (matamatik işlemi yapılamıyor) kodlarda nasıl bir degişiklik yapmalıyım?

Private Sub CommandButton1_Click()

If TextBox51.Text <> "" Then

Son_Dolu_Satir = Sheets("MASRAF").Range("A65536").End(xlUp).Row

Bos_Satir = Son_Dolu_Satir + 1

Sheets("MASRAF").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("MASRAF").Range("A:A")) + 1

Sheets("MASRAF").Range("B" & Bos_Satir).Value = TextBox1.Text

Sheets("MASRAF").Range("C" & Bos_Satir).Value = TextBox2.Text

Sheets("MASRAF").Range("D" & Bos_Satir).Value = TextBox3.Text

 

[Orion1]

Sheets("MASRAF").Range("B" & Bos_Satir).Value = cdbl(TextBox1.Text)

 

[fedeal]

tekrar teşekkürler evren bey hızınız için :bravo:

 

[Orion1]

tekrar teşekkürler evren bey hızınız için :bravo:

Rica ederim.
İyi çalışmalar.

 

[fedeal]

yanlız şimdi farkettim textbox boş olunca hata veriyor yani hepsinde deger olması gerekiyor.

 

[Orion1]

yanlız şimdi farkettim textbox boş olunca hata veriyor yani hepsinde deger olması gerekiyor.

Tabbiki olur.
Aşağıdaki gibi kontroller koymalısınız.

If Not IsNumeric(TextBox1.Text) Then
    MsgBox "TextBox1 Sayısal Bir değer olmalırdır..!!", vbCritical, "UYARI"
    TextBox1.SetFocus
    Exit Sub
End If

 

[fedeal]

55 tane textbox tan günlük masraf kredili satış verilerini sayfaya gönderdigim için üzerinde deger olmayanlar için başka bir çözüm yokmu yada bendeger girmedigim textboxlar "0" gibi bir deger görünemezmi ?

 

[Korhan Ayhan]

Selamlar,

A&#351;a&#287;&#305;daki &#351;ekilde denermisiniz.

Sheets("MASRAF").Range("B" & Bos_Satir).Value = IIf(TextBox1 = "", 0, CDbl(TextBox1))

 

[Orion1]

Bu seferde textboxlardan bir tanesine yanlışlıkla metin girilirse hata verecektir.!

 

[fedeal]

korhan bey bu seferde run time eror 13 diye hata veriyor.

 

[fedeal]

yine hata veriyor

Private Sub CommandButton1_Click()

If TextBox51.Text <> "" Then

Son_Dolu_Satir = Sheets("MASRAF").Range("A65536").End(xlUp).Row

Bos_Satir = Son_Dolu_Satir + 1

Sheets("MASRAF").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("MASRAF").Range("A:A")) + 1

Sheets("MASRAF").Range("B" & Bos_Satir).Value = IIf(TextBox1 = "", 0, CDbl(TextBox1))

Sheets("MASRAF").Range("C" & Bos_Satir).Value = IIf(TextBox2 = "", 0, CDbl(TextBox2))

 

[fedeal]

örnek dosya

örnek dosya ekte yardımcı olursanız sevinirim