اخوي تامر من يوم حملت الملف الاخير الذي ساعدتني فيه الله يوفقك وانا منحاس في جملتين في الكود
Cells(4, x) = Sheets("æÑÞÉ3").Cells(MyRow + 7, x)
Cells(4, x) = .Cells(MyRow - 7, x)
رقم 7 وضعته كيف وماذا تعني my row
واسف لا اكون ثقلت عليك لان الرد ليس واجبا عليكم ولكن تطوعتوا للرد علينا فالله يكتب لكم الاجر