Textbox ondalık sayı aktarma

[igultekin2000]

iyi akşamlar; userform ile excel sayfasına veri aktarıyorum. epey örnek inceledim ama sorunu çözemedim. userformda değerler normal görünmesine rağmen excel sayfasına Miktar ve Fiyat kısmı virgüllü olduğu zaman metin olarak aktarıyor, virgülsüz olduğunda sayı formatı olarak sorunsuz aktarıyor. bu sorunu çözemedim.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
On Error Resume Next
If ComboBox1 <> "" And TextBox1 <> "" And TextBox2 <> "" And ComboBox2 <> "" And TextBox4 <> "" And TextBox3 <> "" And TextBox5 <> "" And TextBox6 <> "" Then

Set S1 = ThisWorkbook.Worksheets("Envanter")
sonsatir = S1.Range("B65536").End(xlUp).Row + 1
S1.Cells(sonsatir, "B") = TextBox1.Text 'Tarih
S1.Cells(sonsatir, "C") = TextBox2.Text 'Fatura No
S1.Cells(sonsatir, "D") = TextBox4.Text 'Kumaş Cinsi
If ComboBox1 = "ALIŞ" Then

S1.Cells(sonsatir, "E") = TextBox3.Text  'Giriş Miktar
S1.Cells(sonsatir, "F") = TextBox5.Text  'Fiyat
S1.Cells(sonsatir, "G") = TextBox3.Value * TextBox5.Value 'Giriş Toplam

Application.ScreenUpdating = True
MsgBox "Veri Girişi Yapıldı", vbOKOnly
ComboBox1.SetFocus
End If
End If
TextBox1.SelLength = 0
With TextBox1
.MaxLength = 10
.EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
.Text = "##.##.2017"
.SelStart = 0
.SelLength = 1
TextBox3 = Empty
TextBox5 = Empty
End With
End Sub
 
Private Sub TextBox3_Change()
If TextBox3 = "" Then TextBox3 = 0
If TextBox5 = "" Then TextBox5 = 0
miktar = TextBox3 * 1
fiyat = TextBox5 * 1
TextBox6 = Format(miktar * fiyat, "#,##0.00")
End Sub
Private Sub TextBox5_Change()
If TextBox3 = "" Then TextBox3 = 0
If TextBox5 = "" Then TextBox5 = 0
miktar = TextBox3 * 1
fiyat = TextBox5 * 1
TextBox6 = Format(miktar * fiyat, "#,##0.00")
End Sub

 

[kemal turan]

merhaba
Aşağıdaki gibi deneyin inşaallah işinizi görür

S1.Cells(sonsatir, "E") = format(clng(cdbl(TextBox3.value)))
S1.Cells(sonsatir, "F") = format(clng(cdbl(TextBox5.value)))

 

[Orion1]

Buyurun.

S1.cells(sonsatir,"B").numberformat="dd.mm.yyyy"
S1.Cells(sonsatir, "B") = cdate(TextBox1.Text) 'Tarih
S1.cells(sonsatir,"C").numberformat="@"
S1.Cells(sonsatir, "C") = TextBox2.Text 'Fatura No
S1.cells(sonsatir,"F").numberformat="#,##0.00"
S1.Cells(sonsatir, "F") = cdbl(TextBox5.Text)  'Fiyat

 

[igultekin2000]

sorunsuz çalışıyor

merhaba
Aşağıdaki gibi deneyin inşaallah işinizi görür

S1.Cells(sonsatir, "E") = format(clng(cdbl(TextBox3.value)))
S1.Cells(sonsatir, "F") = format(clng(cdbl(TextBox5.value)))

teşekkürler, epey forum karıştırdım bu şekilde örnek görmemiştim.

 

[igultekin2000]

sorun çözüldü.

Buyurun.

S1.cells(sonsatir,"B").numberformat="dd.mm.yyyy"
S1.Cells(sonsatir, "B") = cdate(TextBox1.Text) 'Tarih
S1.cells(sonsatir,"C").numberformat="@"
S1.Cells(sonsatir, "C") = TextBox2.Text 'Fatura No
S1.cells(sonsatir,"F").numberformat="#,##0.00"
S1.Cells(sonsatir, "F") = cdbl(TextBox5.Text)  'Fiyat

teşekkürler, bu kod bazı kodları kısaltmamı sağladı.

 

[Orion1]

teşekkürler, bu kod bazı kodları kısaltmamı sağladı.

Ve ayni zamanda doğru kodlardır.

 

[igultekin2000]

doğru kodlar derken

Buyurun.

S1.cells(sonsatir,"B").numberformat="dd.mm.yyyy"
S1.Cells(sonsatir, "B") = cdate(TextBox1.Text) 'Tarih
S1.cells(sonsatir,"C").numberformat="@"
S1.Cells(sonsatir, "C") = TextBox2.Text 'Fatura No
S1.cells(sonsatir,"F").numberformat="#,##0.00"
S1.Cells(sonsatir, "F") = cdbl(TextBox5.Text)  'Fiyat

doğru kod derken hikmetli laf etmişsiniz, uygulamaya geçince anladım. sizin kod doğru çalışıyor

S1.Cells(sonsatir, "E") = format(clng(cdbl(TextBox3.value)))

bu kod excele aktarınca virgülü görmeyip tam sayıya tamamlıyor. sizin kodlar vergüllü olarak dosyaya atıyor. mümkünse bir ilave daha isteyeceğim. form üzerinde bölme işlemi yapan" TextBox12 = Format(miktar3 / fiyat, "#.##0,00") bunu sizin yöntemle nasıl değiştirebilirim. bu durumda görsellikte sorun yok ama uygulamada 999 sonrasında işlem hata veriyor. Teşekkürler

 

[Orion1]

deneyiniz.

TextBox12.value = Format(miktar3 / fiyat, "#[B][COLOR="Red"],[/COLOR][/B]##0[B][COLOR="red"].[/COLOR][/B]00")

 

[igultekin2000]

denedim sonuç değişmedi

deneyiniz.

TextBox12.value = Format(miktar3 / fiyat, "#[B][COLOR="Red"],[/COLOR][/B]##0[B][COLOR="red"].[/COLOR][/B]00")

textbox12 dosya aktarılmıyor sadece formda görüntü olarak var, görüntüsü normal ama 1.200,60 gibi görünmesine rağmen bölme işleminde 1'ün üzerinde rakamı kabul etmiyor.

 

[Orion1]

Dosyayı ekledim.
Tam olarak ne istediğinizi anlayamadım ama anladığım kadarı ile biçimlendirmede hata vardı.Onu düzelttim.Dosya ektedir.

 

[igultekin2000]

hata durumu

Dosyayı ekledim.
Tam olarak ne istediğinizi anlayamadım ama anladığım kadarı ile biçimlendirmede hata vardı.Onu düzelttim.Dosya ektedir.

mevcut kumaş ve mamül olacak ürün seçtiğimde o anda Textbox12 kumaş ve mamüldan kaç adet çıkacağını hesaplıyor. bende o adette göre imalat kaydı yapıyorum. örnekte 3248 mt kumaş ve adet 1,25 mt toplam (textbox12) 2.598 adet ürün çıkıyor. bu adedi textbox3'e yazarak kaydı tamamlamam gerekirken, hata veriyor. yani 2.598 adeti 2 olarak algılıyor.

 

[Orion1]

mevcut kumaş ve mamül olacak ürün seçtiğimde o anda Textbox12 kumaş ve mamüldan kaç adet çıkacağını hesaplıyor. bende o adette göre imalat kaydı yapıyorum. örnekte 3248 mt kumaş ve adet 1,25 mt toplam (textbox12) 2.598 adet ürün çıkıyor. bu adedi textbox3'e yazarak kaydı tamamlamam gerekirken, hata veriyor. yani 2.598 adeti 2 olarak algılıyor.

Dosyanız ektedir.

Private Sub TextBox3_Change()
Dim miktar As Double, fiyat As Double, mamuladet As Long, fazlaadet As Long
If IsNumeric(TextBox3.Value) Then miktar = TextBox3.Value
If IsNumeric(TextBox9.Value) Then fiyat = TextBox9.Value
If IsNumeric(TextBox12.Value) Then fazlaadet = TextBox12.Value
TextBox4.Value = Format(miktar * fiyat, "#,##0.00")
If miktar > fazlaadet Then
    MsgBox "miktar : " & miktar & vbLf & "fazla adet : " & fazlaadet
    TextBox3.Value = ""
End If
End Sub

 

[igultekin2000]

sorunsuz çalışıyor

Dosyanız ektedir.

Private Sub TextBox3_Change()
Dim miktar As Double, fiyat As Double, mamuladet As Long, fazlaadet As Long
If IsNumeric(TextBox3.Value) Then miktar = TextBox3.Value
If IsNumeric(TextBox9.Value) Then fiyat = TextBox9.Value
If IsNumeric(TextBox12.Value) Then fazlaadet = TextBox12.Value
TextBox4.Value = Format(miktar * fiyat, "#,##0.00")
If miktar > fazlaadet Then
    MsgBox "miktar : " & miktar & vbLf & "fazla adet : " & fazlaadet
    TextBox3.Value = ""
End If
End Sub

Teşekkür ederim, sorunsuz çalışıyor.

 

[Orion1]

Teşekkür ederim, sorunsuz çalışıyor.

Rica ederim.
İyi çalışmalar.