Sayısal Formatlar hakkında

[taseraydin]

değerli üstada arkadaşlara
Textboxlara verilen Bindelik-Yüzdelik ve Tam sayıların
Excel Hücrelerine Bindelik-Yüzdelik ve Tam sayılar şeklinde aktarılması

 

[Mahir64]

değerli üstada arkadaşlara
Textboxlara verilen Bindelik-Yüzdelik ve Tam sayıların
Excel Hücrelerine Bindelik-Yüzdelik ve Tam sayılar şeklinde aktarılması

Merhaba
*1 olarak ekleme yaparsanız sayı olarak aktarır.

Private Sub CommandButton1_Click()
[sayfa1!E6] = TextBox1.Value [COLOR=Red]* 1[/COLOR]
[sayfa1!E7] = TextBox2.Value [COLOR=Red]* 1[/COLOR]
[sayfa1!E8] = TextBox3.Value [COLOR=Red]* 1[/COLOR]
End Sub

 

[taseraydin]

Vay ve bunu hiç düşünememiştim
teşekür ederim eline saylık değerli Black Lord

 

[taseraydin]

Formu Tekrar Çağırdımda Kaydedim Çıktığımda Sayıların değeri bozuldu

 

[Mahir64]

Merhaba

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "##,#0.00000")
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format(TextBox2, "##,#0.00000")
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3 = Format(TextBox3, "##,#0.00000")
End Sub