MRound

[nunikmakarios]

MERHABA

Aşağıdaki gibi bir komutum var, komut Round şeklindeyken çalışıyor ama aşağı yuvarlaması için MROUD yazdığımda "Sub or Fuction not define" hatası veriyor. Yardımlarınızı rica ederim.

kp = MRound(tt / Cells(1, x))

 

[Korhan Ayhan]

Deneyiniz.

kp = WorksheetFunction.MRound(tt / Cells(1, x), 2)

 

[nunikmakarios]

Denedim ama hata vermeye devam ediyor

Tam kod du

Sub Düğme1_Tıkla()
'


For i = 2 To 3

tt = Cells(i, 1)

For x = 2 To 12
kp = WorksheetFunction.MRound(tt / Cells(1, x), 2)

Cells(i, x) = kp

tt = tt - (kp * Cells(1, x))


Next x

Next i


End Sub

 

[Korhan Ayhan]

Fonksiyon içine sayısal değerler girerek çalıştığını test edebilirsiniz.

Sizdeki değerleri göremediğimiz için çok fazla yorum yapamıyorum.

 

[nunikmakarios]

Fonksiyon içine sayısal değerler girerek çalıştığını test edebilirsiniz.

Sizdeki değerleri göremediğimiz için çok fazla yorum yapamıyorum.

Çok teşekkür ederim, evet sayısal değerle çalışıyor ama sayfadan değer aldığında aşağı yuvarla çalışmıyor. Acaba ayarlarda mı hata yapıyorum

 

[Korhan Ayhan]

Sizdeki değerlerden kastım buydu. Belki de aldığınız değerler SAYI değildir.

 

[nunikmakarios]

Sizdeki değerlerden kastım buydu. Belki de aldığınız değerler SAYI değildir.

sayı olmasa Round komutu da çalışmaz ama round çalışıyor

 

[Korhan Ayhan]

Bu arada siz ilk mesajınızda aşağı yuvarla ifadesini kullanmışsınız.

Fonksiyonların karşılıkları;

MROUND = KYUVARLA
ROUND = YUVARLA
ROUNDUP = YUKARIYUVARLA
ROUNDDOWN = AŞAĞIYUVARLA

 

[nunikmakarios]

Bu arada siz ilk mesajınızda aşağı yuvarla ifadesini kullanmışsınız.

Fonksiyonların karşılıkları;

MROUND = KYUVARLA
ROUND = YUVARLA
ROUNDUP = YUKARIYUVARLA
ROUNDDOWN = AŞAĞIYUVARLA

Teşekkürler ama komut yazdığımda çalışmadılar

 

[Korhan Ayhan]

Böyle sonuca varamayız...

Lütfen örnek dosya paylaşınız.