ارغب في نقل بيانات أعمدة من شيت الى اخر بالماكررو مع عدم نقل بيانات رقم الموديل المتكرر

[معتز ابو العزايم]

 لو تكرمتم في الشيت بتاعي ده .. عايز انقل بيانات عمودين(الموديل + المصنع ) من شيت (المورد) الى شيت ( المخزون) بالماكرو مع عدم نقل البيانات المتكررة لعمود (الموديل)  ومن غير زر او مفتاح ..2 نموزج مخازن معتز.rarمع خالص الشكر

[أ / محمد صالح]

ملفك رائع وبسيط أحييك على هذا العمل

تكمن مشكلة بطء الملف في اعتمادك على معادلات المصفوفات بكثرة واستعمالها في عدد كبير من الصفوف 15000 صف

لذلك

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

وعليه

لقد قمت بإضافة عمود M في شيت الوارد وبه معادلة الموديل بدون تكرار (يمكن إخفاء هذا العمود) وسحبتها إلى 20 صفا فقط وإذا زادت أعداد الموديلات يمكن سحب المعادلة لأسفل أي عدد من الصفوف ولكن بدون زيادة عن الحاجة

ثم قمت بجلب القيم الموجودة في هذا العمود في شيت المخازن والتسعير بمعادلة خفيفة جدا وتم سحب معادلات سيت المخزون والتسعير إلى 1000 صف فقط حيث أنه من غير المنطقي التعامل مع أكثر من 1000 صنف وإذا احتجت زيادة يمكن سحب المعادلات إلى أي عدد من السفوف

بالتوفيق

2 نموزج مخازن معتز.xlsb

[معتز ابو العزايم]

جزاكم الله خيرا استاذي، وزقك الله التوفيق ويسر لك كل احوالك.. لكني كنت اريد أن يتم نقل بيانات نقل الموديل بالمكرو وذلك لأن الشركة بها موديلات للمنتجات كثيرة جدا ما يقارب من 10 الاف موديل .. مع خالص تحياتي لكم بالشكر والعرفان ❤️ 

 

[أ / محمد صالح]

ملفك بعد التعديل السابق يعمل بكفاءة عالية حتى وإن وصلت الموديلات إلى 15000

ولكن هذا كود نسخ القيم الفريدة

Sub mas_copyUnique()
Sheets("الوارد").Range("D2:D15000").AdvancedFilter 2, , Sheets("المخزون").Range("B2"), 1
MsgBox "Done"
End Sub

للعلم ستحتاج إلى تنفيذ الكود بعد كل إضافة لموديل جديد فريد

وهذه ميزة المعادلات عن الأكواد

بالتوفيق

[معتز ابو العزايم]

متشكر خالص لحضرتك وربنا يرضى عنك يارب وكل عام وحضرتك بخير<3  

 

[معتز ابو العزايم]

 السلام عليكم، ، بعد التحية ، اتقدم بخالص الشكر لكل من يساهم ويقدم كل مابوسعه لإفادة المجتمع.،

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

مخازن ثابت 2021.xlsx

[أ / محمد صالح]

أعتقد أن هذا المطلوب تمت الإجابة عليه مرتين (بالمعادلات وبالكود) قبل ذلك

[معتز ابو العزايم]

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