عادل ابوزيد قام بنشر فبراير 15, 2014 قام بنشر فبراير 15, 2014 (معدل) الساده الاساتذه الاجلاء فى هذا الموضوع يوجد شيتين الاول يحمل اسم دخول جبنة ثلاجة ويمثل اذون دخول بضاعة عبارة عن صفيح للجبنة ثلاجة حيث كل عميل يقوم بادخال كمية من الصفيح والاخر باسم خروج ثلاجة ويمثل اذون خروج بضاعة حيث كل عميل يقوم بسحب كمياته من الصفيح حسب رغبته وفى التواريخ التى يحددها كما باذن الخروج المطلوب عمل حساب اجمالى عملاء بحيث يتم ترحيل الدخول والخروج اسفل بعضها حسب التاريخ بمعنى مثلاً فى يوم 5/2/2013 العميل س قوم بالادخال ثم العميل ص قام بالسحب وتظهر هذه العمليات اسفل بعضها كما موضح بالمثال فى الملف ونلاحظ ان عدد الصفوف كبير قد يصل إلى 4000 صف واستخدام معادلة الصفيف تجعل العمل بطئ جداً جداً كما ان الملف الاصلى به فورم للادخال فى كلا الشيتين والمطلوب عند الادخال يتم الترحيل مباشرة لصفحة اجمالى العملاء اجمالى عملاء.rar تم تعديل فبراير 15, 2014 بواسطه عادل ابوزيد
طارق محمود قام بنشر فبراير 17, 2014 قام بنشر فبراير 17, 2014 السلام عليكم تفضل المرفق ادخال شيت دخول مع شيت خروج لعمل شيت اجمالى عملاء2.rar 3
عادل ابوزيد قام بنشر فبراير 17, 2014 الكاتب قام بنشر فبراير 17, 2014 الاستاذ الفاضل المحترم الباشمهندس طارق والله يعجز لسانى عن شكرك .. ربنا يجعله فى ميزان حسناتك وينفعك به فى الدنيا والاخرة ويدي لك بصيرتك طمعان فى كرم اخلاقك اذا سمحت لى ممكن شرح الكود ولو امكن محتاج استخلاص حركة عميل فى شيت حساب العملاء ومرفق ملف يوضح المطلوب مع شرحه استخلاص حركة عميل من شيت اجمالى عملاء.rar
طارق محمود قام بنشر فبراير 18, 2014 قام بنشر فبراير 18, 2014 السلام عليكم شرح الكود في الصورة المرفقة 1
عادل ابوزيد قام بنشر فبراير 18, 2014 الكاتب قام بنشر فبراير 18, 2014 استاذى العزيز القدير المحترم الباشمهندس طارق من اعماق قلبى ادعو لك بالصحة والستر والعافية والبركة الرزق الصحة والعمر ممكن لو تكرمت حل للمشكلة فى المشاركة رقم 4 لك منى لك الحب والتقدير والعرفان
طارق محمود قام بنشر فبراير 18, 2014 قام بنشر فبراير 18, 2014 السلام عليكمأخي العزيز تم إضافة أعمدة جديدة بجميع الانواع (3 أعمدة لكل ماركه) لاحظ أنها مخفية، تستطيع إظهارها الآن باختيار العميل فى الخانة J1 يتم الآتي •مسح البيانات القديمة A4:G800 للعميل السابق •استدعاء بيانات العميل (عن طريق فلتر للصفحة المقصوده)من شيت دخول جبنة ثلاجة بما فيها خانة الملاحظات وكذلك من شيت خروج ثلاجة بما فيها خانة الملاحظات •ثم ترتيب البيانات كلها حسب التاريخ •تضبيط المعادلة في العمود F •يتم (بالمعادلات) نقل الكمبات لأعمدة الماركة الخاصة بها فى اى من الخانتين دخول او خروج •يتم بالكود إخفاء أوتوماتيكي لأعمدة الماركات التي ليس بها بيانات لم أفهم ماالذي تريد اضافته فى اجمالى العملاء تفضل المرفق ادخال شيت دخول مع شيت خروج لعمل شيت اجمالى عملاء3.rar 2
جمال عبد السميع قام بنشر فبراير 18, 2014 قام بنشر فبراير 18, 2014 ماشاء الله عليك أستاذى ومعلمى ومهندس منتدانا الرائع ( طارق ) أعمال حضرتك فى منتهى الذكاء والعبقرية بجد ، لاأجد من الكلمات ماقد يعادل قيمتك الحقيقية بارك الله فى حضرتك لايسعنى سوى الدعاء لحضرتك بالتوفيق الدائم والتميز تقبل تحيات : تلميذك
طارق محمود قام بنشر فبراير 18, 2014 قام بنشر فبراير 18, 2014 السلام عليكم أخي العزيز الغالي / جمال مرورك وتعليقك شرف عظيم جزاك الله خيرا وجعلني عند حسن ظنكم دائما وأعذروني علي التقصير معكم جميعا لضيق الوقت وانشغالي
عادل ابوزيد قام بنشر فبراير 18, 2014 الكاتب قام بنشر فبراير 18, 2014 استاذى العزيز القدير الغالى الباشمهندس طارق والله كل اعمالك ابداع بالنسبة لى ما شاء الله عليك والمعادلة قمه فى الابداع والابتكار والفن ربنا يزيدك علم ويجعله لك نور فى دنياك واخرتك المقصود هو ترحيل خانة الملاحظات ايضا مع ترحيل البيانات فى شيت اجمالى العملاء ممكن تصحح معلوماتى بإضافة أعمدة جديدة بجميع الانواع (3 أعمدة لكل ماركه ) معنى كده عند التعامل مع ماركة جديده لابد من اضافة ثلاث اعمدة لها وتعديل الكود ليشمل هذه الماركة مع العلم : ان الملف بالمشاركة الاولى به كود للاستاذ الفاضل المحترم / رجب جاويش يقوم باستدعاء الماركات التى يتعامل معها العميل فقط من خلال اذون الادخال كما ان اقصى عدد ماركات ممكن ان يتعامل معه العميل الواحد 25 ماركة فهل يمكن الاستفاده من هذه المعلومات تقبل منى كل الحب والتقدير والاحترام
طارق محمود قام بنشر فبراير 19, 2014 قام بنشر فبراير 19, 2014 السلام عليكم بالنسبة لترحيل خانة الملاحظات ايضا مع ترحيل البيانات فى شيت اجمالى العملاء ، تفضل المطلوب في المرفق ممكن تصحح معلوماتى بإضافة أعمدة جديدة بجميع الانواع (3 أعمدة لكل ماركه ) معنى كده عند التعامل مع ماركة جديده لابد من اضافة ثلاث اعمدة لها وتعديل الكود ليشمل هذه الماركة نعم : عند التعامل مع ماركة جديده لابد من اضافة ثلاث اعمدة لها عن طريق نسخ أي ثلاث أعمدة بمعادلاتهم من الموجود ، ثم تغيير إسم الماركة فقط ولايلزم أي تعديل للكود ، حيث جزء الأعمدة بالمعادلات فقط ولكن لابد من نفس الشكل أي أن الماركة تكون مكتوبة في السطر الثاني ويتم نسخ المعادلات المكتوبة بالفونط الأبيض في السطر الأول تلقائيا مع النسخ وكذلك معادلات الخلايا داخل الأعمدة ، بلاتغيير ، فقط إنسخ الأعمدة من صنف سابق إنتبهت ان الملف به كود لأخي الحبيب الغالي / رجب جاويش لكن لاتعارض بين الأكواد كما ان اقصى عدد ماركات ممكن ان يتعامل معه العميل الواحد 25 ماركة فهل يمكن الاستفاده من هذه المعلومات لن تهمنا في حالة أنني أضفت كافة الأنواع لجميع العملاء فقط يتعين ألا يزيد إجمالي عدد كافة الأنواع لجميع العملاء عن 82 حيث أن صيغة xls التي تستخدمها محدودة في عدد الأعمدة أما إذا كان لديك أوفيس 2007 أو مافوقه فيمكنك زيادة عدد الأنواع ادخال شيت دخول مع شيت خروج لعمل شيت اجمالى عملاء4.rar
عادل ابوزيد قام بنشر فبراير 19, 2014 الكاتب قام بنشر فبراير 19, 2014 استاذى العزيز القدير المحترم الباشمهندس طارق مش عارف اقولك ايه اعمالك كلها قمة فى الروعه ولمساتك كلها ابداع ما شاء الله عليك جزاك الله كل خير وجعله فى ميزان حسناتك هداك الصراط المستقيم وفك كربك فى الدنيا والاخرة اللهم امين
طارق محمود قام بنشر فبراير 19, 2014 قام بنشر فبراير 19, 2014 جزاك الله خيرا ولك مثل مادعوت وأكثر إن شاء الله
عادل ابوزيد قام بنشر مارس 7, 2014 الكاتب قام بنشر مارس 7, 2014 الباشهندس المحترم استاذى الفاضل طارق اجد اختلاف فى البيانات عن اضافتى لعمودين فى شيت ثلاجة حساب العملاء صفيح وكذلك فى شيت اجمالى عملاء كما اجد ان الكود يعمل ببطء عن كثرة البيانات مرفق الملف تقبل تحياتى وشكرى ودعاء بالصحة والستر والبركة فى الرزق والاهل والعمر اضافة عمودين.rar
طارق محمود قام بنشر مارس 8, 2014 قام بنشر مارس 8, 2014 السلام عليكم تفضل المرفق وهذا هو الكود بعد النعديل 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
عادل ابوزيد قام بنشر مارس 8, 2014 الكاتب قام بنشر مارس 8, 2014 (معدل) استاذى الفاضل المحترم الباشمهندس طارق والله مش عارف اقولك ايه ربنا يبارك لك فى صحتك وعلمك ويزيدك من فضله ونعمه ويوسعها عليك استفسار بعد تجربة الملف تبين ان بيانات العمودين فى شيت اجمالى العملاء ( المرحل اليه ) لا تتفق مع البيانات المرحل منها ( خروج ثلاجه ) وستلاحظ الاختلاف بمقارنة اخر عملية المستلم فيها مطاوع والماركة انجى بعدد 2 .. فى شيت اجمالى عملاء المرحل اليه غير موجود مطاوع ويبقى المطلوب الثانى وهو اضافة نفس العمودين فى شيت ( ثلاجة حساب العملاء صفيح ) حيث عندما حاولت اضافتهم البيانات الخاصه بهما لم تاتى بما يتفق مع بعضها ايضاً وللتوضيح تم تظليلهما باللون الاصفر كما ان بعد ادراج كود الاستاذ المحترم رجب جاويش اصبح كود جلب البيانات اصبح بطئ مش عارف ليه تقبل تحياتى واحترامى لشخصكم الكريم اضافة عمودين_فى شيت ثلاجةحساب العملاء صفيح.rar تم تعديل مارس 8, 2014 بواسطه عادل ابوزيد
طارق محمود قام بنشر مارس 13, 2014 قام بنشر مارس 13, 2014 السلام عليكم أخي عادل المطلوب : اضافة ترحيل بيانات العمودين نوع التبريد والمستلم من شيت خروج ثلاجة بعد تجربة الملف تبين ان بيانات العمودين فى شيت اجمالى العملاء ( المرحل اليه ) لا تتفق مع البيانات المرحل منها ( خروج ثلاجه ) وستلاحظ الاختلاف بمقارنة اخر عملية المستلم فيها مطاوع والماركة انجى بعدد 2 .. فى شيت اجمالى عملاء المرحل اليه غير موجود مطاوع هذا غير صحيح لعلك لم تنتبه أن في آخر الكود فقرة مسؤولة عن إعادة ترتيب البيانات حسب التاريخ - إن كنت لاتريد ذلك إلغيها نتيجة لهذا تم ترتيب النتائج حسب التاريخ فأصبح البيان موجود بالسطر 1104 من شيت اجمالى العملاء >>> لاحظ أن في نهاية الجدول تبين أن بعض التواريخ تم ادخالها بطريقة خاطئة السطرين 1377 و 1378 المطلوب الثانى وهو اضافة نفس العمودين فى شيت ( ثلاجة حساب العملاء صفيح ) حيث عندما حاولت اضافتهم البيانات الخاصه بهما لم تاتى بما يتفق مع بعضها ايضاً وللتوضيح تم تظليلهما باللون الاصفر لأنك لغيت الكود (والذي أخذ مني وقت) ، أقصد الكود اللي في المشاركة 7 بصراحة ليس عندي وقت آخر أعذرني بعد ادراج كود الاستاذ المحترم رجب جاويش اصبح كود جلب البيانات اصبح بطئ مش عارف ليه لأن الكود يعمل أوتوماتيكيا في حدث تنشيط الورقة ، يعمل عند كل مرة تدخل فيها إلي الورقة يمكنك إيقافه وجعله يعمل بزر حسب الطلب وليس في كل مرة ندخل للشيت
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.