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

[محبوب7]

السلام عليكم

 

 هل ممكن طريقة او معادلة يتم من خلالها تغيير رقم الفاتورة بالتسلسل 

 

يعني بمجرد الانتقال الى ورقة العمل الثانية يتغير رقم الفاتورة الى 1501 مباشرة 

ABC.rar

تم تعديل يوليو 18, 2013 بواسطه محبوب7

[قنديل الصياد]

السلام عليكم

اخى العزيز كل عام وحضرتك بخير

اتمنى ان يكون هذا هو المطلوب

بمجرد الكتابة فى الخلية B  سيظهر الرقم تلقائيا

=IF(B3="";"";ROW()-3+$A$1)

مرفق الملف بعد التعديل

ABC.rar

 

 

 

 

 

 

 

 

[حمادة باشا]

محاولة قد تلبي المطلوب

 

ABC.rar

 

[محبوب7]

بارك الله فيك اخي حمادة

 

  رمضان مبارك

[قنديل الصياد]

جهد مشكور استاذ حمادة

وكل عام وحضرتك بخير

[محبوب7]

كيف انسخ المعادلة 

 

لان المعادلة لا تعمل مجلدات اكسل اخرى 

[قنديل الصياد]

اى معادلة تريد نسخها اخى العزيز

التى  وردت فى ملف الاستاذ حمادة

ام الملف المرفق منى وعموما

سانسخ لك المعادلتين

=IF(B3="";"";ROW()-3+$A$1)

=1499+SheetNum()

[محبوب7]

المعادلة الثانية اذا نسختها في مجلد اكسل اخر لا تعمل 

 

 تكتب لي NOM

 

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

[محبوب7]

هل من ردود

[قنديل الصياد]

اخى العزيز

 

انسخ هذا الكود وضعه فى ملفك الجديد

ثم ضع المعادلة فى اوراق العمل وستعمل جيدا

 
Function SheetNum(Optional celRef As Range) As Long
     
    With Application.Caller.Parent
        If celRef Is Nothing Then
            SheetNum = .Index
        Else
            SheetNum = celRef.Parent.Index
        End If
    End With
     
End Function

المعادلة

=1499+SheetNum()

جرب واعلمنى بالنتيجة

 

[قنديل الصياد]

مرفق ملف به التطبيق

 

الاستاذ_محبوب.rar

 

 

 

[محبوب7]

كيف انسخ الكود في الملف الجديد يا استاذقنديل من فضلك

[محبوب7]

هل من مساعدة

[قنديل الصياد]

افتح ملف اكسل جديد

وقم بالضغط على Alt+f11

سيتم فتح محرر الاكواد vb

ثم اتبع الموجود فى الصورة التالية

ثم قم باغلاق محرر الاكواد

[محبوب7]

الحمد لله لقد نجحت  

 

 

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

 

ورمضان مبارك اخي قنديل الصياد

[مصطفى كمال متولى]

استاذ قنديل

الله يجازيك كل خير فى افهام الاخرين

[حمادة باشا]

الأخ/ محبوب

عذرا لم أكن متواجدا للرد علي إستفسارك ولقد قام الأستاذ/ قنديل بالمطلوب جزاه الله خيرا

 

الأستاذ/ قنديل

تشرفنا بمعرفتك ، وكل عام وحضرتك بخير

[قنديل الصياد]

شكرا اخوانى واساتذتى الافاضل

وكل عام وحضراتكم بخير

[locabry]

بعد اذنك استاذ قنديل عندي مشكل انا مصمم فاتورة على شييت واحد بس عايز اضيف زر معين اضغط عليه يعطيني رقم جديد بعد ما اخلص ادخال الفاتورة

Book1.rar

[قنديل الصياد]

بعد اذنك استاذ قنديل عندي مشكل انا مصمم فاتورة على شييت واحد بس عايز اضيف زر معين اضغط عليه يعطيني رقم جديد بعد ما اخلص ادخال الفاتورة

اخى الحبيب قم برفع الملف مرة اخرى لان الملف به مشكلة عند الفتح

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

[locabry]

السيد قنديل المحترم

اشكرك على سرعة تجاوبك هذا هو الملف مرفق واعذرني لاني في عجلة من امري

Book1.rar

[إبراهيم ابوليله]

الاخ حماده

كود رائع جدا

مشكورا عليه

ونوجه الشكر ايضا للاخ قنديل

على سعة صدره فى الردود