ترقيم الفواتير

[محمود أبوسيف]

المطلوب

تظبيط تسلسل ترقيم الفواتير يعني لو الفاتورة الأولي أدخلت بها 50 صنف ونوع أو أي عدد من المبيعات يأخذوا رقم الفاتورة 1

والفاتورة التالية تبدأ من الفاتورة رقم 2 وهكذا لباقي ترقيم الفواتير  

ويبدأ ترقيم الفاتورة الجديدة بعد الضغط علي زر إضافة داخل الفورم

ترقيم الفواتير.rar

[ماكس]

رائع أخي الكريم ...

تقبل خالص تحياتي ..

[محمود أبوسيف]

أشكرك أخي الكريم  maxstreets

وننتظر الحل من الأخوة العباقرة

 

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

اليكم اخى الكريم

بالمرفقات المطلوب حسب فهمى 

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

 

ترقيم الفواتير1.rar

تم تعديل مارس 7, 2016 بواسطه محمود_الشريف

[محمود أبوسيف]

أخي الفاضل محمود الشريف أشكرك لاهتمامك واستجابتك

ولكن من فضلك هل من الممكن توضح لي ماذا فعلت لأنني لا أجد أي تغيير

 

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

اخى الكريم

ماذا تقصد من سؤالك ،، وماذا تعنى جملة (( لأننى لا أجد أى تغيير ))

منذ ساعه, محمود أبوسيف said:

ولكن من فضلك هل من الممكن توضح لي ماذا فعلت لأنني لا أجد أي تغيير

 

على ما اعتقد انكم طلبتم ترقيم تلقائى داخل الفورم 

ومرفق صورة توضح ذلك 

وقد اضفت كود داخل الفورم وهو

Private Sub UserForm_Activate()

Lr = Sheets("المبيعات").Cells(Rows.Count, 5).End(xlUp).Row
Me.Code_Fatora = Application.WorksheetFunction.Max(Sheets("المبيعات").Range("B6:B" & Lr)) + 1

End Sub

 

تم تعديل مارس 7, 2016 بواسطه محمود_الشريف

[محمود أبوسيف]

رائع أخي الكريم  محمود_الشريف

هذا هو المطلوب تقبل تحياتي