رفيق محمد قام بنشر يوليو 20, 2008 مشاركة قام بنشر يوليو 20, 2008 الإخوة الكرام مشرفي وأعضاء وزوار هذا المنتدى الرائع السلام عليكم ورحمة الله تعالى وبركاته ==================== اقدم لكم نموذج فواتير رائع "في تصوري" حيث يسهل عليك من الورقة Invoice عملية اصدار الفاتورة بخطوات سهلة وميسرة وبدقة رائعة "بحمد الله تعالى" معادلات جميلة وماكرو تفقيط القيم اتوماتيكيا وكلها من ابداعات اساتذتنا من اعضاء هذا المنتدى الطيب. ------------------------- ولكن يا للاسف ويا للخسارة النموذج يحتاج لبعض الاضافات التي اسال الله ان يعين اخواننا عليها ------------------------ المطلوب :- (1) دالة تفقيط الكميات بدون (فقط، جنيه، قرش، لاغير) ... ارقام فقط (2) مطلوب زر ترحيل جميع بيانات الفاتورة الى الورقة 'Store' حسب الاعمدة المبينة بها بحيث يتم تنزيل بيانات جميع الفواتير الصادرة في جدول واحد. =================== ارجو من خبراءنا الكرام مساعدتي في عمل الدوال المطلوبة وجزاكم الله خيرا Bu3mmar_test3.rar رابط هذا التعليق شارك More sharing options...
Ahmed Emannan قام بنشر يوليو 20, 2008 مشاركة قام بنشر يوليو 20, 2008 شكرا وبارك الله فيك رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر يوليو 20, 2008 مشاركة قام بنشر يوليو 20, 2008 (معدل) اخي الكريم السلام عليكم الطلب الاول تم الطلب الثاني يحتاج لوقت فاما يتم عمله من احد الاخوة او عندما اجد وقت ارسله لك Bu3mmar_test3.rar تم تعديل يوليو 20, 2008 بواسطه نزار سليمان عيد رابط هذا التعليق شارك More sharing options...
رفيق محمد قام بنشر يوليو 20, 2008 الكاتب مشاركة قام بنشر يوليو 20, 2008 بارك الله فيك اخي Stiffmiller بارك الله فيك اخي نزار وبارك الله في اعماركم واوقاتكم جزاكم الله خيرا يبدو انه حدث خطا في تحميل المرفق لديكم فليس هذا المرفق المطلوب لهذا الموضوع رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر يوليو 20, 2008 مشاركة قام بنشر يوليو 20, 2008 اخي الكريم السلام عليكم تم تعديل المرفق على نفس المشاركة انظر للمرفق Bu3mmar_test3.rar رابط هذا التعليق شارك More sharing options...
رفيق محمد قام بنشر يوليو 20, 2008 الكاتب مشاركة قام بنشر يوليو 20, 2008 الأخ / نزار جزاك الله كل الخير ========== وبخصوص تعديل المرفق في المشاركة اقول : ايوة يا عم "واسطة" ========== وطلب متعب شوية اذا يسر الله لك الوقت هل يمكن حذف (فقط + لاغير) من خانة تفقيط الكمية لاجل توفير مساحة عرض العمود مع ابقائها في خانة مجموع القيمة؟؟؟ ========== تسمحلي اراسلك على الخاص؟؟؟ ========== جزاكم الله كل الخير رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر يوليو 20, 2008 مشاركة قام بنشر يوليو 20, 2008 اخي الكريم السلام عليكم انظر للمرفق كذلك يمكنك مراسلتي على الايميل الخاص فقط ارسل ايميلك لكي ارسل لك الايميل Bu3mmar_test3.rar رابط هذا التعليق شارك More sharing options...
رفيق محمد قام بنشر يوليو 20, 2008 الكاتب مشاركة قام بنشر يوليو 20, 2008 اخي : نزار جزاك الله كل خير وبارك الله فيك كان نفسي اشكرك شكر خاص على الخاص يسعدني مراسلتك على Bu3mmar@uae.us رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يوليو 21, 2008 مشاركة قام بنشر يوليو 21, 2008 السلام عليكم تفضل اخي على السريع Bu3mmar_test3.rar رابط هذا التعليق شارك More sharing options...
رفيق محمد قام بنشر يوليو 22, 2008 الكاتب مشاركة قام بنشر يوليو 22, 2008 استاذنا خبور الخير كنت منتظر هذا الابداع منك جزاك الله كل الخير ------------------------------------------------------------- كان نفسي اتعلم اكواد الـVBA عشان اريحك من مشاكلي وتتفرغ لابداعاتك الرائعة يا ريت لو احد من الاخوة الاعضاء يدلني على طريقة او مكان في مصر اتعلم فيه ويبقى جزاه الله خيرا ------------------------------------------------------------ طبعاً طلباتي لن تنتهي حتى يكتمل النموذج لعل الله ان ينفع به (1) الغاء التعبئة الصفراء التي تظهر مع كود التفقيط في خانات الكمية "لازلت احاول البحث عنها داخل الكود" ========== اخي faresme الملفات سليمة والمنتدى منتظم حاول مرة اخرى ولو اردت ارسل لنا ايميلك ونرسل لك المطلوب ========== جزا الله القائمين على هذا المنتدى كل الخير رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يوليو 22, 2008 مشاركة قام بنشر يوليو 22, 2008 أخي العزيز BU3MMAR تم علاج موضوع التعبئة باللون الأصفر في عمود تفقيط الكميات كما طلبت وكانت مشكلة فورمات وليست من الكود وقمت بإضافة ميزة مسلسل تلقائي للفاتورة بعد كل ترحيل بالكود أرجو أن يعجبك والشكر موصول لأستاذنا الرائع خبور خير الذي يتحفنا دائماً بالروائع . أخوكم أبو عبدالله BU3MMAR_TEST3.rar رابط هذا التعليق شارك More sharing options...
رفيق محمد قام بنشر يوليو 22, 2008 الكاتب مشاركة قام بنشر يوليو 22, 2008 اخي الحبيب اكسيلجي مع خالص التقدير والاحترام "أعتقد" ان المشكلة ليست في الفورمات بل هي في الكود لانها تحدث مع الخلايا التي بها الكود فقط حتى بعد تعديلاتك الرائعة بمجرد كتابة اول كمية في اول صف يتغير تنسيق الخلايا التي بها الكود وجربها للعلم والفائدة =========== وأبشر جميع اخواني في المنتدى فقد انتهيت من التعديلات المطلوبة بفضل الله ثم بفضل معونة اخواني الكرام فقد تم اضافة (1) زر الترحيل الرائع (من اسهامات اخونا خبور الخير) (2) التسلسل المتتابع لارقام الفواتير بعد الترحيل (من اسهامات اخونا اكسيلجي) (3) تفقيط الكميات وتفقيط المبالغ (من اسهامات استاذنا نزار) ========== والآن يمكنك * اعداد الفاتورة بطريقة سهلة وميسرة جدا ودقيقة في نفس الوقت وفي ثمان حركات فقط (كما هو موضح في الملف) * ترحيل الفاتورة الى جدول بيانات شامل وواضح لجميع الاستخدامات * التسجيل الدقيق لاسماء العملاء وبياناتهم دون التعرض لاخطاء كتابية وخلافه * التسجيل الدقيق لانواع الاصناف وتفاصيلها دون التعرض لاخطاء التسعير * جمع تفصيلي للقيم وللضرائب والخصومات * ممكن اضافة هذا النموذج الى حسابات العملاء ----------> لكن ... بقيت اضافة واحدة لاكمال الشكل النهائي للفاتورة ((( مطلوب زر استدعاء بيانات الفاتورة))) بحيث ممكن اكتب رقم الفاتورة واضغط الزر فيستدعي كافة بياناتها من ورقة Store بعكس عملية الترحيل هل ممكن احد الخبراء عملها استكمالا لهذا النموذج؟ ==================== مع خالص حبي وتقديري لجميع الاخوة المشاركين في هذا المنتدى الرائع Bu3mmar_Invoices_Form.rar رابط هذا التعليق شارك More sharing options...
القلوب الساهيه قام بنشر يوليو 22, 2008 مشاركة قام بنشر يوليو 22, 2008 مشكور على البرنامج رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يوليو 22, 2008 مشاركة قام بنشر يوليو 22, 2008 (معدل) السلام عليكم الاخ الفاضل اكسيلجي _____________حفظه الله افتقدناك اخي / اضافتك رائعة وقد قمت بتعديل الكود لتجنب الاخطاء للترحيل: في حالة لا توجد البيانات الضرورية في الفاتورة 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 تم تعديل يوليو 24, 2008 بواسطه خبور خير رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر يوليو 22, 2008 مشاركة قام بنشر يوليو 22, 2008 أخي وأستاذي الحبيب / خبور خير . يحفظه الله ويرعاه السلام عليكم ورحمة الله وبركاته هذه شهادة من استاذي أعتز بها وسامحني على الانقطاع وعدم التواصل معك ولكنك في القلب دائماً . تقبل شكري وامتناني . وهذه إضافة أخرى صغيرة لوضع تاريخ اليوم للفاتورة بعد الترحيل وبالطبع يستطيع المستخدم تغييره . 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 تقبل حبي وتقديري أخوكم أبو عبدالله رابط هذا التعليق شارك More sharing options...
رفيق محمد قام بنشر يوليو 22, 2008 الكاتب مشاركة قام بنشر يوليو 22, 2008 بسم الله ما شاء الله لاحول ولا قوة الا بالله =========== ما زال نهر الابداع فائضا يتدفق ما زال في جعبة اخواننا المزيد من (الحب) و (الابداع) =========== ادام الله فضلكم وزاد في بركم رابط هذا التعليق شارك More sharing options...
رفيق محمد قام بنشر يوليو 23, 2008 الكاتب مشاركة قام بنشر يوليو 23, 2008 اخواني الاعزاء السلام عليكم ورحمة الله وبركاته -------------- لازلنا ننتظر المزيد من الابداع في عملية استدعاء بيانات الفاتورة ------------- جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
رفيق محمد قام بنشر يوليو 24, 2008 الكاتب مشاركة قام بنشر يوليو 24, 2008 الاخوة الكرام وجدت خطأً في بناء نموذج الفاتورة لذا وجب التنويه ------------------------------ في عمود حساب خدمة الضمان يتم ترحيل ضمان القطعة الواحدة فقط ولكن في النموذج المرفق تم التعديل لحساب الضمان للكمية بالكامل خدمة الضمان = ضمان القطعة × الكمية ------------------------------ وتم اضافة احدث ابداعات اخواننا (اكسيلجي ، خبور خير) ------------------------------ ولا زلنا منتظرين المزيد من ابداعات الاخوة الفضلاء =============== جزاكم الله خيرا Bu3mmar_Invoices_Form.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يوليو 24, 2008 مشاركة قام بنشر يوليو 24, 2008 (معدل) السلام عليكم اقتراح ================================ طريقتك بحساب الخارج بفواتير المبيعات وكثرة المعادلات يسبب زيادة في حجم الملف بدون داعي واذا كررت الحساب بهذه الطريقة للداخل سيزيد الطين بله ================================ ما رايك بهذه الطريقة المستخدمة في المرفق _______3.rar تم تعديل يوليو 24, 2008 بواسطه خبور خير رابط هذا التعليق شارك More sharing options...
رفيق محمد قام بنشر يوليو 26, 2008 الكاتب مشاركة قام بنشر يوليو 26, 2008 استاذنا / خبور خير السلام عليكم ورحمة الله وبركاته جزاك الله خيرا على الاضافة الرائعة للمخزون وللعلم البيان الذي عدلته له غرض من ناحية البيانات المطلوبة للحسابات حيث يتم حساب المبيعات من الاصناف خلال فترة معينة ولكن لا يقلل هذا من جهدك وفكرتك الرائعة مرة اخرى وليست اخيرة جزاك الله خيرا --------------- احبابنا الكرام حتى يكتمل النموذج ارجو من الاخوة الفضلاء تزويدنا بكود استدعاء بيانات الفاتورة جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
محمد عسكر قام بنشر يوليو 27, 2008 مشاركة قام بنشر يوليو 27, 2008 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.