اذهب الي المحتوي
أوفيسنا

نموذج فاتورة رائع ومحتاج تكملة


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

الإخوة الكرام

مشرفي وأعضاء وزوار هذا المنتدى الرائع

السلام عليكم ورحمة الله تعالى وبركاته

====================

اقدم لكم نموذج فواتير رائع "في تصوري" حيث يسهل عليك من الورقة Invoice عملية اصدار الفاتورة بخطوات سهلة وميسرة وبدقة رائعة "بحمد الله تعالى"

معادلات جميلة وماكرو تفقيط القيم اتوماتيكيا وكلها من ابداعات اساتذتنا من اعضاء هذا المنتدى الطيب.

-------------------------

ولكن يا للاسف ويا للخسارة

النموذج يحتاج لبعض الاضافات التي اسال الله ان يعين اخواننا عليها

------------------------

المطلوب :-

(1) دالة تفقيط الكميات بدون (فقط، جنيه، قرش، لاغير) ... ارقام فقط

(2) مطلوب زر ترحيل جميع بيانات الفاتورة الى الورقة 'Store' حسب الاعمدة المبينة بها بحيث يتم تنزيل بيانات جميع الفواتير الصادرة في جدول واحد.

===================

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

وجزاكم الله خيرا

Bu3mmar_test3.rar

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

اخي الكريم السلام عليكم

الطلب الاول تم

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

Bu3mmar_test3.rar

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

بارك الله فيك اخي Stiffmiller

بارك الله فيك اخي نزار

وبارك الله في اعماركم واوقاتكم

جزاكم الله خيرا

يبدو انه حدث خطا في تحميل المرفق لديكم

فليس هذا المرفق المطلوب لهذا الموضوع

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

الأخ / نزار

جزاك الله كل الخير

==========

وبخصوص تعديل المرفق في المشاركة

اقول :

ايوة يا عم "واسطة"

==========

وطلب متعب شوية

اذا يسر الله لك الوقت

هل يمكن حذف (فقط + لاغير) من خانة تفقيط الكمية لاجل توفير مساحة عرض العمود مع ابقائها في خانة مجموع القيمة؟؟؟

==========

تسمحلي اراسلك على الخاص؟؟؟

==========

جزاكم الله كل الخير

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

اخي الكريم السلام عليكم

انظر للمرفق

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

Bu3mmar_test3.rar

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

استاذنا خبور الخير

كنت منتظر هذا الابداع منك

جزاك الله كل الخير

-------------------------------------------------------------

كان نفسي اتعلم اكواد الـVBA عشان اريحك من مشاكلي وتتفرغ لابداعاتك الرائعة

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

------------------------------------------------------------

طبعاً طلباتي لن تنتهي

حتى يكتمل النموذج لعل الله ان ينفع به

(1) الغاء التعبئة الصفراء التي تظهر مع كود التفقيط في خانات الكمية "لازلت احاول البحث عنها داخل الكود"

==========

اخي faresme الملفات سليمة والمنتدى منتظم حاول مرة اخرى ولو اردت ارسل لنا ايميلك ونرسل لك المطلوب

==========

جزا الله القائمين على هذا المنتدى كل الخير

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

أخي العزيز BU3MMAR

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

أخوكم أبو عبدالله

BU3MMAR_TEST3.rar

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

اخي الحبيب اكسيلجي

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

===========

وأبشر جميع اخواني في المنتدى فقد انتهيت من التعديلات المطلوبة بفضل الله ثم بفضل معونة اخواني الكرام

فقد تم اضافة

(1) زر الترحيل الرائع (من اسهامات اخونا خبور الخير)

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

(3) تفقيط الكميات وتفقيط المبالغ (من اسهامات استاذنا نزار)

==========

والآن يمكنك

* اعداد الفاتورة بطريقة سهلة وميسرة جدا ودقيقة في نفس الوقت وفي ثمان حركات فقط (كما هو موضح في الملف)

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

* التسجيل الدقيق لاسماء العملاء وبياناتهم دون التعرض لاخطاء كتابية وخلافه

* التسجيل الدقيق لانواع الاصناف وتفاصيلها دون التعرض لاخطاء التسعير

* جمع تفصيلي للقيم وللضرائب والخصومات

* ممكن اضافة هذا النموذج الى حسابات العملاء

----------> لكن ...

بقيت اضافة واحدة لاكمال الشكل النهائي للفاتورة

((( مطلوب زر استدعاء بيانات الفاتورة)))

بحيث ممكن اكتب رقم الفاتورة واضغط الزر فيستدعي كافة بياناتها من ورقة Store بعكس عملية الترحيل

هل ممكن احد الخبراء عملها استكمالا لهذا النموذج؟

====================

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

Bu3mmar_Invoices_Form.rar

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

السلام عليكم

الاخ الفاضل اكسيلجي _____________حفظه الله

افتقدناك اخي / اضافتك رائعة

وقد قمت بتعديل الكود لتجنب الاخطاء للترحيل:

في حالة لا توجد البيانات الضرورية في الفاتورة

Sub ترحيل()
Dim M As Integer, LastRow As Integer, intNewOrderNo As Integer
M = Application.CountA([B7:B18])
If M = 0 Or [C3] = "" Or [M3] = "" Or [M4] = "" Then MsgBox "EROOR": GoTo 1
KH = Array(Range("M3").Value, Range("M4").Value, Range("C3").Value)
With Sheet2
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    .Cells(LastRow, 1).Resize(M, 3) = KH
    .Cells(LastRow, 4).Resize(M, 3) = Cells(7, 2).Resize(M, 3).Value
    .Cells(LastRow, 7).Resize(M, 9) = Cells(7, 6).Resize(M, 9).Value
End With
Range("B7:B12,D7:D12,H7:H12").ClearContents
intNewOrderNo = Range("M3") + 1
Range("M3") = intNewOrderNo
1 End Sub

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

أخي وأستاذي الحبيب / خبور خير . يحفظه الله ويرعاه

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

هذه شهادة من استاذي أعتز بها وسامحني على الانقطاع وعدم التواصل معك ولكنك في القلب دائماً .

تقبل شكري وامتناني .

وهذه إضافة أخرى صغيرة لوضع تاريخ اليوم للفاتورة بعد الترحيل وبالطبع يستطيع المستخدم تغييره .

Sub ترحيل()
Dim M As Integer, LastRow As Integer, intNewOrderNo As Integer
M = Application.CountA([B7:B18])
If M = 0 Or [C3] = "" Or [M3] = "" Or [M4] = "" Then MsgBox "EROOR": GoTo 1
KH = Array(Range("M3").Value, Range("M4").Value, Range("C3").Value)
With Sheet2
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    .Cells(LastRow, 1).Resize(M, 3) = KH
    .Cells(LastRow, 4).Resize(M, 3) = Cells(7, 2).Resize(M, 3).Value
    .Cells(LastRow, 7).Resize(M, 9) = Cells(7, 6).Resize(M, 9).Value
End With
Range("B7:B12,D7:D12,H7:H12").ClearContents
intNewOrderNo = Range("M3") + 1
Range("M3") = intNewOrderNo
Range("M4") = Date
End Sub

تقبل حبي وتقديري

أخوكم

أبو عبدالله

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

بسم الله

ما شاء الله

لاحول ولا قوة الا بالله

===========

ما زال نهر الابداع فائضا يتدفق

ما زال في جعبة اخواننا المزيد من (الحب) و (الابداع)

===========

ادام الله فضلكم

وزاد في بركم

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

الاخوة الكرام

وجدت خطأً في بناء نموذج الفاتورة لذا وجب التنويه

------------------------------

في عمود حساب خدمة الضمان يتم ترحيل ضمان القطعة الواحدة فقط ولكن في النموذج المرفق تم التعديل لحساب الضمان للكمية بالكامل

خدمة الضمان = ضمان القطعة × الكمية

------------------------------

وتم اضافة احدث ابداعات اخواننا (اكسيلجي ، خبور خير)

------------------------------

ولا زلنا منتظرين المزيد من ابداعات الاخوة الفضلاء

===============

جزاكم الله خيرا

Bu3mmar_Invoices_Form.rar

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

السلام عليكم

اقتراح

================================

طريقتك بحساب الخارج بفواتير المبيعات

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

بدون داعي

واذا كررت الحساب بهذه الطريقة للداخل سيزيد الطين بله

================================

ما رايك بهذه الطريقة المستخدمة في المرفق

_______3.rar

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

استاذنا / خبور خير

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

جزاك الله خيرا على الاضافة الرائعة للمخزون

وللعلم

البيان الذي عدلته له غرض من ناحية البيانات المطلوبة للحسابات حيث يتم حساب المبيعات من الاصناف خلال فترة معينة

ولكن لا يقلل هذا من جهدك وفكرتك الرائعة

مرة اخرى وليست اخيرة

جزاك الله خيرا

---------------

احبابنا الكرام

حتى يكتمل النموذج

ارجو من الاخوة الفضلاء تزويدنا بكود استدعاء بيانات الفاتورة

جزاكم الله خيرا

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

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

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



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

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

Important Information