Textbox'dan hücreye yazdırılan rakamda kuruş sorunu..

[nazif74]

Merhaba Arkadaşlar. Yapmış olduğum formun üstünde bulunan textbox a kuruşlı bir rakam girerek excel sayfasındaki hücreye bu rakamı yazdırmak istiyorum. Fakat rakam excel sayfasında yukarı doğru yuvarlanarak kuruşsuz olarak yazılıyor. Nerden olduğunu bir türlü bulamadım. excel sayfasına rakam manuel olarak girildiğinde böyle bir yuvarlama yapmıyor. Sanırım sorun vb kısmında. Söz konusu texbox değerini integral olarak tanımladım. Sorun burdan kaynaklanıyor olabilir mi? Yardımlarınız için şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Söz konusu texbox değerini integral olarak tanımladım. Sorun burdan kaynaklanıyor olabilir mi?

Bundan kastınız nedir? int(textbox1) ise bu integer yani tamsayı anlamındadır. Bu şekilde kullandı iseniz kuruşu elbette dikkate almaz. Hücreye aktardığınız kodu verirmisiniz.

 

[Ali]

Levent Bey'e ek olarak aklıma gelen kuruş olarak virgülden sonra iki hane olarak kullanacağınız için kodlarınızın içinde Textbox değerini

TextBox1 = Format(TextBox1, "0.00") olarak belirtirseniz sorununuz düzelebilir.

 

[nazif74]

Sayın leventm, kullandığım kodlar aşağıdaki gibi, çaşılma sayfasında formuller olduğu için textbox dan aktardığım değerlerin hücrede sayı olarak algılanması lazım. Ben o düşünceyle integer yazdım.

Sayın fructose, Dediğiniz gibi texbox format ayarınıda eklemiştim ama dediğim gibi çalışma sayfasına kuruşsuz yuvarlanmış bir rakam yazıyor.

İlginiz için teşekkür ederim.

Dim ticKaz As Integer
ticKaz = TextBox3
Range("fb32") = ticKaz

 

[nazif74]

Arkadaşlar sanırım sorun çözüldü,
Dim ticKaz As Currency yazdım
kusura bakmayın belki çok saçma sorular soruyorum ama bu sadece acemilikten. İlginiz için çok teşekkür ederim.

 

[scorpix]

benimde textboxa girilen virgüllü değer ile ilgili sorunum var
sorunum :
textboxın formatını TextBox2 = Format(TextBox2, "#,##0.00") şeklinde ayarladım bu şekildeyken textboxa girilen virgüllü değer doğru olarak hücreye geçiyor ama sayı olarak geçmiyor. text boxla giriş yaptığım virgüllü değerleri topla formulu ile toplamaya kalktığımda sonuc 0 (sıfır) çıkıyor yardımcı olmanızı rica ediyorum.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

TextBox2 = Format([B][COLOR=blue]cdbl([/COLOR][/B]TextBox2[B][COLOR=blue])[/COLOR][/B], "#,##0.00")

 

[scorpix]

Aşağıdaki gibi deneyin.

TextBox2 = Format([B][COLOR=blue]cdbl([/COLOR][/B]TextBox2[B][COLOR=blue])[/COLOR][/B], "#,##0.00")

İlginize teşekkür ediyorum sayın leventm
malesef buda istediğim sonucu vermedi
kullanmak istediğim kısımı aşağıdaki örnekte görebilirsiniz.
http://rapidshare.com/files/16780019/ornek.zip.html

maaş sayfasında avans girişi butonuna basarak 10,50 lik bi giriş yaptığımızda ilgili hücreye metin olarak geçiyor.

 

[Levent Menteşoğlu]

Aşağıdaki satırı ilgili yerdeki ile değiştirin. Sayı biçiminide sayfa üzerinde hücre biçimlendirmeden yapabilirsiniz.

s1.Cells(say, "b") = CDbl(TextBox2)

 

[scorpix]

Aşağıdaki satırı ilgili yerdeki ile değiştirin. Sayı biçiminide sayfa üzerinde hücre biçimlendirmeden yapabilirsiniz.

s1.Cells(say, "b") = CDbl(TextBox2)

Sorun çözüldü İlginize Çok teşekkürler