اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تجميع بيانات شيتين فى شيت واحد مع الفرز حسب التاريخ


الردود الموصى بها

الساده الاساتذه الاجلاء

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

المطلوب عمل حساب اجمالى عملاء بحيث يتم ترحيل الدخول والخروج اسفل بعضها حسب التاريخ

بمعنى

مثلاً فى يوم 5/2/2013 العميل س قوم بالادخال ثم العميل ص قام بالسحب وتظهر هذه العمليات اسفل بعضها كما موضح بالمثال فى الملف

 

ونلاحظ ان عدد الصفوف كبير قد يصل إلى 4000 صف واستخدام معادلة الصفيف تجعل العمل بطئ جداً جداً

كما ان الملف الاصلى به فورم للادخال فى كلا الشيتين والمطلوب عند الادخال يتم الترحيل مباشرة لصفحة اجمالى العملاء

اجمالى عملاء.rar

تم تعديل بواسطه عادل ابوزيد
رابط هذا التعليق
شارك

الاستاذ الفاضل المحترم الباشمهندس طارق

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

طمعان فى كرم اخلاقك اذا سمحت لى

ممكن شرح الكود

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

استخلاص حركة عميل من شيت اجمالى عملاء.rar

رابط هذا التعليق
شارك

استاذى العزيز القدير المحترم الباشمهندس طارق

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

ممكن لو تكرمت حل للمشكلة فى المشاركة رقم 4

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

رابط هذا التعليق
شارك

السلام عليكم
أخي العزيز

 

تم إضافة أعمدة جديدة بجميع الانواع (3 أعمدة لكل ماركه)

لاحظ أنها مخفية، تستطيع إظهارها

 

الآن باختيار العميل فى الخانة J1 يتم الآتي

 

مسح البيانات القديمة  A4:G800 للعميل السابق

استدعاء بيانات العميل (عن طريق فلتر للصفحة المقصوده)
من شيت دخول جبنة ثلاجة بما فيها خانة الملاحظات

 

وكذلك من شيت خروج ثلاجة بما فيها خانة الملاحظات

ثم ترتيب البيانات كلها  حسب التاريخ

تضبيط  المعادلة في العمود F

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

يتم بالكود إخفاء أوتوماتيكي لأعمدة الماركات التي ليس بها بيانات


لم أفهم ماالذي تريد اضافته فى اجمالى العملاء

تفضل المرفق

 

ادخال شيت دخول مع شيت خروج لعمل شيت اجمالى عملاء3.rar

  • Like 2
رابط هذا التعليق
شارك

ماشاء الله عليك أستاذى ومعلمى ومهندس منتدانا الرائع ( طارق )

أعمال حضرتك فى منتهى الذكاء والعبقرية بجد ، لاأجد من الكلمات ماقد يعادل قيمتك الحقيقية

بارك الله فى حضرتك

لايسعنى سوى الدعاء لحضرتك بالتوفيق الدائم والتميز

تقبل تحيات : تلميذك

                                                 hO2Qs.gif

رابط هذا التعليق
شارك

السلام عليكم

أخي العزيز الغالي / جمال 
 

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

رابط هذا التعليق
شارك

استاذى العزيز القدير الغالى الباشمهندس طارق

والله كل اعمالك ابداع بالنسبة لى ما شاء الله عليك والمعادلة قمه فى الابداع والابتكار والفن

ربنا يزيدك علم ويجعله لك نور فى دنياك واخرتك

المقصود هو ترحيل خانة الملاحظات ايضا مع ترحيل البيانات فى شيت اجمالى العملاء

ممكن تصحح معلوماتى

بإضافة أعمدة جديدة بجميع الانواع (3 أعمدة لكل ماركه ) معنى كده عند التعامل مع ماركة جديده لابد من اضافة ثلاث اعمدة لها وتعديل الكود ليشمل هذه الماركة

مع العلم : ان الملف بالمشاركة الاولى به كود للاستاذ الفاضل المحترم / رجب جاويش يقوم باستدعاء الماركات التى يتعامل معها العميل فقط من خلال اذون الادخال

كما ان اقصى عدد ماركات ممكن ان يتعامل معه العميل الواحد 25 ماركة

فهل يمكن الاستفاده من هذه المعلومات

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

رابط هذا التعليق
شارك

السلام عليكم

 

 
بالنسبة لترحيل خانة الملاحظات ايضا مع ترحيل البيانات فى شيت اجمالى العملاء ، تفضل المطلوب في المرفق

ممكن تصحح معلوماتى
بإضافة أعمدة جديدة بجميع الانواع (3 أعمدة لكل ماركه ) معنى كده عند التعامل مع ماركة جديده لابد من اضافة ثلاث اعمدة لها وتعديل الكود ليشمل هذه الماركة

 

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

 

إنتبهت ان الملف به كود لأخي الحبيب الغالي / رجب جاويش لكن لاتعارض بين الأكواد

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

 

لن تهمنا في حالة أنني أضفت كافة الأنواع لجميع العملاء

فقط يتعين ألا يزيد إجمالي عدد كافة الأنواع لجميع العملاء عن 82 حيث أن صيغة xls التي تستخدمها محدودة في عدد الأعمدة
أما إذا كان لديك أوفيس 2007 أو مافوقه فيمكنك زيادة عدد الأنواع 

 

ادخال شيت دخول مع شيت خروج لعمل شيت اجمالى عملاء4.rar

رابط هذا التعليق
شارك

استاذى العزيز القدير المحترم الباشمهندس طارق

مش عارف اقولك ايه اعمالك كلها قمة فى الروعه ولمساتك كلها ابداع

ما شاء الله عليك

جزاك الله كل خير وجعله فى ميزان حسناتك هداك الصراط المستقيم وفك كربك فى الدنيا والاخرة اللهم امين

رابط هذا التعليق
شارك

  • 3 weeks later...

الباشهندس المحترم استاذى الفاضل طارق

اجد اختلاف فى البيانات عن اضافتى لعمودين فى شيت ثلاجة حساب العملاء صفيح وكذلك فى شيت اجمالى عملاء

كما اجد ان الكود يعمل ببطء عن كثرة البيانات

مرفق الملف

تقبل تحياتى وشكرى ودعاء بالصحة والستر والبركة فى الرزق والاهل والعمر

اضافة عمودين.rar

رابط هذا التعليق
شارك

السلام عليكم
تفضل المرفق

 

وهذا هو الكود بعد النعديل

 

Sub tarek()
LR = [B9999].End(xlUp).Row
If LR < 4 Then LR = 4
    Range("B" & LR & ":G4").ClearContents
    Range("I4:K" & LR).ClearContents
    With Sheets("خروج ثلاجة")
        LR = .[B9999].End(xlUp).Row
        .Range("B4:F" & LR).Copy
        [B4].PasteSpecial Paste:=xlPasteValues
    
        .Range("G4:H" & LR).Copy
        [I4].PasteSpecial Paste:=xlPasteValues
    
        .Range("Q4:Q" & LR).Copy
        [K4].PasteSpecial Paste:=xlPasteValues
    End With
    
    With Range([F9999].End(xlUp), [F4])
        .Copy [G4]
        .ClearContents
    End With
    
    nnLR = [B9999].End(xlUp).Row + 1
        
    With Sheets("دخول جبنة ثلاجة")
        LR = .[B9999].End(xlUp).Row
        .Range("B4:F" & LR).Copy
        Cells(nnLR, 2).PasteSpecial Paste:=xlPasteValues
    
        .Range("G4:G" & LR).Copy
        Cells(nnLR, "I").PasteSpecial Paste:=xlPasteValues
                
        .Range("L4:L" & LR).Copy
        Cells(nnLR, "K").PasteSpecial Paste:=xlPasteValues
    End With
    
    LR = [B9999].End(xlUp).Row
    Range("B3:K" & LR).Select
    Range("C3").Activate
    Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1
[b2].Select
End Sub

 

اضافة عمودين.rar

رابط هذا التعليق
شارك

استاذى الفاضل المحترم الباشمهندس طارق

والله مش عارف اقولك ايه

ربنا يبارك لك فى صحتك وعلمك ويزيدك من فضله ونعمه ويوسعها عليك

استفسار بعد تجربة الملف تبين ان بيانات العمودين فى شيت اجمالى العملاء ( المرحل اليه ) لا تتفق مع البيانات المرحل منها ( خروج ثلاجه ) وستلاحظ الاختلاف بمقارنة اخر عملية المستلم فيها مطاوع والماركة انجى بعدد 2 .. فى شيت اجمالى عملاء المرحل اليه غير موجود مطاوع

ويبقى المطلوب الثانى وهو اضافة نفس العمودين فى شيت ( ثلاجة حساب العملاء صفيح ) حيث عندما حاولت اضافتهم البيانات الخاصه بهما لم تاتى بما يتفق مع بعضها ايضاً وللتوضيح تم تظليلهما باللون الاصفر

كما ان بعد ادراج كود الاستاذ المحترم رجب جاويش اصبح كود جلب البيانات اصبح بطئ مش عارف ليه

تقبل تحياتى واحترامى لشخصكم الكريم

اضافة عمودين_فى شيت ثلاجةحساب العملاء صفيح.rar

تم تعديل بواسطه عادل ابوزيد
رابط هذا التعليق
شارك

السلام عليكم
أخي عادل

المطلوب :

اضافة ترحيل بيانات العمودين نوع التبريد والمستلم من شيت خروج ثلاجة

بعد تجربة الملف تبين ان بيانات العمودين فى شيت اجمالى العملاء ( المرحل اليه ) لا تتفق مع البيانات المرحل منها ( خروج ثلاجه ) وستلاحظ الاختلاف بمقارنة اخر عملية المستلم فيها مطاوع والماركة انجى بعدد 2 .. فى شيت اجمالى عملاء المرحل اليه غير موجود مطاوع

هذا غير صحيح 

لعلك لم تنتبه أن في آخر الكود فقرة مسؤولة عن إعادة ترتيب البيانات حسب التاريخ - إن كنت لاتريد ذلك إلغيها
نتيجة لهذا تم ترتيب النتائج حسب التاريخ فأصبح البيان موجود بالسطر 1104 من شيت اجمالى العملاء

>>> لاحظ أن في نهاية الجدول تبين أن بعض التواريخ تم ادخالها بطريقة خاطئة السطرين  1377 و  1378


 

المطلوب الثانى وهو اضافة نفس العمودين فى شيت ( ثلاجة حساب العملاء صفيح ) حيث عندما حاولت اضافتهم البيانات الخاصه بهما لم تاتى بما يتفق مع بعضها ايضاً وللتوضيح تم تظليلهما باللون الاصفر

لأنك لغيت الكود (والذي أخذ مني وقت) ، أقصد الكود اللي في المشاركة 7
بصراحة ليس عندي وقت آخر أعذرني

 

 

بعد ادراج كود الاستاذ المحترم رجب جاويش اصبح كود جلب البيانات اصبح بطئ مش عارف ليه

لأن الكود يعمل أوتوماتيكيا في حدث تنشيط الورقة ، يعمل عند  كل مرة تدخل فيها إلي الورقة

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information