اذهب الي المحتوي
أوفيسنا

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


Dr.Basel-D
إذهب إلى أفضل إجابة Solved by حمادة عمر,

الردود الموصى بها

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

طلبي الاول :

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

طلبي الثاني :

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

 

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

upload Invoice.zip

رابط هذا التعليق
شارك

  • أفضل إجابة

السلام عليكم

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

 

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

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

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

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

 

upload Invoice+.rar

رابط هذا التعليق
شارك

السلام عليكم

 

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

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

 

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

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

 

تحياتي

رابط هذا التعليق
شارك

السلام عليكم

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

 

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

 

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

 

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

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

 

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

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information