البحث في الموقع

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

السلام عليكم اصدقائي في هذا المنتدى الرائع مساعدة سريعة كنت في وقت سابق قد حملت نسخة لبرنامج فواتير كهرباء نشره احد الاخوة جزاه الله خيرا لكن يبدو انه غير فعال لاضافه او العمل عليه اريد ان اعرف ما المشكلة واذا كان هناك حل وشكرا وجزاكم اللعه كل خير waterbill.accdb

(هذا البرنامج غير مستثمر لاحد انما هو مساعده لمخيم لاجئيين في سوريا لاعطائهم فواتير شهرية تدفعها تكاليفها منظمة خارجية ) البرنامج تم تعديل عليه من قبل الاخ الرائع @محمد أبوعبدالله والان احتاج اضافه تعديلات ضرورية جدا 1- تفعيل خانة رقم العداد او رمز المشترك بحيث اذا بحثت برقم المستفيد يظهر في الشاتين سداد الديون والقراءات الشهرية 2- انشاء زر في شاشه القراءات يدخلني لجدول به كل المشتركين ببيناتهم لتعبئة القراءات دفعه كامله كما موضح في الصورة 3- امكانية تغيير المدينة 4- ان يتغير لون ايقونه المشترك عند تسديد الفاتورة وشكرا لكم اصدقائي اعلم ان المطلوب كبير وكثير لكن ما باليد عمل وشكر لكل من سوف يساهم وشكر خاص للاستاذ @محمد أبوعبدالله هل يمكنني طباعه الفواتير على طابعه الفواتير الصغيرة بدون اي مشكله او احتاج لتصميم قالب فاتورة MILAN.accdb

مساء الخير اخواني الكرام مرفق نموذج لعمل فاتورة انا عملت النموذج بشكل كامل و عملية ترحيل البيانات 100% شغالة لكن المشكلة الي واجهتني انه في بعض الحالات يتم طلب اعادة طباعة الفاتورة و انا اريد اعادة طباعة الفاتورة دون التعديل على المحتوى الاصلي اي بمعنى انني عند اختيار رقم الفاتورة اريد ان يتم استدعاء جميع بيانات الفاتورة اريد البيانات يتم استدعائها الى الورقة المسماه باسم Reprint اخواني و اعزائى ستتم استدعاء البيانات من الورقة المسمى باسم Data و التي اصلا سوف يتم ترحيل البيانات لها من الورقة المسمى باسم INV و الذي احتاج له هو استدعاء البيانات في نفس الفورم الموجود في الورقة INV ولكن في ورقة اخرى مسمى باسم RePrint في المحصلة سوف تكون العملية كالتالي : 1- يتم طباعة الفاتورة وعند الضغط على ترحيل البيانات البيانات تفرغ في الورقة Data 2- الورقة Data فيها جميع تفاصيل الفواتير الصادة بكل تفاصيلها 3- عند الرغبة باعادة طباعة فاتورة او نريد استعراض تفاصيل فاتورة معينة يتم الذهاب الى الورقة RePrint و نختار رقم الفاتورة و من ثم يتم استدعاء القيم و التفاصيل *** اسف جدا لان الملف لا يحتوي على بيانات ولكن بامكان اي شخص ادخال بيانات من عندة وانا تعمدت تركها فارغة لانني اريد منكم تجربة العملية لكي يتم الفهم و معرفة ما احتاجة بدقة و اجمالا انا ادخلت بعض البيانات على الملف مع خالص الشكر و التقدير لكم جميعا اعزائي Invoice.xlsm

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

السلام عليكم احبائى واساتذتى الأعزاء,أتمنى ان تكونوا جميعا في أحسن حال أرجو التكرم من سيادتكم على مساعدتى في عمل اختصار لكود ترحيل البيانات من الفاتورة الى الصفحة الأخرى فالكود طويل جدا فياريت أجد عن حضراتكم حل لإختصار وتقصير هذا الكود بحيث يقوم بنفس المهام وهذا هو الكود : Private Sub FillSalesList() With Sheets("Sales").Columns(1).Rows(65536).End(xlUp) .Offset(1, 0) = Sheet1.[C1] .Offset(1, 1) = Sheet1.[C3] .Offset(1, 2) = Sheet1.[C5] .Offset(1, 3) = Sheet1.[C7] .Offset(1, 4) = Sheet1.[C9] .Offset(1, 5) = Sheet1.[A12] .Offset(1, 6) = Sheet1.[B12] .Offset(1, 7) = Sheet1.[C12] .Offset(1, 8) = Sheet1.[D12] .Offset(1, 9) = Sheet1.[E35] .Offset(1, 10) = Sheet1.[E36] .Offset(1, 11) = Sheet1.[E37] .Offset(1, 12) = Sheet1.[E38] If Sheet1.[a13].Value <> "" Then .Offset(2, 0) = Sheet1.[C1] .Offset(2, 1) = Sheet1.[C3] .Offset(2, 2) = Sheet1.[C5] .Offset(2, 3) = Sheet1.[C7] .Offset(2, 4) = Sheet1.[C9] .Offset(2, 5) = Sheet1.[a13] .Offset(2, 6) = Sheet1.[B13] .Offset(2, 7) = Sheet1.[C13] .Offset(2, 8) = Sheet1.[D13] End If If Sheet1.[a14].Value <> "" Then .Offset(3, 0) = Sheet1.[C1] .Offset(3, 1) = Sheet1.[C3] .Offset(3, 2) = Sheet1.[C5] .Offset(3, 3) = Sheet1.[C7] .Offset(3, 4) = Sheet1.[C9] .Offset(3, 5) = Sheet1.[a14] .Offset(3, 6) = Sheet1.[B14] .Offset(3, 7) = Sheet1.[C14] .Offset(3, 8) = Sheet1.[D14] End If If Sheet1.[a15].Value <> "" Then .Offset(4, 0) = Sheet1.[C1] .Offset(4, 1) = Sheet1.[C3] .Offset(4, 2) = Sheet1.[C5] .Offset(4, 3) = Sheet1.[C7] .Offset(4, 4) = Sheet1.[C9] .Offset(4, 5) = Sheet1.[a15] .Offset(4, 6) = Sheet1.[B15] .Offset(4, 7) = Sheet1.[C15] .Offset(4, 8) = Sheet1.[D15] End If If Sheet1.[a16].Value <> "" Then .Offset(5, 0) = Sheet1.[C1] .Offset(5, 1) = Sheet1.[C3] .Offset(5, 2) = Sheet1.[C5] .Offset(5, 3) = Sheet1.[C7] .Offset(5, 4) = Sheet1.[C9] .Offset(5, 5) = Sheet1.[a16] .Offset(5, 6) = Sheet1.[B16] .Offset(5, 7) = Sheet1.[C16] .Offset(5, 8) = Sheet1.[D16] End If If Sheet1.[a17].Value <> "" Then .Offset(6, 0) = Sheet1.[C1] .Offset(6, 1) = Sheet1.[C3] .Offset(6, 2) = Sheet1.[C5] .Offset(6, 3) = Sheet1.[C7] .Offset(6, 4) = Sheet1.[C9] .Offset(6, 5) = Sheet1.[a17] .Offset(6, 6) = Sheet1.[B17] .Offset(6, 7) = Sheet1.[C17] .Offset(6, 8) = Sheet1.[D17] End If If Sheet1.[a18].Value <> "" Then .Offset(7, 0) = Sheet1.[C1] .Offset(7, 1) = Sheet1.[C3] .Offset(7, 2) = Sheet1.[C5] .Offset(7, 3) = Sheet1.[C7] .Offset(7, 4) = Sheet1.[C9] .Offset(7, 5) = Sheet1.[a18] .Offset(7, 6) = Sheet1.[B18] .Offset(7, 7) = Sheet1.[C18] .Offset(7, 8) = Sheet1.[D18] End If If Sheet1.[a19].Value <> "" Then .Offset(8, 0) = Sheet1.[C1] .Offset(8, 1) = Sheet1.[C3] .Offset(8, 2) = Sheet1.[C5] .Offset(8, 3) = Sheet1.[C7] .Offset(8, 4) = Sheet1.[C9] .Offset(8, 5) = Sheet1.[a19] .Offset(8, 6) = Sheet1.[B19] .Offset(8, 7) = Sheet1.[C19] .Offset(8, 8) = Sheet1.[D19] End If If Sheet1.[a20].Value <> "" Then .Offset(9, 0) = Sheet1.[C1] .Offset(9, 1) = Sheet1.[C3] .Offset(9, 2) = Sheet1.[C5] .Offset(9, 3) = Sheet1.[C7] .Offset(9, 4) = Sheet1.[C9] .Offset(9, 5) = Sheet1.[a20] .Offset(9, 6) = Sheet1.[B20] .Offset(9, 7) = Sheet1.[C20] .Offset(9, 8) = Sheet1.[D20] End If If Sheet1.[a21].Value <> "" Then .Offset(10, 0) = Sheet1.[C1] .Offset(10, 1) = Sheet1.[C3] .Offset(10, 2) = Sheet1.[C5] .Offset(10, 3) = Sheet1.[C7] .Offset(10, 4) = Sheet1.[C9] .Offset(10, 5) = Sheet1.[a21] .Offset(10, 6) = Sheet1.[B21] .Offset(10, 7) = Sheet1.[C21] .Offset(10, 8) = Sheet1.[D21] End If If Sheet1.[a22].Value <> "" Then .Offset(11, 0) = Sheet1.[C1] .Offset(11, 1) = Sheet1.[C3] .Offset(11, 2) = Sheet1.[C5] .Offset(11, 3) = Sheet1.[C7] .Offset(11, 4) = Sheet1.[C9] .Offset(11, 5) = Sheet1.[a22] .Offset(11, 6) = Sheet1.[B22] .Offset(11, 7) = Sheet1.[C22] .Offset(11, 8) = Sheet1.[D22] End If If Sheet1.[a23].Value <> "" Then .Offset(12, 0) = Sheet1.[C1] .Offset(12, 1) = Sheet1.[C3] .Offset(12, 2) = Sheet1.[C5] .Offset(12, 3) = Sheet1.[C7] .Offset(12, 4) = Sheet1.[C9] .Offset(12, 5) = Sheet1.[a23] .Offset(12, 6) = Sheet1.[B23] .Offset(12, 7) = Sheet1.[C23] .Offset(12, 8) = Sheet1.[D23] End If If Sheet1.[a24].Value <> "" Then .Offset(13, 0) = Sheet1.[C1] .Offset(13, 1) = Sheet1.[C3] .Offset(13, 2) = Sheet1.[C5] .Offset(13, 3) = Sheet1.[C7] .Offset(13, 4) = Sheet1.[C9] .Offset(13, 5) = Sheet1.[a24] .Offset(13, 6) = Sheet1.[B24] .Offset(13, 7) = Sheet1.[C24] .Offset(13, 8) = Sheet1.[D24] End If If Sheet1.[a25].Value <> "" Then .Offset(14, 0) = Sheet1.[C1] .Offset(14, 1) = Sheet1.[C3] .Offset(14, 2) = Sheet1.[C5] .Offset(14, 3) = Sheet1.[C7] .Offset(14, 4) = Sheet1.[C9] .Offset(14, 5) = Sheet1.[a25] .Offset(14, 6) = Sheet1.[B25] .Offset(14, 7) = Sheet1.[C25] .Offset(14, 8) = Sheet1.[D25] End If If Sheet1.[a26].Value <> "" Then .Offset(15, 0) = Sheet1.[C1] .Offset(15, 1) = Sheet1.[C3] .Offset(15, 2) = Sheet1.[C5] .Offset(15, 3) = Sheet1.[C7] .Offset(15, 4) = Sheet1.[C9] .Offset(15, 5) = Sheet1.[a26] .Offset(15, 6) = Sheet1.[B26] .Offset(15, 7) = Sheet1.[C26] .Offset(15, 8) = Sheet1.[D26] End If If Sheet1.[a27].Value <> "" Then .Offset(16, 0) = Sheet1.[C1] .Offset(16, 1) = Sheet1.[C3] .Offset(16, 2) = Sheet1.[C5] .Offset(16, 3) = Sheet1.[C7] .Offset(16, 4) = Sheet1.[C9] .Offset(16, 5) = Sheet1.[a27] .Offset(16, 6) = Sheet1.[B27] .Offset(16, 7) = Sheet1.[C27] .Offset(16, 8) = Sheet1.[D27] End If If Sheet1.[a28].Value <> "" Then .Offset(17, 0) = Sheet1.[C1] .Offset(17, 1) = Sheet1.[C3] .Offset(17, 2) = Sheet1.[C5] .Offset(17, 3) = Sheet1.[C7] .Offset(17, 4) = Sheet1.[C9] .Offset(17, 5) = Sheet1.[a28] .Offset(17, 6) = Sheet1.[B28] .Offset(17, 7) = Sheet1.[C28] .Offset(17, 8) = Sheet1.[D28] End If If Sheet1.[a29].Value <> "" Then .Offset(18, 0) = Sheet1.[C1] .Offset(18, 1) = Sheet1.[C3] .Offset(18, 2) = Sheet1.[C5] .Offset(18, 3) = Sheet1.[C7] .Offset(18, 4) = Sheet1.[C9] .Offset(18, 5) = Sheet1.[a29] .Offset(18, 6) = Sheet1.[B29] .Offset(18, 7) = Sheet1.[C29] .Offset(18, 8) = Sheet1.[D29] End If If Sheet1.[a30].Value <> "" Then .Offset(19, 0) = Sheet1.[C1] .Offset(19, 1) = Sheet1.[C3] .Offset(19, 2) = Sheet1.[C5] .Offset(19, 3) = Sheet1.[C7] .Offset(19, 4) = Sheet1.[C9] .Offset(19, 5) = Sheet1.[a30] .Offset(19, 6) = Sheet1.[B30] .Offset(19, 7) = Sheet1.[C30] .Offset(19, 8) = Sheet1.[D30] End If If Sheet1.[a31].Value <> "" Then .Offset(20, 0) = Sheet1.[C1] .Offset(20, 1) = Sheet1.[C3] .Offset(20, 2) = Sheet1.[C5] .Offset(20, 3) = Sheet1.[C7] .Offset(20, 4) = Sheet1.[C9] .Offset(20, 5) = Sheet1.[a31] .Offset(20, 6) = Sheet1.[B31] .Offset(20, 7) = Sheet1.[C31] .Offset(20, 8) = Sheet1.[D31] End If If Sheet1.[a32].Value <> "" Then .Offset(21, 0) = Sheet1.[C1] .Offset(21, 1) = Sheet1.[C3] .Offset(21, 2) = Sheet1.[C5] .Offset(21, 3) = Sheet1.[C7] .Offset(21, 4) = Sheet1.[C9] .Offset(21, 5) = Sheet1.[a32] .Offset(21, 6) = Sheet1.[B32] .Offset(21, 7) = Sheet1.[C32] .Offset(21, 8) = Sheet1.[D32] End If ' .Offset(1, 6) = Sheet1.[G1].Text End With End Sub وهذا هو الملف كود ترحيل الفاتورة.xlsm

اعرض الملف برنامج الحسابات Aliphia Aliphia برنامج حسابات اون لاين يستهدف الشركات الصغيرة و أصحاب المشاريع الخاصة. يعتمد التطبيق في عمله على تقنية الحوسبة السحابية و يتضمن تقنيات عالية في التنفيذ، مما يجعله آمن و قادر على تلبية احتياجات الآلاف من العملاء في وقت واحد ومن أي مكان في العالم. مميزات البرنامج: يستخدم Aliphia أربع لغات مختلفة : العربية، الإنجليزية، التركية و الفرنسية؛ إنشاء فاتورة و تعديلها لإضافة طابع شخصي؛ نماذج فواتير متعددة العملات؛ دفع الفواتير عبر الإنترنت؛ تسجيل المقبوضات أوتوماتيكيا بمجرد دفعها من طرف العميل؛ عدد غير محدود من العملاء، الموردين، المستخدمين و المنتجات/الخدمات؛ إستيراد و تصدير البيانات بكل سهولة؛ برنامج إدارة المخزون اون لاين؛ إنشاء فواتير مكررة وبرمجتها حتى تتكرر أوتوماتيكيا؛ تتبع النشاط التجاري للشركة من خلال لوحة مراقبة ديناميكية و كاملة؛ ملائم لشركات المنتجات والخدمات؛ و العديد من المميزات الأخرى … ألف ياء هو منصة قوية ذات ميزات وأدوات متكاملة تساعدكم على إرسال الفواتير،تحصيل المبالغ و تذكير العملاء بتسديد فواتيرهم في الأوقات المحددة. يتميز بتصميم يُسَهِل التعامل مع الفواتير و واجهة مستخدم تتوافق مع الجميع. صاحب الملف Majda تمت الاضافه 10 نوف, 2016 الاقسام قسم الإكسيل

السلام عليكم مرفق مثال لفاتورة كهرباء فاتورة كهرباء.rar

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

السلام عليكم أعضاء المنتدب الكرام اخواني انا ليه طلب في برنامج مبسط للفواتير لملابس داخلية رجالي 1- سجيل العملاء 2- سجيل الأصناف 3- المخزن 4- ادخال الفاتورة وحفظها وإمكانية طباعتها واسترجعها في أي وقت وخصم الكميه من المخزن الفاتورة بها - الصنف - الكود -العدد - نسبة الخصم - هذه اهم الاشياء والبيانات الأخرى التي تسجل في الفواتير أتمنى المساعده ولكم جزيل الشكر ،،،

السلام عليكم و رحمة الله محاولة مني ملف اكسيل يقوم بحساب قيمة إستهلاك فاتورة الكهرباء لشهر واحد حسب التسعيرة الجديدة في المملكة العربية السعودية شامل ضريبة القيمة المضافة كود الصفحة للمبرمجين (555) التعديل حق للجميع حساب الكرباء.rar

السلام عليكم ورحمة الله وبركاته :تحية طيبة وبعد اخوانى الكرام في هذا الصرح العظيم الذى استفدت منه وبقضل الله ثم بفضلكم وشروحاتكم المميزه اصدرت برنامج ادارة المخازن الاصدار الثالث :فالبرنامج مكون من صفحة الاصناف والسعر والوارد والمنصرف لكل صنف صفحة حركة المخزن والتى تضم تاريخ العملية ورقم الآذن ونوع المستند وهو معد بقائمة مسبقا بإشهر العمليات في المخزن وهنا يأتى دور قائمة نوع الحركة اذا كانت وارد او منصرف ويرجى تحديدها مع كل عملية حتي يتم ادارجها في قائمة الاصناف حسب نوعها واخيرا الكمية المصروفة او الواردة للمخزن طبعا بعد وضع الصنف المتوافق مع صفحة الاكواد واذا لم يتوافق يظهر رسالة خطأ مكان اسم الصنف والرصيد اى المتاح :الجديد في البرنامج صفحة المبيعات وهي صفحة مبنية علي البينات التى تدخلها في الفاتورة فبعد ملئ الفاتورة بما يلزم نضغط حفظ الفاتورة فتملئ هذه الصفحة آليا دون تدخل منك مع حذف الفاتورة ايضاً تحديد قيمة الخصم في الفواتير بالنسبة المئوية اضافة مخزن الدرجة ومخزن فرعى للبرنامج وتتم معالجة بياناته من صفحة حركة المخزن لكن تنبيه هام يرجى عند اضافة او صرف من المخزن الفرعى او الدرجة عدم تحديد نوع الحركة والا سيحدث خطأ بصرف البرنامج من الكمية المتاحة في المخزن الرئيسي او اضافة حسب التحديد يرجى العلم حتي يفعل المخازن الفرعية كتابة كلمة من الدرجة في عمود وارد من او الى الدرجة في عمود صادر الى وهكذا فى المخزن الفرعى كتابة من فرعى او الى فرعى ان كان من توفيق فمن الله وان كان من خطأ او نسيان فمنى ومن الشيطان ............................ ............................ ............................ ............................ :كلمة سر الدخول للبرنامج 123456 1256025454_StoresV3.xlsm

السلام عليكم ورحمه الله احبتي اريد اعدل الفاتوره مثلا عندما ادخل علي فورم frm_Search_sales و ابحث عن فاتوره واضغط زر تعديل اريد اعدل الفاتوره الذي تم حفظها انا عملت لنص الطريق صار يجلب لي رقم الفاتوره وتفاصيلها بالنموذج الريسي بنموذج التعديل بقي معي التفاصيل بالفرعي مادريت شو الحل معاها اي التفاصيل الذي كانت بفاتوره البيع بالفرعي اريدها تظهر معي بنموذج التعديل بالفرعي ان شاء الله يكون وصلتكم الفكره احبتي تحياتي اليكم تعديل فاتوره.rar

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

بسم الله الرحمن الرحيم وكما عودناكم في كل جديد نلتمس من بستان معرفتكم زهرة تبعث رياحينها للناس الطيبة أمثالكم. تم تجهيز فكرة لعمل فاتورة ديناميكية (بدون فورم)، وبها أفكار إبداعية متنوعةـ وحتى تتمازج الأفكار سأطرحها بطريقة متسلسلة أقف عند بعض الأكواد بانتظار مشاركة الخبراء، وسنعتمد الكود السهل والقصير أملاً أن تعم الفائدة للجميع. ترقبونا

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة برنامج ايصالات استلام وصرف النقدية تم ارفاق كود الحل من الفاضل / حمادة عمر PASS _ magdy 12345 و لا تنسونا من صالح الدعاء تحياتى برنامج فواتير و ايصالات حماده عمر.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة مساعده عاجلة فى الترحيل لفاتورة تم ارفاق كود الحل من الفاضل ا / رحمه الله_ الحسامي _ ا / احمدزمان و لا تنسونا من صالح الدعاء تحياتى فاتورة (HOSSAMI).rar Invoice2010_AHMED ZAMAN.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة ترحيل واستدعاء بيانات فاتورة تم ارفاق كود الحل من الفاضل/ طارق محمود و لا تنسونا من صالح الدعاء تحياتى فاتورة جديدة7 (1).rar

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة استدعاء و ترحيل فاتورة تم ارفاق كود الحل من الافاضل/ KHMB _ و _ سليم حاصبيا و لا تنسونا من صالح الدعاء تحياتى KHMB فاتورة _استدعاء و ترحيل.rar استدعاء _فاتورة salim.rar

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

بعد التحية مرفق ملف بة كود استدعاء فاتورة قام بعملة الأستاذ الكبير / ياسر خليل و هو يقوم بأستدعاء فاتورة واحدة عند كتابة رقم الفاتورة بالخلية A2 و المطلب عمل تعديل فى الكود بحيث يقوم بأستدعاء عدة فواتير مرة واحدة عن كتابة رقم كود العميل بالخلية A3 ( او فى نفس الخلية A2 ان امكن) حيث يذهب الى صفحة فاتورة و استدعاء جميع الفواتير التى يوجد بها كود العميل المطلوب و التى تكون فى العمود C مع بقاء الكود الأصلى يعمل كما هو بحيث عن كتابة رقم فاتورة فى الخلية A2 و الضغط على ENTER يتم استدعاء الفاتورة المطلوبة و عند كتابة رقم كود العميل بالخلية A3 و الضغط على ENTER يتم استدعاء جميع الفواتير الخاصة بالعميل و ايضا يمكن استدعاء فواتير العميل التى تمت فى شهر معين ( يناير - فبراير - مارس -----) بناء على كتابة رقم الشهر فى خلية اخرى ارجو ان اكون قد استطعت توصيل الفكرة و شكرا جزيلا للمساعدة استدعاء فاتورة.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اتمنى من اساتذتنا فى الموقع مساعدتى فى ترحيل الفاتورة لورقة قاعدة البيانات او ما ترونه صحيحا لانى حاولت كثير ولا اعرف كثير عن VBA ولكم جزيل الشكر مقدما Data.rar

لدي صفحة INVOICE تعتبر الفاتورة وهي مرتبطة بقرائة باركود الاصناف والمخزن هو ورقة stor اريد عند انتهاء الكمية بالمخزن بورقة () في العمود (P) انة عند وجود صفر للصنف ان لايتم قبولة بالفاتورة وان تظهر رسالة عند تسجيلة بورقة (INVOICE) في العمود (D) من D5 الى D12 انة لايتم قبولة وتظهر رسالة (هذا الصنف لم يجد بالمخزن) الكاشير3.rar