الشافعي قام بنشر أبريل 16, 2014 مشاركة قام بنشر أبريل 16, 2014 في الملف يوضح المطلوب اريد ترحيل ومسح البيانات في الصف الذي يوجد به تطابق مع اسم الورقة و ترتيب البيانات المتبقية دون ترحيل وتاخد مكان البيانات المرحلة اذا كانت البيانات المرحلة قبل البيانات التي لا ترحل في الجدول الرئيسي اشكركم اخواني على المساعدة واخص بالشكر الاستاذ حمادة باشا المصنف1.rar رابط هذا التعليق شارك More sharing options...
الشافعي قام بنشر أبريل 16, 2014 الكاتب مشاركة قام بنشر أبريل 16, 2014 رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أبريل 16, 2014 مشاركة قام بنشر أبريل 16, 2014 (معدل) السلام عليكم يصبح الكود كما يلي Sub amir() Dim cl As Range, i As Integer, j As Integer, Last As Integer Application.ScreenUpdating = False For i = 2 To 4 For Each cl In Range("O2:O" & [O10000].End(xlUp).Row) If cl.Value = Sheets(i).Name Then cl.Offset(0, -13).Resize(1, 16).Cut Sheets(i).Range("B" & Sheets(i).[B10000].End(xlUp).Row + 1) End If Next Next Last = Cells(Rows.Count, "O").End(xlUp).Row For j = Last To 2 Step -1 If IsEmpty(Cells(j, "O")) Then Range(Cells(j, 1), Cells(j, 16)).Delete Shift:=xlUp Next Application.ScreenUpdating = True End Sub تم تعديل أبريل 16, 2014 بواسطه أبو حنين رابط هذا التعليق شارك More sharing options...
الشافعي قام بنشر أبريل 18, 2014 الكاتب مشاركة قام بنشر أبريل 18, 2014 شكرا استاذي الكريم ابو حنين الله يجعل مساعدتك للغير في ميزان حسنانك وان يوفقك رابط هذا التعليق شارك More sharing options...
rolex قام بنشر أبريل 22, 2014 مشاركة قام بنشر أبريل 22, 2014 اخي ابو حنين تحية لك موضوعي قريب الى حد ما من موضوع الاخ ...هل هناك طريقة مجدية لحل هذه المشكلة http://www.officena.net/ib/index.php?showtopic=53283 مع التحية رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.