makroda aşağı yuvarlama

[airborne]

s.a.

TextBox10.Value = Round(Val(TextBox7.Value) / (10), 0)

yuvarlama işlemi yapıyorum. bunun aşağı ve yukarı yuvarlamasını nasıl yaptırabilirim.



Selametle...............

 

[dEdE]

Merhaba,
Yukarıyuvarla için ROUNDUP,
Aşağıyuvarla için ROUNDDOWN kullanabilirsiniz. Yazım şekli aynen Round da olduğu gibidir.
Hoşçakalın.

 

[airborne]

s.a.

üstad

TextBox10.Value = RoundDown(Val(TextBox7.Value) / (10), 0)
yazıyorum.
Sub or function not defined hatası veriyor ve
RoundDown ın üstü mavi yapıyor . Bunu nasıl düzeltebilirz.

 

[dEdE]

Merhaba,
Aşağıdaki gibi dener misiniz?

TextBox10.Value = WorksheetFunction.RoundDown(Val(TextBox7.Value) / (10), 0)

 

[airborne]

S.A.

üstad Allah Razı olsun.

Selametle.........

 

[okanbay44]

birimfiyat = CDbl(TxtSutBirimFiyatRehabilitasyon)
garantimiktarbirimfiyati = birimfiyat * 55.95 / 100
TxtGarantiMiktarİcinBirimFiyatRehabilitasyon = Format(garantimiktarbirimfiyati, "#,##0.00000")

bu şekilde bir kodum var sondaki rakamı aşağı yuvarlamak istiyorum yardımcı olurmusunuz