طلب صغير ( تعديل في كود ترحيل )

[محمد_عبد_الوهاب]

السلام عليكم

طلب صغير ( تعديل في كود ترحيل )

الطلب صغير عليكم خبراؤنا ولكنه كبير علي

الكود المرفق اقوم بالترحيل به عند الضغط علي زر ترحيل الموجود بالورقة الاولي فيقوم بالترحيل حسب الشروط الموجودة

في الكود ولكن الطلب

هو انه بعد الكود وبعد التنفيذ يقوم الكود بعمل التصفية التلقائية للعمود 3 ، 6 عند العودة لصفحة البيانات لا يظهر كل الصفوف ولكن يظهر الصفوف المتحقق

بها الشرط فقط ولا تظهر كل الصفوف الا اذا قمت باختيار الكل من زر التصفية التقائية

لكل من العمود رقم 3 ، 6

.... ولكني اريد انه بعد انتهاء عمل الكود والعودة لصفحة البيانات ان تظهر كل الصفوف مرة اخري بعد الترحيل

فهل يمكن اضافة جزء للكود لعمل ذلك واظهار كل الصفوف بعد الترحيل .... اكيد معكم اكيد .. اكيد .. ان شاء الله

جزاكم الله خيراً

وهذا هو الكود ومرفق ملف بالمشاركة للتوضيح

Sub ترحيل1()

'

' ترحيل

' الماكرو مسجل HAMADA OMAR 'Elgokar خلود

Sheets("Sheet1").Select

Range("C13").Select

Selection.AutoFilter Field:=3, Criteria1:="1"

Selection.AutoFilter Field:=6, Criteria1:="اساسي"


Range("A13:G10000").Select

Selection.Copy

Sheets("Sheet2").Select

Range("A1").Select

ActiveSheet.Paste


Sheets("Sheet1").Select

Selection.AutoFilter Field:=1

Application.CutCopyMode = False

' ترحيل

' الماكرو مسجل HAMADA OMAR 'Elgokar خلود

Sheets("Sheet1").Select

Range("C13").Select

Selection.AutoFilter Field:=3, Criteria1:="1"

Selection.AutoFilter Field:=6, Criteria1:="اضافي"


Range("A13:G10000").Select

Selection.Copy

Sheets("Sheet2").Select

Range("i1").Select

ActiveSheet.Paste


Sheets("Sheet1").Select

Selection.AutoFilter Field:=1

Application.CutCopyMode = False



Sheets("1").Select

ActiveWorkbook.Save

UserForm1.Show

End Sub

كود ترحيل بعد التصفية.rar

تم تعديل يونيو 27, 2012 بواسطه m_abdelwahabomar

[محمد_عبد_الوهاب]

السلام عليكم

برجاء اعتبار الطلب هام وعاجل

جزاكم الله خيرا

[MAHMOUD ALI YOUSSEF]

السلام عليكم

جرب المرفق

وان شاء الله يكون المطلوب

كود ترحيل بعد التصفية mahmoud fox.rar

[محمد_عبد_الوهاب]

الاستاذ القدير

الف الف شكر .. كود راااااااااااااااااااااائع

وجاريس تنفيذه علي الملف الاصلي ... وسأبلغك بالنتيجة .. ان شاء الله

جزاك الله خير