ترحيل وفرز الاصناف المكررة لعمل كارتة صنف

[محمدحسني احمد]

الساد اعضاء المنتدى وعباقرة الاكسل ارجو منكم المساعدة

هل من الممكن ادارج كود يتم ترحيل  وفرز الاصناف المكررة عند كتابة كود الصنف لعمل كارتة صنف

 

 

مع العلم انة تم عمل المعادلات ولكن يوجد تقل شديد بالملف لان عدد الاصناف يتعدى 3000 صنف

شاكر حسن التعاون والخلق

حركة يومية1.rar

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

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

تم التعديل وتم تجريب الكود بعد عمل صفحة جديدة غير محمية

حيث لم اتمكن من التجربة فى المرات السابقة

اليك الكود

Sub TransKinds()
Dim ws As Worksheet, sh As Worksheet
Dim Arr As Variant, Temp As Variant
Dim i As Long, j As Long, p As Long
Dim Kname As String
Set ws = Sheets("حركة اليوميه")
Set sh = Sheets("كارت الصنف")
Kname = sh.Range("F2").Value
Application.ScreenUpdating = False
Arr = ws.Range("D5:O" & ws.Range("F" & Rows.Count).End(xlUp).Row).Value
ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2))
For i = 1 To UBound(Arr, 1)
If Arr(i, 3) = Kname Then
p = p + 1
For j = 1 To 10
Temp(p, j) = Arr(i, Choose(j, 1, 4, 3, 6, 7, 8, 9, 10, 11, 12))
Next
End If
Next

If p > 0 Then sh.Range("E5").Resize(p, UBound(Temp, 2)).Value = Temp
Application.ScreenUpdating = True
End Sub

 

[ياسر خليل أبو البراء]

بارك الله فيك أخي الغالي زيزو العجوز ..

كود رائع واستخدام أروع للدالة CHOOSE في تحديد الأعمدة المطلوب ترحيلها .. جزاك الله خير الجزاء على كل ما تقدمه لإخوانك 

تقبل وافر تقديري واحترامي

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

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

هذه شهادة من استاذى الكبير ذ / ياسر  و وسام على صدرى

بارك الله فيك

[خالد الرشيدى]

السلام عليكم 

حقيقه كود ولا اروع.. وليس بالجديد عليك ا.  زيزو فدائما اعمالك رائعه

ولكن اعتقد ان المستخدم يريد اظهار عمود اخر ضمن النتائج هو عمود الملاحظات لم يشمله الكود..  ايضا مسح محتوي نطاق النتيجه في بدايه الكود ليستقبل الجديد 

تقبلوا خالي تحياتي وتقديري 

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

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

شكرا لك استاذى العزيز / خالد

نصائحك دائما فى العقل والقلب

بارك الله فيك و فى جميع اساتذتنا الاجلاء

[محمدحسني احمد]

اسف جدااا لعدم التوصل لقطع الانترنت

استاذي الفاضل 1 /

زيزو العجوز

للاسف بعد تغير الكود لا يوجد اختلاف بل بالعكس انة تم الفرز علي جميع الاصناف كما موضح بالصورة

 

اسف جدااا لعدم التوصل لقطع الانترنت

استاذي الفاضل 1 /

زيزو العجوز

للاسف بعد تغير الكود لا يوجد اختلاف بل بالعكس انة تم الفرز علي جميع الاصناف كما موضح بالصورة

 

[خالد الرشيدى]

السلام عليكم

بعد اذن استاذي الحبيب / زيزو   .. اسمح لى ان اضع كود حضرتك بالمرفق 

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

انظر المرفق وابدي ملاحظاتك

حركة يومية1.rar

[محمدحسني احمد]

اشكرك يا ا خالد وجعلة الله في ميزان حسناتك

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

[خالد الرشيدى]

السلام عليكم

تفضل اخي الكريم عله المطلوب 

كما يفضل ان تلغي تنسيق format as table 

في صفحه كارت الصنف لانه الان مجرد نطاق لنسخ نتائج البحث من خلال الكود... 

حركة يومية.rar

تم تعديل مايو 27, 2017 بواسطه خالد الرشيدى

[محمدحسني احمد]

شكرااا جزيلا اخوانى الاعزاء     

جاري تجربة الملف شاكر حسن تعاونكم