User form exele sayı kaydetme hatası

[osmanucel]

User formun tonaj ve fıyat ekleme kısmını sayı olarak exele kopyalatamıyom metın seklınde eklıyo bı yardım edebılırmısınız

 

[osmanucel]

User formdan exele sayı kaydetme

Tonaj ve fıyat kısmını user formdan sayı olarak kaydettıremedım bı yardım edebılırmısınız

 

[excelapachi]

Private Sub TextBox5_Change()

End Sub

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
     On Error Resume Next
     TextBox5.Value = Format(CDbl(TextBox5.Value * 1), "#,##0")
      Range("I7").Value = CDbl(TextBox5.Value)
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "CHK!B5:B65536"
ComboBox2.RowSource = "SK!C5:C65536"
ComboBox3.RowSource = "CHK!B5:B65536"

End Sub

Private Sub CommandButton1_Click()
Sheets("VT").Select
son = Cells(65536, "C").End(xlUp).Row + 1
Cells(son, "D") = TextBox2
Cells(son, "E") = TextBox3
Cells(son, "F") = TextBox4
Cells(son, "G") = ComboBox1
Cells(son, "H") = ComboBox2
Cells(son, "I") = Val(TextBox5)
Cells(son, "J") = Val(TextBox6)
Cells(son, "K") = TextBox7
Sheets("VT").Select
son = Cells(65536, "C").End(xlUp).Row + 1
Cells(son, "D") = TextBox2
Cells(son, "E") = TextBox8
Cells(son, "F") = TextBox9
Cells(son, "G") = ComboBox3
Cells(son, "H") = ComboBox2
Cells(son, "I") = Val(TextBox5)
Cells(son, "J") = TextBox10
Cells(son, "K") = TextBox11

End Sub



Private Sub CommandButton4_Click()
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = "25,140,60,60,40,40,40,70,70,70"
ListBox1.RowSource = "BĞS!B9:K" & Sheets("BĞS").[B65536].End(xlUp).Row
End Sub

Textbox 5 ve Text Box 6 ya val ekle

 

[osmanucel]

Allah razı olsun
butun gece ugrasdım beceremedım cok sagolun