En Yakın Çift Sayıya Yuvarlama

[oguzka]

Merhaba,

Makro içerisinde b değişkenine hesaplamalar sonucunda bir sayı değeri atanıyor. Örneğin b=12.56 Kod ile bu sayıyı en yakın bir üst çift sayıya yuvarlamak istiyorum. Yani b=14 yapmalı. Yardımcı olabilirmisiniz?

 

[halit3]

bunu denermisiniz.

b = Cells(1, 1).Value
Cells(1, 2).Value = WorksheetFunction.Even(b)

 

[oguzka]

Teşekkür ederim Halit Bey.

 

[halit3]

Teşekkür ederim Halit Bey.

iyi çalışmalar