احمد ابو ريان قام بنشر فبراير 11, 2016 قام بنشر فبراير 11, 2016 السلام عليكم ورحمة الله وبركاتة مرفق ملف اكسيل وهناك مطلبين : 1- كود ترقيم تلقائى للفاتورة 2- عند ترحيل بيانات الفاتورة الى شيت المبيعات يتم ترحيل عدد الاصناف المدونة فى الفاتورة الى شيت المبيعات ويت ترحيل رقم الفاتورة واسم العميل وكود العميل والتاريخ مرة واحدة . المطلوب تكرار ترحيل رقم الفاتورة والتاريخ وكود العميل واسم العميل بعدد الصناف المرحلة الى شيت المبيعات ولكم جزيل الشكر احمد شعبان.rar 1
طارق محمود قام بنشر فبراير 11, 2016 قام بنشر فبراير 11, 2016 السلام عليكم الكود التالي في حدث ورقة فاتورة المبيعاتيقوم بعملية الترقيم التلقائي للفاتورة 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) 1
طارق محمود قام بنشر فبراير 11, 2016 قام بنشر فبراير 11, 2016 السلام عليكم أضفت سطرين للكود الأصلي ليقوم بتكرار ترحيل رقم الفاتورة والتاريخ وكود العميل واسم العميل بعدد الأصناف المرحلة تفضل المرفق احمد شعبان2.rar 1
ناصرالمصرى قام بنشر فبراير 11, 2016 قام بنشر فبراير 11, 2016 اخى العزيز الاستاذ طارق محمود السلام عليكم افهم من كلام حضرتك أن الترقيم لايتم الابعد ترحيل كل فاتورة ارجو الافاده وجزاكم الله خيرا
طارق محمود قام بنشر فبراير 11, 2016 قام بنشر فبراير 11, 2016 أخي الكريم تماما ، كما فهمت أنا أيضا من السائل الكود الموجود أصبلا بالملف يرحل الفاتورة للورقة الأولي (المبيعات) ويحذف بيانات الفاتورة في صفحة فاتورة المبيعات فإذا لم تكن هناك فواتير مُرحلة من قبل فستكون هي الأولي وإلا يأخذ رقم آخر ماتم ترحيله ويضيف له 1
احمد ابو ريان قام بنشر فبراير 11, 2016 الكاتب قام بنشر فبراير 11, 2016 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) شكرا جدا يا استاذى الفاضل على مجهودك العظيم وجزاك الله خير شكرا استاذ طارق محمود على مجهودك الذى يساعد على محتاج على المعرفة والعلم وجعلة الله فى ميزان حسناتك
الردود الموصى بها