Excel hücreden textboxa alınan sayı çarpma işlemi sorunu

[beza]

Merhaba,
Excel sayfasındaki sütundan 40,50 TL olarak, textbox1 e alınan parasal değer 40.50 şeklinde görülüyor textbox2 ye yazılan adet ile çarpma işlemi yaptığımda (örnek; textbox değerini 13 ile çarptığımda 526,50 yerine 5265,00 olarak gösteriyor. Formdan ondalık sayı formatı ile ilgili örnekleri denedim ama doğru sonuca ulaşamadım. Excel 2007 kullanıyorum. Bu sorunun bir çözümü var mı?

 

[RBozkurt]

Dosya ekleme imkanı varmı? Yada kodları?

Örn. https://s2.dosya.tc/

 

[beza]

Merhaba,
Ondalık format ile ilgili denediğim satırları çıkarttım, karışıklık yaratmaması için. Yapmak istediğim Textbox2 ile Conbobox4 ü çarpıp, ondalık basamakları doğru şekilde textbox4 e yazmak.
İlginiz ve ayırdığınız zaman için teşekkür ederim.

Private Sub ComboBox1_Click()
' Seçilen ürün bilgiletini sayfadan textbox ve comboboxlara getirir.
Sheets("Urun").Select
Set k = Sheets("Urun").Range("D").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
TextBox1 = k.Offset(0, -3).Value
TextBox2 = k.Offset(0, 1).Value
ComboBox1 = k.Offset(0, 0).Value
ComboBox2 = k.Offset(0, -2).Value
ComboBox3 = k.Offset(0, -1).Value
End If
If TextBox1 = "" Then
Exit Sub
Else
TextBox4.Text = TextBox2 * ComboBox4
End If

'==================================================================================
' LİSTBOXA AKTARMA
'==================================================================================

ListBox1.AddItem k.Offset(0, -3).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = k.Offset(0, -2).Value
ListBox1.List(ListBox1.ListCount - 1, 2) = k.Offset(0, -1).Value
ListBox1.List(ListBox1.ListCount - 1, 3) = k.Offset(0, 0).Value
ListBox1.List(ListBox1.ListCount - 1, 4) = k.Offset(0, 1).Value
ListBox1.List(ListBox1.ListCount - 1, 5) = ComboBox4.Value
ListBox1.List(ListBox1.ListCount - 1, 6) = TextBox4.Value
End Sub

Private Sub CommandButton1_Click()
Unload UrunSt
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_Activate()
ComboBox4.ListIndex = 0
End Sub

Private Sub UserForm_Initialize()
'Combobox lara ürün listesini yükler
Sheets("Urun").Select
UrunS = WorksheetFunction.CountA(Worksheets("Urun").Range("D"))
For i = 2 To UrunS
ComboBox1.AddItem Worksheets("Urun").Range("D" & i)
Next i
UrunK = WorksheetFunction.CountA(Worksheets("Urun").Range("B:B"))
For i = 2 To UrunK
ComboBox2.AddItem Worksheets("Urun").Range("B" & i)
Next i
UrunM = WorksheetFunction.CountA(Worksheets("Urun").Range("C:C"))
For i = 2 To UrunM
ComboBox3.AddItem Worksheets("Urun").Range("C" & i)
Next i
UrunA = WorksheetFunction.CountA(Worksheets("Urun").Range("L:L"))
For i = 2 To UrunA
ComboBox4.AddItem Worksheets("Urun").Range("L" & i)
Next i
TextBox1.SetFocus
End Sub

 

[RBozkurt]

Bu şekilde deneyiniz,
Bazı excellerde nolta virgül ayarı değişmiş oluyor. Aşağıdaki nokta ile virgülü sizdeki duruma göre yer değiştirirsiniz.

    If TextBox1 = "" Then
        Exit Sub
    Else
        Dim miktar As Double
        Dim adet As Double
        miktar = CDbl(Replace(TextBox2.Text, ".", ","))
        adet = CDbl(ComboBox4.Value)
        TextBox4.Text = Format(miktar * adet, "#,##0.00")
    End If

 

[beza]

Sayın RBozkurt tekrar merhaba,
Neredeyse tüm günümü harcadığım, benim için büyük sorunu çözdünüz.
Tekrar harcadığınız zaman ve ilginiz için çok teşekkür ederim.

 

[RBozkurt]

Sayın RBozkurt tekrar merhaba,
Neredeyse tüm günümü harcadığım, benim için büyük sorunu çözdünüz.
Tekrar harcadığınız zaman ve ilginiz için çok teşekkür ederim.

Önemli değil hocam kolay gelsin.