مساعدة ترحيل حسب نو ع الورقة

[الشافعي]

في الملف يوضح المطلوب

 

اريد ترحيل ومسح البيانات في الصف الذي يوجد به تطابق  مع اسم الورقة 

 

و ترتيب البيانات المتبقية دون ترحيل وتاخد مكان البيانات المرحلة اذا كانت البيانات المرحلة قبل البيانات التي لا ترحل في  الجدول الرئيسي

 

 

اشكركم اخواني على المساعدة 

واخص بالشكر الاستاذ حمادة باشا

المصنف1.rar

[الشافعي]

 

 

 

 

 

[أبو حنــــين]

السلام عليكم

يصبح الكود كما يلي

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 بواسطه أبو حنين

[الشافعي]

شكرا استاذي الكريم ابو حنين

 

الله يجعل مساعدتك للغير في ميزان حسنانك وان يوفقك 

[rolex]

اخي ابو حنين تحية لك 

موضوعي قريب الى حد ما من موضوع الاخ ...هل هناك طريقة مجدية لحل هذه المشكلة http://www.officena.net/ib/index.php?showtopic=53283

 

مع التحية