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