sayı biçimi

[talatcd]

Slm arkadaşlar şimdiden kolay gelsin, benim yaptığım form üzerindeki TextBox lardan veri aktarıyorum kodlar aşağıda, bunları sayı olarak atmak istiyorumki toplam alabileyim. bunu nasıl başarırım.
Private Sub CommandButton1_Click() 'Kaydet
Worksheets("Parametre").Select
For a = 1 To 110
If Controls("textbox" & a) = "" Then
MsgBox "VERİ GİRİŞİ EKSİKTİR"
Exit Sub
End If
Next
sonsat = [A65536].End(3).Row + 1
Cells(sonsat, 1) = sonsat - 1
Cells(sonsat, 2) = TextBox1
Cells(sonsat, 3) = TextBox2
Cells(sonsat, 4) = TextBox3
Cells(sonsat, 5) = TextBox4
Cells(sonsat, 6) = TextBox5
Cells(sonsat, 7) = TextBox6
Cells(sonsat, 8) = TextBox7
Cells(sonsat, 9) = TextBox8
Cells(sonsat, 10) = TextBox9
Cells(sonsat, 11) = TextBox10
Cells(sonsat, 12) = TextBox11 ' Sayı Biçiminde yazılacak
Cells(sonsat, 13) = TextBox12 ' Sayı Biçiminde yazılacak
Cells(sonsat, 14) = TextBox13 ' Sayı Biçiminde yazılacak
Cells(sonsat, 15) = TextBox14 ' Sayı Biçiminde yazılacak
Cells(sonsat, 16) = TextBox15
Cells(sonsat, 17) = TextBox16
Cells(sonsat, 18) = TextBox17
Cells(sonsat, 19) = TextBox18 ' sayı biçiminde yazılacak
Cells(sonsat, 20) = TextBox19
Cells(sonsat, 21) = TextBox20
Cells(sonsat, 22) = TextBox21
Cells(sonsat, 23) = TextBox22
Cells(sonsat, 24) = TextBox23
Cells(sonsat, 25) = TextBox24
Cells(sonsat, 26) = TextBox25
Cells(sonsat, 27) = TextBox26
Cells(sonsat, 28) = TextBox27
Cells(sonsat, 29) = TextBox28
Cells(sonsat, 30) = TextBox29
Cells(sonsat, 31) = TextBox30
Cells(sonsat, 32) = TextBox31
Cells(sonsat, 33) = TextBox32
Cells(sonsat, 34) = TextBox33
Cells(sonsat, 35) = TextBox34
Cells(sonsat, 36) = TextBox35
Cells(sonsat, 37) = TextBox36
Cells(sonsat, 38) = TextBox37
Cells(sonsat, 39) = TextBox38
Cells(sonsat, 40) = TextBox39
Cells(sonsat, 41) = TextBox40
Cells(sonsat, 42) = TextBox41
Cells(sonsat, 43) = TextBox42
Cells(sonsat, 44) = TextBox43
Cells(sonsat, 45) = TextBox44
Cells(sonsat, 46) = TextBox45
Cells(sonsat, 47) = TextBox46
Cells(sonsat, 48) = TextBox47
Cells(sonsat, 49) = TextBox48
Cells(sonsat, 50) = TextBox49
Cells(sonsat, 51) = TextBox50
Cells(sonsat, 52) = TextBox51
Cells(sonsat, 53) = TextBox52
Cells(sonsat, 54) = TextBox53
Cells(sonsat, 55) = TextBox54
Cells(sonsat, 56) = TextBox55
Cells(sonsat, 57) = TextBox56
Cells(sonsat, 58) = TextBox57
Cells(sonsat, 58) = CLng(CDate(TextBox57))
UserForm_Initialize
ListBox1.ListIndex = sonsat - 2
End Sub

 

[Recep İpek]

Cells(sonsat, 19) = TextBox18 *1

yapmanız yeterli.

Daha detaylı bilgi için aşağıdaki linki inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=19472