مطلوب دالة او كود لعمل رقم مسلسل

[حسام عبدالمحسن]

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

الاساتذة الكرام اريد دالة او كود لعمل رقم  تلقائى فى الفاتورة بحيث كل فاتورة بتصدر برقم محتاج كود يقوم بعمل الرقم تلقائى عند كل فاتورة جديدة بحيث يكون الرقم تسلسى مش ثابت يتم تغيرة بمجرد انشاء فاتورة جديدة

وشكرا

[Ali Mohamed Ali]

جرب هذا الكود

Quote

Sub Fill_Sequence()
    Dim i     As Long
        i = 100# - 1#
        With Range("A1")
        .Value = 1#
        .AutoFill Destination:=Range("A1").Resize(i + 1), Type:=xlFillSeries
    End With
End Sub

 

 

 

[حسام عبدالمحسن]

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

 

[احمد بدره]

بعد إذن الأستاذ على

قم بسنخ الكود ثم اذهب إلى المطور ثم اختر فيجوال بيسك  أو اضغط alt+f11  ثم اختر insert   تظهر قائمة اختر module

Book1.xlsm

[حسام عبدالمحسن]

اخى الكريم اريد الرقم فى خلية ثابتة ويتم تغيرة تلقائى مع كل فاتورة جديدة وتم ارفاق ورقة العمل للتوضيح اكثر وشكرا

 اريد تنفيذ الفكرة على ورقة فاتورة

 

Book1.xlsx

[Ali Mohamed Ali]

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

 

 

Quote

 

 

Serial.xls

[حسام عبدالمحسن]

شكرا استاذى العزيز  لمجهودكم الرائع