textbox sayı-metin şekli

[Mahmut Kök]

TEXTBOX A GİRDİĞİM VERİLER(SAYI), EXCELDEKİ İLGİLİ HÜCREYE METİN OLARAK KAYDEDİLİYOR (METİN OLARAK SAKLANAN SAYI...) BUNU NASIL GİDEREBİLİRİM?

Çok basit belki ama, ne yapayım bilmiyorum. Bilmemek ayıp değil, öğrenmemek ayıp değil mi

 

[Levent Menteşoğlu]

Bunun muhtelif yolları elbette mevcut. Örneğin veriyi A1 hücresine aktardığınızı kabul edersek;

[a1]=CDbl(TextBox1)

veya

[a1]=TextBox1*1

 

[Recep İpek]

Cells(1,1).value=Textbox1*1 olarak deneyin.

 

[Mahmut Kök]

teşekkürler..

Tahmin ettiğim gibi, gayet basitmiş; ilgilenen arkadaşlara teşekkür ederim.

Forum kurallarını okudum

 

[nkumas]

forumları okudum ama bende bi turlu olmadı nerde hata yapıyorum cozemedim.

Userforma once excel sheetten veri alıcam sonra revize edip excele tekrar kaydedicem ama bi turlu formatları uyusturamadım.

Veriyi bu formulle alıyorum. Yuvarlasın ve dolar olarak userformda goreyim diye

TextBox1.Value = Format((Round(Range("C10").Value, 2)), "#.#0 $")

Degeri degistirirken yine dolar olarak gormek icin soyle bi kod yazdım

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(TextBox1, "#.#0 $")
End Sub

degisen degeri tekrar excele atamam lazım ve bunun sayı olarak algılanması gerekiyor.

bunun icin

s1.Cells(10, 3) = CDbl(TextBox1)

ya da TextBox1*1 hicbiri uyusmadı

 

[nkumas]

arkadaslar dosyayı ekledim

bi turlu sayı formatında excele akataramadım textboxları..


YArdım eder misiniz? Cok tesekkurler..

 

[nkumas]

aynı sorunu yasayanlar ararsa sorunu su kodla cozdum

Range("C10").Value = Left(TextBox1.Text, Len(TextBox1.Text) - 2)

 

[Levent Menteşoğlu]

Aşağıdaki gibide sonuç alabilirsiniz.

Range("C10").Value =val(TextBox1)