السلام عليكم
كيف حالك يا باشمهندس يا جميل
بصراحة الكود روعة روعة روعة
بس فيه مشكلة صغيرة : لا أريد سوى حذف الكسور البسيطة التي لا تتعدى 5 قروش
فقمت بمحاولة التعديل على الكود لأحصل على المراد
والتعديل كالآتي ( وهذا لا يقلل أبداً أبداً أبداً .............. من مجهودك العظيم الذي أسأل الله العلي القدير أن يجعله في ميزان حساتك يوم القيامة )
آمين
Range("bd2").Select
For i = 1 To 7
x = ActiveCell.Offset(0, 2).Value * 2
T = Application.WorksheetFunction.RoundDown(x, 1)
y = (x - T) / 2
ActiveCell.Value = y
ActiveCell.Offset(1, 0).Select
Next i