يوجد ورقة مخفية "ورقة3" بالملف يأخذ منها الكود النسخة حسب السطر المشار إليه فيما يلي
…
…
…
' ترحيل المواد
n1 = Sheet1.[B5].End(xlToRight).Column - 2
For x = 1 To n1
c = 1 + x * 2
Sheet3.Columns("A:B").Copy Cells(1, c) 'هذا السطر المقصود
Cells(5, c).FormulaR1C1 = "=ورقة1!RC[-" & x - 1 & "]"
Cells(9, c).FormulaR1C1 = "=ورقة1!R[-3]C[-" & Int((c - 2) / 2) & "]"
Cells(9, c + 1).FormulaR1C1 = "=R6C[-1]*RC[-1]"
Next
…
…
…
يمكنك إظهارهذه الورقة وغير النسب كما تريد ثم اخفيها مرة أخري