Texboxdaki sayının excelde metin algılanması

[kesikbey]

arkadaşlar userform üzerinde yaptığım sayı girişi excel sayfasında metin olarak algılanıyor, bunu düzeltmemyi başaramadım...

 

[kesikbey]

uzmanlar iş başı yapmadı herhalde...

 

[hımmmmmmmm]

Private Sub TextBox1_Change()
Dim SAYI As Double
If IsNull(TextBox1) = False Then SAYI = TextBox1
'----------------------------------
Cells(1, 1).Value = SAYI
End Sub

ben bu şekilde dönüştürüp hücreye yolluyorum

 

[omeryılmaz]

Private Sub TextBox1_Change()
Dim SAYI As Double
If IsNull(TextBox1) = False Then SAYI = TextBox1
'----------------------------------
Cells(1, 1).Value = SAYI
End Sub

ben bu şekilde dönüştürüp hücreye yolluyorum

Sheets("RAPOR2").Range("I6") = CDbl(TextBox30.Text)


veya

Sheets("RAPOR2").Range("I6") = FormatCurrency(TextBox30.Text, 2) ' Kuruşlu Para Formatı

şeklinde düzenleme yapabilirsiniz..



Private Sub TextBox30_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'SAYI FORMATI.............................................................
On Error Resume Next
'TextBox30 = Format(TextBox30, "##,##.00 ")
'yerine

TextBox30 = FormatCurrency(TextBox30.Text, 2)
End Sub


Farkedeceksiniz.

İyi çalışmalar

 

[kesikbey]

arkadaşlar çok teşekkürler... işimi gördü

 

[kesikbey]

Arkadaşlar sayı formatı halledildi fakat
tarih formatını yapamadım, texboxda girilen tarihi excel metin olarak algılıyor....