الرجاء المساعدة : اضافة كودين في زر الحفظ ارجو المساعدة ضروري اخواني

[Dr.Basel-D]

اخواني واساتذتي اروجو مساعدي لانو والله العظيم ارهقت من اعادة ادخال البيانات اكثر من مرة من شيت لاخر في نفس وقرة العمل اريد :

طلبي الاول :

اضافة كود لزر التخزين لدي يعمل على نسخ خلية رقم الفاتورة والتاريج واجمالي الفاتورة والتكلفة لشيا اخر بالترتيب .

طلبي الثاني :

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

 

ارجوووووووووووو المساعدة اخواني 

upload Invoice.zip

[Dr.Basel-D]

ارجوكم ساعدوني ضروري في ترحيل البيانات الى شيت اخر لو سمحتم بسرعة

[حمادة عمر]

السلام عليكم

الاخ الكريم / Dr.Basel-D

 

تفضل المرفق ان شاء الله به طلبك كما تريد

ولكن علي اوفيس 2003 حيث الاصدار الموجود لديك ليس لدي

ارجو ان يفي بطلبك

جزاك الله خيراً

 

upload Invoice+.rar

[عبدالله المجرب]

احسنت أخي حمادة

[احمد عبد الناصر]

السلام عليكم

 

استاذ حمادة تحياتي لك 

(جميلة حركة اضافة علامة + للملف المرفق )  

 

لاثراء الموضوع هذا حل اخر

Sub gooo()

x = Sheets("PROFETS").Cells(Rows.Count, 1).End(xlUp).Row + 1
With Sheets("PROFETS")
 .Cells(x, 1) = "INV:" & Sheets("INVOICE").[h6].Value
 .Cells(x, 2) = Sheets("INVOICE").[h7].Value
 .Cells(x, 4) = Sheets("INVOICE").[i34].Value
 .Cells(x, 5) = Sheets("INVOICE").[i37].Value
End With


End Sub

 

تحياتي

[حمادة عمر]

السلام عليكم

الاستاذ القدير / عبدالله المجرب  ( ابو احمد )

 

شهادة كبيرة من استاذ كبير مثلك تعني لي الكثير

وكل ما لدينا من فضل علمكم وماتعلمناه منكم استاذي الكريم

جزاك الله خيراً

[حمادة عمر]

السلام عليكم

الاستاذ والاخ الكريم / احمد عبد الناصر

 

بارك الله فيك علي اضافتك حل جميل وكود جميل

 

وعلي فكرة بالنسبة لملاحظة اضافة علامة ( + ) للمرفق ... ان منتظرها بقالي فترة ... حمد الله ع السلامة

وعلي فكرة واخدها من احد اعضاء هذا المنتدي ( من غير ما يعرف ) اسمه / احمد عبد الناصر  ..... هههههه             
 

 

جزاك الله خيراً

[احمد عبد الناصر]

حياك الله اخي حمادة  

[Dr.Basel-D]

شكرا اخوووووواني واساتذتي الاعزاء كتير استفدت من الاراء والحلول شكرا جزيلا