اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

فاتورة بيع 2 _ معدلة


sft

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

من البرامج الجميلة التي قام الاخ محمد حسين مسلم بتصميمها ( فاتورة االبيع 2 ) وحيث ان ان حقوق التعديل غير محفوظة قمت ببعض التعديلات البسيطة لكي يستفيد منها من ارادها .... ولكن للاسف الفرحه لم تتم ... لانني لم استطع تصفير الفاتوره لكي تصبح بكرا لمن اراد ادخال بياناته ... والسبب انني لما اريد تصفيرها تأتيني رسالة خظأ .... ولكي تتم الفرحة أمل من الاخ محمد حسين مسلم او احد الاخوة الكرام التكرم بحل ه>ا اللغز ومن ثم رفعها للمنتدى .... وكل عام وانتم بخير ..

فاتورة بيع 2 _ معدلة.rar

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

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

لاثراء الموضوع

بعد اذن اخى ابسم

اليك المطلوب فى زر

ادخل البيانات ثم اضغط على زر افراغ البيانات

فاتورة بيعKo.rar

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

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

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

السلام عليكم

اخى ابسم

هذا لن يتاتى شيئ فى بحر علمك

عزيزى sft

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

ولكن يفضل تغير البنية الاساسية لمعادلات فاتورة المحل بحيث تصبح تعتمد عل البيانات المدخلة بفاتورة العميل (طالما ان الفتاورتان متطابقتان)

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

اخوكم

Konafa400

فاتورة بيعKo.rar

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

اخي konafa4000 اشكرك على تواضعك الجم ...

فقد قمت بالتعديلات النهائية للفاتورة .. ولي طلب منكم بأن تتكرم بوضع ((( فقط ))) مكرو تفريغ البيانات على الورقه التي بالمرفق دون تعديل ... ولو امكنك شرح طريقة عمل ه>ا المكرو اكون لك من الشاكرين ...

مع انني لدي افكار له>ه الورقة بأن اضيف ترقيم متسلسل .. وترحيل كل ورقة لوقة يجمع فيها قيمة كل ورقة لمعرفة ما بيع مثلا خلال شهر مع ترحيل تاريخ الورقة المرحلة.(يعني المرحل الاجمالي للمبلغ + تاريخ الفاتورة)

اخوك ... sft

فاتورة بيع 2 _ التعديل النهائي.rar

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

السلام عليكم

اخى العزيز

اليك المرفق

الماكرو بسيط جدا


 Sub KonafaClearing()

Application.ScreenUpdating = False

Range("b5:h5").ClearContents

Range("b6:d6").ClearContents

Range("g9:h9").ClearContents

Range("g10:h10").ClearContents

Range("c12:h30").ClearContents

Range("b12:b30").Value = ""

Application.ScreenUpdating = True

Range("b3").Select


End Sub


الشرح سطر سطر للكود

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

النطاق من b5:h5 الذى يحتوى على العنوان يتم افراغه

ثم النطاق من b6:d6 الذى يحتوى على الاسم يتم افراغه

ثم النطاق من g9:h9 الذى يحتوى على الادارة يتم افراغه

ثم النطاق من g10:h10 الذى يحتوى على التليفون يتم افراغه

ثم النطاق من c12:h30 الذي يحتوى على خانة البيانات والملاحظات وخانة الكمية يتم افراغهم

ثم النطاق من b12:b30 الذى يحتوى على السعر فتم افراغها بجعل قيمتها "" اى مثل clearContents (عدم جعل قيم هذه الخلايا =0 حتى لا تحدث اخطأ فى المعادلات الموجودة بفاتورة المحل)

ثم اعاده جعل خاصية تحديث الشاشة = صح

بالنسبة الى افكارك الاخرى فتقبل اعتزارى (لم استطيع فهم ما تريده بالضبط )

اخوك

Konafa4000

فاتورة بيع 2 _ معدلة3.rar

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

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

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



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

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

Important Information