نجوم المشاركات

السلام عليكم اخي وجود value لا يضر هنا لا نها افتراضية فسواءً كتبت ام لا فسيتم ارجاع القيمة ============================================================ اخي الازاحة هنا تعتمد عللى الخلية المعرفة في حلقة التكرار والتي تم الرمز لها ب (Cl) ويقصد بها هنا خلايا عمود (F) في ورقة العمل ============================================================= تعتمد على العمود المرحل اليه والاصح في ملفك المرفق تكون Range("a" & [A1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues ====================================================== القيمة 1000 هي عدد الصفوف المراد ارجاع اخر خلية بها بيانات منها وكلما كان الترحيل مستمر كلما كان الرقم اكبر لمرونة الكود ======================================================== الفكرة موجودة في هذا السطر Range("B" & [E1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues وبالذات في +1 لانها تعني السطر الذي يلي اخر خلية بها بيانات في العمود المستهدف ========= والله اعلم

السلام عليكم و رحمة الله وبركاته اخي رعد اتمنى ان يكون اخي تميم قد اعطاك الفائدة التي ترجوها اخي ناصر اشكرك على مرورك الكريم اخواني رعدو ابو تميم وناصر - جزاكم الله كل خير

السلام عليكم تفضل أخي الملف المرفق به الكود مشروح ولو أردت زيادة في الشرح فلاتتردد شرح الكود2.rar