yukarı yuvarlama ile ilgili kod?

[efee2000]

Merhaba arkadaşlar,
küçük bir problemim var yardımınıza ihtiyacım olacak..
benim 2 adet textboxum var texbox17 ve textbox143 , textbox17 stok sayfasından düşeyara ile stok adlarını veri olarak alıyor. textbox 143 e ise manuel metre miktarı giriyorum. yapmak istediğim:
bir command button1 aracılığı ile textbox143 e girilen veriyi bir katsayıya bölmek(bu katsayıyı da düşeyara ile sayfadan alıyor) , cıkan katsayıyı küsüratı ne olursa olsun yukarı yuvarlamak, yukarı yuvarlayark bulduğum rakamı da yine düşeyara ile bulduğu katsayı ile çarptırmak..

aşağıdaki kodu denedim ancak yukarı yuvarlama kodunu bilmediğim için textbox143 e girilen veriyi tekrar bana veriyor..

Private Sub CommandButton1_Click()
TextBox143 = (TextBox143) / (Sheets("STOK").Cells(Sheets("STOK").[b2:b65536].Find(TextBox17.Value).Row, 6).Value) * (Sheets("STOK").Cells(Sheets("STOK").[b2:b65536].Find(TextBox17.Value).Row, 6).Value)

böldükten sonra çıkan sayıyı yukarı yuvarlatıp çarpım işlemini öyle yapmalıyım?

 

[efee2000]

:kafa: :kafa: :kafa:

 

[Levent Menteşoğlu]

yukarı yuvarlama fonksiyonu aşağıdaki gibidir.


WorksheetFunction.RoundUp(yuvarlanacak değer, yuvarlanacak hane)

 

[VisualBasic]

Yukarı yuvarlama kodunu bilmediğim için demişsiniz.
Cevabınız:

Sub YukarıYuvarla()
MsgBox WorksheetFunction.RoundUp(1564.64, 0)
End Sub

 

[efee2000]

arkadaşlar elinize sağlık. bu kadar basit ama bilmeyince olmuyo tabi kıvranıp duruyosun)
çok teşekkürler..