ترقيم الفواتير تلقائياً

[سنجاغ]

سلام يا شعب

حبيت أستفيد من خبراء الإكسيل في كيفية الترقيم التلقائي عند فتح الملف في كل مرة وإعطاء الفاتورة رقم مختلف عن السابق واللاحق

أرجو الشرح بالتفصيل الممل

تقبلوا تحياتي

مرفق الملف

Invoice.rar

[ابو اسامة العينبوسي]

بسم الله الرحمن الرحيم

السلام عليكم و رحمة الله و بركاته

Private Sub Workbook_Open()
Sheets(1).[h9] = [h9] + 1
End Sub

Invoice2.rar

تم تعديل يونيو 23, 2009 بواسطه ابو اسامة العينبوسي

[سنجاغ]

وعليكم السلام ورحمة الله

أخي العزيز مشكلتي أني معرفش فين يحطو الكود

أرجو الإفادة

مع الشكر الجزيل

[زياد علي]

الاخ العزيز سنجاغ

وبعد إذن اخونا الخبير ابو اسامة

خطوات ادراج كود بأسهل طريقة :

1- قم بنسخ الكود اعلاه .

2- بالملف المرفق Invoice2 قم بإدراج اي شكل تلقائي تراه مناسباً.

3-كليك يمين على الشكل التلقائي المختار واختر تعيين ماكرو.

4- من تعيين ماكرو اختر تحرير وقم بلصق الكود المنسوخ .

ارجو أن يكون الشرح واضح

[زياد علي]

انظر لملف المرفق

وتحية اكبار وإجلال لصاحب الفضل

السيد المحترم ابو اسامة العينبوسي.

Invoice3.rar

[ghassan_aa]

السلام عليكم يا جماعة ،،،

يمكن تتطبيق هذه الخاصة على ملفات الوررد ؟؟؟

وشكرا

[أحمد عبدالعزيز]

شكراً على هذا الإبداع والمستوى الراقى والمحترم لجميع الساده الزملاء سواء فى طريقة العرض أو حتى فى طريقة الإستفسار والتعليق

شكراً لكم جميعاً أيها الأخوة الأفاضل