Textboxtaki rakamı yukarı yuvarlayıp yazıya çevirmek

[Hakan ERDOST]

Textboxtaki rakamı excel sayfasına yazı ile yazdırmak

Sub TextBox30_Enter()
On Error Resume Next
TextBox30.Text = Val(TextBox28) / Val(TextBox29)
End Sub

Bu kod ile Texbox30 a iki textboxtaki değerleri alıp hesaplatıyorum ancak istediğim hesaplama sonucunu (0.5 den büyük olanı,buçuk ve yukarısı) tam sayıya yuvarlayıp aynı textboxa yazı ile yazdırabilirmiiyiz.

 

[Fuat Şirin]

Private Sub TextBox28_Change()
On Error Resume Next
deg1 = IIf(TextBox28 = "", 0, TextBox28)
deg2 = IIf(TextBox29 = "", 0, TextBox29)
TextBox30 = Format(Replace(CDbl(deg1) * CDbl(deg2), ".", ","), "#,##0")
End Sub
Private Sub TextBox29_Change()
TextBox29_Change
End sub

bu kodlar işinizi görür sanırım
siz kendinizie gör uyarlarsınız

 

[Hakan ERDOST]

Private Sub TextBox28_Change()
On Error Resume Next
deg1 = IIf(TextBox28 = "", 0, TextBox28)
deg2 = IIf(TextBox29 = "", 0, TextBox29)
TextBox30 = Format(Replace(CDbl(deg1) * CDbl(deg2), ".", ","), "#,##0")
End Sub
Private Sub TextBox29_Change()
TextBox29_Change
End sub

bu kodlar işinizi görür sanırım
siz kendinizie gör uyarlarsınız

İlginize teşekkürler.Yuvarlamda sorun yok sağolunuz.Ancak TextBox30 daki değeri (diyelimki 96) hala sayısal olarak aktaryor.Oysa benim istediğim;TextBoxun enter olayına tıkladığımda alınan örnekteki rakamla 96 i verileri gi dediğimde çalışma sayfasına DOKSANALTI olarak yazması.Tekrar teşekkürler.
Kodum aşağıda

Private Sub TextBox30_Enter()
On Error Resume Next
deg1 = IIf(TextBox28 = "", 0, TextBox28)
deg2 = IIf(TextBox29 = "", 0, TextBox29)
TextBox30 = Format(Replace(CDbl(deg1) / CDbl(deg2), ".", ","), "#")

End Sub

 

[Hakan ERDOST]

Arkadaşlar flood yaptığımın düşünülmesini istemem ama en azından mümkün olup olmadığı konusunda üstatlar bir bilgi verse.tekrar hatırlatmak gerekirse sorunun özü şu Userform üzerindeki texboxdaki sayısal veriyi excel çalışma sayfasına rakamla yazdırmak mümkünmü? Ör:TextBox2/TextBox3 işleminin sonucu textBox4 e rakam olarak yazdırılıyor.Yazdırılan bu değeri yazılan yazı ile çalışma sayfasındaki herhangi bir hücreye yazdırmak mümkünmüdür?
Herkese kolay gelsin.

 

[Ayhan Ercan]

Merhaba

Aşağıdaki linkte sorununuza çözüm olabilecek konular mevcuttur...

http://www.excel.web.tr/forumdisplay.php?f=116

 

[Hakan ERDOST]

Merhaba

Aşağıdaki linkte sorununuza çözüm olabilecek konular mevcuttur...

http://www.excel.web.tr/forumdisplay.php?f=116

Teşekkürler ancak benim istediğim bu değil.Yukarıda açıklamıştım.2 gündür forumu tarıyorum böyle bir çalışma yok.O yüzden mümkün olup olmadığını soruyorum.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[Hakan ERDOST]

Üstat ilgine teşekkürler ama olmadı.
1.Ben bu rakamı sadce yazı ileyazdıracaktım, para birimi olarak değil çünkü sicil raporuna aktarıyor.
2.Form üzerinde Yaklaşık 30 Texbox var bunların birkısmına veri giriliyor.Bu girilen veri bir textbozta toplanıyor.Diğer bir textboxa da Dğeriendirilen soru sayısı girilip bu iki textbox birbirine bölünüp bulunan ortalama textboxa alınıyor.
3.Alınan bu ortalama veri gir butonu aracılığı ile veri gir dendiğinde 95 ise örneğin DOKSANBEŞ olarak diğer veriler ilew birlikte yazılmalı.
Biiraz uzun oldu ama .

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

 

[Hakan ERDOST]

Tşekkürler bu saatte ilginiz için teşekkürler.Şu aniçin bir sorun yok .

 

[Hakan ERDOST]

Üstat çok oluyorum belik ama şu başlığda bir bakarmısınız.
http://www.excel.web.tr/showthread.php?goto=newpost&t=57649