احمدزمان

السلام عليكم و رحمة الله وبركاته جرب الآن التصفية بين تاريخين انا اشتغلت معاية و ان شاء الله تشتغل معاك تقسيم الكمية الخارجة من الكميات الوارده بالاقدم.rar

الأخ القدير و الأستاذ الفاضل حمادة عمر جزاك الله خيرا وبلغك الله الأجر =================== اخي ابو زيد في فكرة احاول انفذها واجربها الآن واعطيك خبر اعذرني انشغلت عن الموضوع قليلا هذه الأيام

جرب اختيار رقم العميل فقط او اختيار اسم الصفيحة فقط اذا اشتغل الكود اذا الخطأ في التاريخ انا لاحظت في ملفك التصفية تقرأ التاريخ بطريقة شهر/يوم/سنة

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

اخي الكريم عادل السلام عليكم و رحمة الله وبركاته جزاك الله خيرا على هذا الدعاء وجعله من نصيبك ايضا الحماية الموجودة هي صورية فقط بمعنى بمجرد ضغط الغاء الحماية يتم الغاء حماية الورقة وافطلاع على الدوال والتعديل ما تريد هو المفروض اننا نعمل كود يقوم بفرز البيانات في ورقة الصادر لتلافي الصفوف الفارغة الصفوف 2 و 3 انا عاملها احتياطا على امل ان تقوم انت لاحقا بعمل كود بحث خلال فترة محددةمن تاريخ كذا الى تاريخ كذا -- ويتم البحث عن نوع محدد من الصفائح او يتم البحث باسم العميل يعني مثلا اذا جاء عميل وقال ابغة بيانات سحوباتي خلال شهر يناير يصبح من تاريخ 1/1/2014 الى 31/1/2014 البحث عن: (اسم العميل) وتظهر البيانات مش غارف ايش اقول بس راجع المعادلات وايه النقطة الى تبغاني اشرحها انا معاك موضوع فورم آسف جدا ولكن اعتقد نحن حاليا لدينا نموذج في ورقة اكسل افضل من الفورم (من وجهة نظري) وفيه امكانيات اكثر و يمكن طباعته - - يعني نعتبره اذن صرف اعتقد نحنه حاليا اذا كملنا موضوع البحث في ورقة الصادر سوف نستغني تماما عن ورقة الصادر1 اما الترحيل الى النظام الأفقي يحتاج دقه كبيرة حيث ان زيادة عمود او الغاء عمود رايحة تدخل البيانات في اماكن غير صحيحة وتسبب لخبطة كبيرة في البيانات تحياتي

‏الخميس‏ 9‏/2‏/1435هـ الموافق ‏12‏/12‏/2013م السلام عليكم و رحمة الله وبركاته اخي عادل تم اكمال الحل في المرفق في ورقة Ethen_Srf تدخل البيانات وتوزع الكمية تلقائيا على الموجود اضغط زر حفظ البيانات : يتم ترحيل البيانات الموزعة الى ورقة الصادر ورقة الوارد : سوف تحسب تلقائيا قيمة المصروف من ورقة الصادر حسب اسم العميل * الصنف * التاريخ آمل التجربة واخباري بالنتيجة دمتم بخير تقسيم الكمية الخارجة من الكميات الوارده بالاقدم.rar

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

السلام عليكم و رحمة الله وبركاته في المرفق اضغط زر طباعة التقرير الى اليسار تتم الطباعة و الترحيل _المخزون جديد_نموذج ادخال و صرف _ كشف بين تاريخين_pass 123.rar

‏الثلاثاء‏ 7‏/2‏/1435هـ الموافق ‏10‏/12‏/2013م اخي الكريم حسين جودة جزاك الله خيرا لكريم مبادرتك كود رائع من اخ كريم السلام عليكم و رحمة الله وبركاته ان شاء الله اذا ربنا قدرنا وسهل الأمور سوف نقوم بعمل نموذج مرن نوع: نموذج واحد لكل النوعين وارد وصرف رقم الحركة: يتم تلقائيا وضع تسلسل للحركات النوع: يتكون من قائمتين مسندلة تختلف حسب نوع الإذن المدخل + امكانية اضافة انواع جديدة تلقائيا بمجرد ادخالها هنا سوف يتم اضافتها للقائمة النوع المختار حاليا التاريخ: لايقبل تاريخ اكبر من تاريخ اليوم و يقبل تاريخ هجري و ميلادي اسم العميل: يتم اختيارة من القائمة المنسدلة + امكانية اضافة اسم عميل جديد بمجرد ادخاله هنا الأصناف: يتم اختيار الصنف من القائمة + امكانية اضافة صنف جديد بمجرد ادخاله هنا كل هذه البيانات تتم معالجتها من أي مسافات زائدة قبل اضافتها ونقول يارب يامسهل

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

وينور عليك ممكن اكثر من الف صف لامشكلة

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

الصورة

السلام عليكم و رحمة الله وبركاته ممكن نستبدل الفورمين الإثنين وارد ومنصرف بورقة واحدة تشمل الوارد و المنصرف كما في الصورة 4المخزون.bmp يتم من خلالها المطلوب بالإضافة وممكن اضافة اسماء العملاء

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

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

السلام عليكم جزاك الله خيرا اخي حمادة باشا

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

السلام عليكم تم تعديل بعض الدوال سابقا كان يعمل البحث حتى الصف1001 فقط ولديك 15000 صف تم اضافة نطاقات وتسميتها سوف تكون استجابة الملف اسرع من السابق ان شاء الله آمل التجربة _المخزون جديد_نموذج ادخال و صرف _ كشف بين تاريخين_pass 123.rar

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

السلام عليكم و رحمة الله وبركاته اخي ابراهيم جزاك الله خيرا

السلام عليكم و رحمة الله وبركاته اخي محمد خليل الكلام الي قلته في آخر مشاركة اوحى الي بفكرة بما انه لايوجد بيانات متكررة لإسم العميل و المنتج معا في الورقة الأصلية اذا نحنة ممكن نسوي عملية تنظيف للورقة الأصلية فقط نضيف اسم المنتج امام اسم كل عميل نحذف بقية الصفوف كلها نحذف الأعمدة الزائدة ' Application.Calculation = xlManual Set FS = Sheets(ActiveSheet.Name) ER = FS.UsedRange.Rows.Count Range("I1") = "ÇáäæÚ" Range("J1") = " ÇÓã ÇáÚãíá" Range("K2").EntireColumn.Insert Range("K2:K" & ER).FormulaR1C1 = "=IF(RC9="""",R[-1]C11,RC9)" FS.Calculate For R = 2 To ER If Cells(R, 10) <> "" Then Cells(R, 9) = Cells(R, 11) Next R ' Range("K2").EntireColumn.Delete Range("K2:K" & ER).FormulaR1C1 = "=AND(LEN(RC10)>1,LEN(RC9)>1,RC10<>R1C10)" FS.Calculate For R = 2 To ER If Cells(R, 11) <> "" And Cells(R, 11) = False Then Cells(R, 11).EntireRow.Delete R = R - 1 End If Next R Range("K2").EntireColumn.Delete Range("B1:H2").EntireColumn.Delete ' With ActiveSheet.UsedRange .Font.Size = 11 .Font.Name = "Arial" .ColumnWidth = 99 .Columns.AutoFit .Rows.AutoFit .AutoFilter End With ThisWorkbook.Save Application.Calculation = xlAutomatic كما في المرفق Copy of Report3.rar

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

السلام عليكم و رحمة الله وبركاته اخي الحبيب الموقر محمود الأسيوطي جزاك الله خيرا وبعد اذنك ============== الى السائل فقط اضيف حرف "a" قبل التاريخ الهجري لكي يستطيع اكسل قرائة التاريخ كـ تاريخ هجري ويحولة الى قيمة رقمية

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