حاله طارئة

[mahmoud hamza]

عندى ملف اكسيل واريد عند عمل فلتره يقوم بنسخ البيانات المفلتره فى  الأعمدة الملونه اصفر ولصقها فى صفحه اخرى بدايه من الصف الثانى لأن الصف الاول سأكتب به عناوين هذا الأعمده. وشكرا لأساتذتى الكبار  

كريدى.xlsx

[سليم حاصبيا]

كيف يمكن عمل فلترة لجدول فارغ 

من فضلك ادرج قليل من البيانات في الجدول (ولو كانت وهمية  من 20 الى 25 صف)للعمل عليه 

[mahmoud hamza]

On 3/25/2018 at 3:15 PM, سليم حاصبيا said:

كيف يمكن عمل فلترة لجدول فارغ 

من فضلك ادرج قليل من البيانات في الجدول (ولو كانت وهمية  من 20 الى 25 صف)للعمل عليه 

تفضل يا استاى العزيز واعتذاراتى الشديدة

كريدى.xlsx

[سليم حاصبيا]

جرب هذا الملف

الكود

Option Explicit

Sub copy_filter()
Application.ScreenUpdating = False
Dim My_rg As Range
Dim x%, i%, a(), k%: k = 1
Dim lr%: lr = Sheets("ALL LEGAL CA").Cells(Rows.Count, 1).End(3).Row

Set My_rg = Sheets("ALL LEGAL CA").Range("a1:AJ" & lr)
Sheets("salim").Range("a1").CurrentRegion.Resize(500).Clear

a = Array(2, 17, 22, 23, 27, 34, 36)
 For i = 0 To 6
My_rg.Columns(a(i)).SpecialCells(xlCellTypeVisible).Copy _
Sheets("Salim").Cells(1, k)
  k = k + 1
  Next
  Erase a
  Application.ScreenUpdating = True
End Sub

الملف مرفق

Kridy.xls

[mahmoud hamza]

On 3/28/2018 at 5:35 PM, سليم حاصبيا said:

جرب هذا الملف

الكود

Option Explicit

Sub copy_filter()
Application.ScreenUpdating = False
Dim My_rg As Range
Dim x%, i%, a(), k%: k = 1
Dim lr%: lr = Sheets("ALL LEGAL CA").Cells(Rows.Count, 1).End(3).Row

Set My_rg = Sheets("ALL LEGAL CA").Range("a1:AJ" & lr)
Sheets("salim").Range("a1").CurrentRegion.Resize(500).Clear

a = Array(2, 17, 22, 23, 27, 34, 36)
 For i = 0 To 6
My_rg.Columns(a(i)).SpecialCells(xlCellTypeVisible).Copy _
Sheets("Salim").Cells(1, k)
  k = k + 1
  Next
  Erase a
  Application.ScreenUpdating = True
End Sub

الملف مرفق

Kridy.xls

سيدى الفاضل كل الشكر لحضرتك ع هذا المجهود الرائع ولكن هل يمكن ان تكتب لي شرح مفصل لهذا الكود حتى اذا اردت ان اغير ارقام الاعمده المراد نسخها وكى اكون على درايه بما يفعله الكود لأنى جديد فى الأكواد.. وجزاك الله كل الخير وزياده فى العلم .

تم تعديل أبريل 4, 2018 بواسطه mahmoud hamza

[سليم حاصبيا]

كل ما عليك فعله هو التتغيير في هذين السطرين

4 ساعات مضت, mahmoud hamza said:

(a = Array(2, 17, 22, 23, 27, 34, 36 

For i = 0 To 6

الارقام هي ارقام الاعمدة المراد نسخها A=1,B=2,G=7 , وهكذا

الرقم 6 هو عدد العناصر في a  ناقص واحد

[mahmoud hamza]

On 4/4/2018 at 7:25 PM, سليم حاصبيا said:

كل ما عليك فعله هو التتغيير في هذين السطرين

الارقام هي ارقام الاعمدة المراد نسخها A=1,B=2,G=7 , وهكذا

الرقم 6 هو عدد العناصر في a  ناقص واحد

استاذى الفاضل هل يمكن عمل هذه العمليه لثلاثه ملفات اكسيل حيث اضغط على الزر اللى حضرتك عامله يظهرلي اعمده محدده من الثلاث ملفات .. لو يمكن هذا ارجو هذه المساعده منك  وتقبل وافر الاحترام والتقدير