Textbox Ta Problem

[ator53]

TEXBOX A VERİ GİRDİĞİMDE EXCEL BUNU METİN OLARAK ALGILIYOR VE EXCEL SAYFASIN DA TOPLAMA YAPTIRAMIYORUM.
Private Sub TextBox2_Change()
Sheets("H.FATURA").[E3] = TextBox2.Value * 1
Sheets("H.ARŞİV").[D31] = TextBox2.Value * 1

End Sub
BU ŞEKİLDE YAPTIM HER ŞEY GÜZEL TEXBOXA GİRDİĞİM SAYININ HEPSİNİ SİLMEYE KAKTINMI HATA VERİYOR.YARDIMCI OLURSANIZ SEVİNİRİM...

 

[Ayhan Ercan]

kodlarınızı aşağıdaki gibi değiştiriniz ve denyiniz...

Private Sub TextBox2_Change()
Sheets("H.FATURA").[E3] = [COLOR=red]Val(TextBox2)[/COLOR]
Sheets("H.ARŞİV").[D31] = [COLOR=red]Val(TextBox2)
[/COLOR]End Sub

 

[ator53]

öylede yaptım aynı hatayı verdi üstelik sayıların virgülden sonrasını atmadı dirakt 12,25 giriyorum hücreye 12,00 olarak gidiyor

 

[BG]

sayın ator53

benim kaatimce userformda bir terslik yok, textbox dan veri girişi yaptığınız hücre formatını kontrol edin, hücre formatı text olabilir, o hücreyi yada hücreleri biçim/hücreler/sayı olarak değiştirmeyi denediniz mi ?

 

[ator53]

evet denedim ama olmadı şu an sayı olarak ayarlı

 

[ator53]

zannedersem sıkıntı sayı olarak tanımlamam gerekiyor ama bu nu nasıl yapacağım bilimiyorum

 

[BG]

actiginiz diger konu basliginda sayin levent mentesoglu ve sayin uzmanamele tarafından cevap verildi aşağıdaki gibi ;


TextBox1.Text = Format(TextBox1, "#.##0,00")


....=val(replace(textbox1,",","."))

 

[Orion1]

Private Sub TextBox2_Change()
[COLOR="Red"][B]on error resume next[/B][/COLOR]
Sheets("H.FATURA").[E3] = TextBox2.Value * 1
Sheets("H.ARŞİV").[D31] = TextBox2.Value * 1

End Sub