كيف لي ان انسخ خلايا محددة من جدول ما واترك الفارغ او الذي فيمته صفر

[خالد الشيخ]

السلام عليكم ..اريد كود او دوال بمجرد ان اضغط على كلمة نسخ للجدول على اليمين من اول صف 2 لصف 73
ان يتم نسخ فقط الخلايا المليئة ببيانات بدلا من الصفر ..لتكون في النهاية مثل الجدول اللي على اليسار ..وبنفس الترتيب والفرز
اي في حالة وجود بيانات في عمود C وعمود F وعمود G  يتم نسخ هذه البياانات مع الاعمدة   B  و D  و E  

Ques.xlsx

[ابراهيم الحداد]

السلام عليكم و رحمة الله  ..استخدم هذا الكود

Sub NoZiro()
Dim ws As Worksheet, Lr As Long, p As Long, j As Long
Dim Arr As Variant, Temp As Variant, i As Long
Set ws = Sheets("ورقة1")
Lr = ws.Range("B" & Rows.Count).End(3).Row
Arr = ws.Range("B2:G" & Lr).Value
ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
For i = 1 To UBound(Arr, 1)
If Arr(i, 5) <> 0 And Arr(i, 5) <> "" Then
p = p + 1
For j = 1 To 6
Temp(p, j) = Arr(i, j)
Next
End If
Next
If p > 0 Then ws.Range("O2").Resize(p, UBound(Temp, 2)).Value = Temp
End Sub

 

[خالد الشيخ]

بارك الله فيك ..لو سمحت استاذي انا اريد ان اضغط على زر النسخ  ( الكود  ) واذهب بنفسي الى الجدول في اي مكان اريد واعمل فقط لصق
كيف ذلك تكمله لما قمت به
يعني انا اريد فرز الجدول كما عملت بالضبط  اريد بعدها عمل نسخ ويظل النسخ في الحافظة لحين اختيار المسار والضغط على لصق
عذرا لو كان البوست الاول لم يوضح هذا الطلب ..ولكن انا اريد كما ذكرت
اضغط على زر النسخ  فقط وهو يقوم بالفرز كما فعلت بالضبط  ،، ولكن لا يلصق مباشرة  بل انا احدد الجدول في اي ملف كان واعمل اللصق

[ابراهيم الحداد]

السلام عليكم و رحمة الله

الكود يعمل على نفس الملف و لا يصلح لملف خارجى

اذا اردت عملية اللصق فى مكان آخر فقم باستبدال هذه العبارة  :

If p > 0 Then ws.Range("O2").Resize(p, UBound(Temp, 2)).Value = Temp

بهذه العبارة  :

If p > 0 Then ActiveCell.Resize(p, UBound(Temp, 2)).Value = Temp

 

[خالد الشيخ]

بارك الله فيك 

ولكن نفس المشكلة بالنسبة لدي استاذي الفاضل

انا اريد ان اقوم بالنسخ اوتوماتيك والصق في اي مكان اريد  وليس لصق اوتوماتيك    تماما مثل  النسخ واللصق ولكن الزيادة هي الفرز والترتيب كما تفضلت بهذا الحل الرائع

[ابراهيم الحداد]

السلام عليكم و رحمة الله

سواء باستخدام المصفوفات كما تم فى مشاركتى السابقة

او باستخدام الفلترة و النسخ لا بد فى الحالتين من تحديد مكان الترحيل او اللصق داخل الكود

اما استخدام كلمة ActiveCell  فانه يمكنك من ان تذهب الى اى ورقة فى الملف ثم تقوم بتنشيط او تحديد اول خلية تريد 

الترحيل ثم تضغط على الكود سيتم تنفيذ المطلوب كما اشرت و طلبت فى مشاركتك الاولى

هذا و الله اعلى و اعلم  ..   و الله ولى التوفيق

      

 

[خالد الشيخ]

وعليكم السلام ورحمة الله وبركاته  ..اخي الفاضل انا جربت الحلين واكثر من رائع طبعا 
ولكن كما وضحت ربما لم اوصل لكم طلبي بصورة واضحة وهذا خطأ من عندي بعتذر عنه
الفكرة اني اريد ان اعمل نسخ والصق في مكان اخر ويحتفظ النسخ لحين لصقه في ملف اخر مرتب كما فعلت بالضبط
هل ممكن اعمل على مرتين  يعني مرة كود الذي قمت به ، ومرة اخرى للنسخ لما هو ناتج في الجدول فقط دون زيادات

انا اريد ان اضغط على الكود ولا يقوم بعمل الفرز مباشرة في خلايا محددة
بل يقوم بعمل فرز ثم نسخ اوتوماتيك حتى اقوم انا وفي اي ملف اخر بعمل اللصق مباشرة