نموذج لفاتوره بدون فوروم-حفظ-تعديل-حزف

[إبراهيم ابوليله]

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

 

الاخوه الافاضل

 

بناء على طلب احد الاعضاء

 

الاخ طاهر محمد

على الرابط الاتى

http://www.officena.net/ib/index.php?showtopic=54367&page=1

 

تم عمل نموذج لفاتوره بدون فورم

 

حيث يمكنك التسجيل   والتعديل   والحزف

 

دون الجاجه الى وجود فورم

 

اردت فقط ان ارفع الملف فى موضوع جديد

 

لتعم الاستفاده على من يريد

 

تقبلو تحياتى

نموزج فاتورة بدون فورم نهائى.rar

[ضاحي الغريب]

اخي الفاضل أ/ ابراهيم ابو ليلة

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

جزاك الله خيراً على هذا العمل الجميل جعله الله في ميزان حسناتك.

لك كل التحية والتقدير.

[محمود_الشريف]

اخى فى الله

الأستاذ الكبير / ابراهيم ابو ليله

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

سائلا المولى عز وجل لكم ان يزيدكم من فضله ومن علمه

تقبل منى وافر الاحترام والتقدير

[جلال الجمال_ابو أدهم]

استاذ / ابراهيم
بارك الله فيك

[إبراهيم ابوليله]

اخي الفاضل أ/ ابراهيم ابو ليلة

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

جزاك الله خيراً على هذا العمل الجميل جعله الله في ميزان حسناتك.

لك كل التحية والتقدير.

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

استاذى الكبير واخى الحبيب ضاحى الغريب

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

فانت بالفعل واحد من الكثيرين الذين حببو الينا لغة البرمجه

وتعلمنا واستفدنا منك الكثير

فلا نستطيع ان ننكر افضالك علينا

بارك الله فيك

تقبل تحياتى

[إبراهيم ابوليله]

 

اخى فى الله

الأستاذ الكبير / ابراهيم ابو ليله

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

سائلا المولى عز وجل لكم ان يزيدكم من فضله ومن علمه

تقبل منى وافر الاحترام والتقدير

 

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

اخى محمود

بجد انا سعيد  بجودك فى المنتدى الجميل ده

وانا اسعد بمشاركتك ومتابعتك لمشاركاتى

اشكرك على الدعاء الجميل ده

وكل عام وانت بخير

تقبل تحياتى

[ashraf eddieb]

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

[محمد الريفى]

استاذى الحبيب والمبدع ابراهيم ابوليله

جزاكم الله خيرا فهذا الملف كلنا نطلبه دائما

اسال الله ان يزيدك علما ونفعا

[elsayedsad]

بارك الله فيك

[إبراهيم ابوليله]

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

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

اخى اشرف ان شاء الله يتم الشرح قريبا

تقبل تحياتى

[عبدالواحد احمد]

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

إبراهيم ابوليله

 

 

 

http://dc310.gulfup.com/sU85v3.xlsm?gu=qSVaZ3px5TtTXcwAMDj5wA&e=1414694044&n=66696c656e616d652a3d5554462d3827272544392538312544382541372544382541412544392538382544382542312544382541392532302544382541382544382541372544392538342544382541372544392538332544382542332544392538342d2e786c736d

تم تعديل أكتوبر 25, 2014 بواسطه abdalwahd

[تامر الشوربجي]

اخي الفاضل ابراهيم

تحية وتقدير لك علي هذا النموذج وهو تقريبا ما كنت ابحث عنه

ولكن تصادفني مشكلة وهي الخطا 424 ---- وذلك في ii = Sheet1.Range("i6").Value حيث انني قمت ببعض التعديلات حسب الملف الخاص بي (مرفق) ولكن يظهر لي هذا الخطا

 

ارجو ان سمح لك الوقت الاطلاع علي الملف المرفق - ومساعدتي 

 

مع خالص تقديري

- dataيناير 2015.rar

[إبراهيم ابوليله]

اخي الفاضل ابراهيم

تحية وتقدير لك علي هذا النموذج وهو تقريبا ما كنت ابحث عنه

ولكن تصادفني مشكلة وهي الخطا 424 ---- وذلك في ii = Sheet1.Range("i6").Value حيث انني قمت ببعض التعديلات حسب الملف الخاص بي (مرفق) ولكن يظهر لي هذا الخطا

 

ارجو ان سمح لك الوقت الاطلاع علي الملف المرفق - ومساعدتي 

 

مع خالص تقدير

اخى تامر

الخطأ الاول

ii = Sheet1.Range("g1").Value

وذلك الخطأ يحدث لان اسماء الشيتات عندك باللغه العربيه

وبذلك يكون الكود صحيح على النحو الاتى

ii = ورقة1.Range("g1").Value

وبذلك قم بتغير

كل ما هو مسمى فى الكود ب Sheet1

الى ورقه1

الخطأ الثانى

With sheet3

قم بتغير الكود الى

With ورقة2

وبذلك قم بتغير

كل ما هو مسمى فى الكود ب Sheet3

الى ورقه2

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

ملحوظه

قم بتغير هذا السطر الى

If Sheet1.Range("l2").Value = "" Then: Exit Sub

الى

If ورقة1.Range("G1").Value = "" Then: Exit Sub

للاستفاده يمكنك متابعة الرابط الاتى

تقبل تحياتى

[تامر الشوربجي]

مشكور اخي ابراهيم جاري التعديل

 

مع خالص تقديري

[وليد زقزوق]

رائع

[ابراهيم الحداد]

 

بارك الله فيك

[إبراهيم ابوليله]

مشكور اخي ابراهيم جاري التعديل

 

مع خالص تقديري

اخى تامر

اتمنى ان اكون وفقت فى ذلك

[إبراهيم ابوليله]

اخى زيزو

اخى وليد رزق

اشكركم على المتابعه

واتمنى ان يكون موضوع مستفاد منه

تقبلو تحياتى

[ابو الياس نبيل جمعان]

مشكورين وبارك الله فيكم

[مكتبة ريم]

ما شاء الله .. أسأل الله تعالى أن يجعل جهدك في ميزان حسناتك