textbox dan bir turlu numerik deger yazdiramiyorum.

[hoguz2]

Merhaba Arkadaslar,

ActiveCell.Offset(0, 3).NumberFormat = "@"
ActiveCell.Offset(0, 3) = TextBox8.Text

kodu ile hucreye girilen degerler sola dayali oluyor ve hucrenin sol kosesinde aciklama issaretinde oldugu gibi kirmizi ucgen cikiyor. o ucgene tikalyip sayiya donustur dedigimde excel hucredeki degeri tam olarak sayi oldugunu algiliyor.


Not: bu sekilde kullanilirken de aslinda formuller hucredeki bu degereleri sayi olarak goruyor ve hesap yapiyor. ama goz zevki acisindan iyi bir ssey degil . basit bir yolu varsa yardiminizi rica edeyirum . yoksa bu sekilde devam edecegiz artik veri kaydi girmeye...


iyi calismalar..

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodları, texbox8'in bulunduğu userformun kod bölümüne ekleyiniz.

Private Sub TextBox8_Change()
If IsNumeric(TextBox8.Text) Then: ActiveCell.Offset(0, 3).Formula = TextBox8.Text
End Sub

Private Sub TextBox8_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = Asc(",") Then: KeyAscii = Asc(".")
End Sub

 

[Orion1]

Merhaba.
Aşağıdaki kodu denermisiniz.

ActiveCell.Offset(0, 3).NumberFormat = "#,##0.00"