اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

طلبي الاول :

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

طلبي الثاني :

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

 

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

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