TextBox taki sayıyı excele sayı olarak aktarmak.

[s.savas]

Merhaba arkadaşlar.
TextBox'lara yazdığım sayıları ve labelde aldığım toplamı aşağıdaki kodla para formatına çeviriyorum.

TextBox3 = Format(TextBox3, "#,##0.00")

Label4.Caption = Format(Label4, "#,##0.00")

Fakat excele kaydederken metin formatında kaydediyor. Dolayısıyla aşağıdaki kod işlevsiz hale geliyor.

Private Sub CommandButton2_Click()
Dim j As Integer, s As Worksheet
Set s = Sheets("Sayfa1")
j = 5
s.Cells(j, "A").Value = FormatCurrency(WorksheetFunction.Sum(s.Range("A1:A4")))
s.Cells(j, "C").Value = FormatCurrency(WorksheetFunction.Sum(s.Range("C1:C4")))
End Sub

TextBoxlara alınan sayı veya para biçimlerini excele kaydederken aynı biçimde nasıl kaydederiz veya excele aktarılan verileri nasıl toplarız.

 

[hamitcan]

Satırları,

Val(Label4)

şeklinde yazın.

 

[halit3]

Merhaba arkadaşlar.
TextBox'lara yazdığım sayıları ve labelde aldığım toplamı aşağıdaki kodla para formatına çeviriyorum.

TextBox3 = Format(TextBox3, "#,##0.00")

Label4.Caption = Format(Label4, "#,##0.00")

Fakat excele kaydederken metin formatında kaydediyor. Dolayısıyla aşağıdaki kod işlevsiz hale geliyor.

Private Sub CommandButton2_Click()
Dim j As Integer, s As Worksheet
Set s = Sheets("Sayfa1")
j = 5
s.Cells(j, "A").Value = FormatCurrency(WorksheetFunction.Sum(s.Range("A1:A4")))
s.Cells(j, "C").Value = FormatCurrency(WorksheetFunction.Sum(s.Range("C1:C4")))
End Sub

TextBoxlara alınan sayı veya para biçimlerini excele kaydederken aynı biçimde nasıl kaydederiz veya excele aktarılan verileri nasıl toplarız.

alternatif kod

Private Sub CommandButton3_Click()
Sheets("Sayfa1").Range("A1").Value = Label4 * 1
Sheets("Sayfa1").Range("A2").Value = Label4 * 1
Sheets("Sayfa1").Range("A3").Value = Label4 * 1
Sheets("Sayfa1").Range("A4").Value = Label4 * 1
Sheets("Sayfa1").Range("c1").Value = TextBox3 * 1
Sheets("Sayfa1").Range("c2").Value = TextBox3 * 1
Sheets("Sayfa1").Range("c3").Value = TextBox3 * 1
Sheets("Sayfa1").Range("c4").Value = TextBox3 * 1

End Sub

 

[s.savas]

Hamit hocam, Halit hocam ayrı ayrı teşekkür ederim.