كيفية ترقم الفاتورة تلقائى

[احمد ابو ريان]

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

مرفق ملف اكسيل وهناك مطلبين :

1- كود ترقيم تلقائى للفاتورة

2- عند ترحيل بيانات الفاتورة  الى شيت المبيعات يتم ترحيل عدد الاصناف المدونة فى الفاتورة الى شيت المبيعات ويت ترحيل رقم الفاتورة واسم العميل وكود العميل والتاريخ مرة واحدة . المطلوب تكرار ترحيل رقم الفاتورة والتاريخ وكود العميل واسم العميل بعدد الصناف المرحلة الى شيت المبيعات

ولكم جزيل الشكر

احمد شعبان.rar

[طارق محمود]

السلام عليكم

الكود التالي في حدث ورقة فاتورة المبيعاتيقوم بعملية الترقيم التلقائي للفاتورة

Private Sub Worksheet_Activate()
xx = Sheets(1).[A999999].End(xlUp)
If IsNumeric(xx) Then n = xx + 1 Else n = 1
[G6] = n
End Sub

سوف يقوم بمراجعة ورقة المبيعات العمود الأول إذا كان تم ترحيل فواتير لها سابقا سيأخذ آخر رقم بالعمود A ويضيف عليه 1 ويجعله هو رقم الفاتورة الجديدة
وإلا سيكون رقمها هو (1)

[طارق محمود]

السلام عليكم

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

تفضل المرفق

احمد شعبان2.rar

[ناصرالمصرى]

اخى العزيز الاستاذ  طارق محمود

السلام عليكم

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

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

[طارق محمود]

أخي الكريم
تماما ، كما فهمت أنا أيضا من السائل
الكود الموجود أصبلا بالملف يرحل الفاتورة للورقة الأولي (المبيعات) ويحذف بيانات الفاتورة في صفحة  فاتورة المبيعات
فإذا لم تكن هناك فواتير مُرحلة من قبل فستكون هي الأولي وإلا يأخذ رقم آخر ماتم ترحيله ويضيف له 1

[احمد ابو ريان]

6 ساعات مضت, طارق محمود said:

السلام عليكم

الكود التالي في حدث ورقة فاتورة المبيعاتيقوم بعملية الترقيم التلقائي للفاتورة

Private Sub Worksheet_Activate()
xx = Sheets(1).[A999999].End(xlUp)
If IsNumeric(xx) Then n = xx + 1 Else n = 1
[G6] = n
End Sub

سوف يقوم بمراجعة ورقة المبيعات العمود الأول إذا كان تم ترحيل فواتير لها سابقا سيأخذ آخر رقم بالعمود A ويضيف عليه 1 ويجعله هو رقم الفاتورة الجديدة
وإلا سيكون رقمها هو (1)

شكرا جدا يا استاذى الفاضل على مجهودك العظيم وجزاك الله خير

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

[abanoub]

محتاج افهم طريقه عمل الترقيم