كود إستدعاء فاتورة

[kamelgasmi]

إخوتي في منتدانا الغالي أوفيسنا

أتمنى من جميع المحترفين والمتمكنين في إكسل مساعدتي بالتعديل على ملفي المرفق

وهو عبارة عن فاتورة ويومية إكسل جمعت أكوادها من هذا المنتدى  ومن مصادر أخرى

وأرجو منكم التعديل والإضافة عليه ليكون برنامج كاملا

مع العلم أن هذا البرنامج خاص بمكتبة (أدوات مدريسية)

وشكرا للجميع مسبقا

المطلوب هو التعديل على الملف بشكل كامل 

كتصحيح الأخطاء ...إضافة أكواد... إضافة المخزون الصادر والوارد ....إلخ

أقصد أن يعدل على الملف حسب ما تجده مناسبا

وشكرا للجميع

https://drive.google.com/open?id=1ZBqrdj8Wht9xHDJ7Lw_enp9i6tR7cRPy

 

 

[مهند محسن]

لا يمكن عمل كل هذا !!

فالطلبات كده كتير جدا ووقت الأساتذة لا يسمح بكل هذا ,لأن هناك ايضا زملائك من باقى الأعضاء يحتاجون خدمات الأساتذة والخبراء

[kamelgasmi]

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

الرجاء من الأساتذة الكرام في منتدانا أوفيسنا مساعدتي في إنشاء كود إستدعاء فاتورة

بالإضافة إلى كود منع تكرار الأسماء في الليست بوكس 

وشكرا جزيلا

فاتورة.xlsm

[سليم حاصبيا]

جرب هذا الكود

Private Sub UserForm_Activate()
Dim x, dic As Object
Set dic = CreateObject("Scripting.Dictionary")
    With Sheets("الأرشيف")
      x = 4
      Do Until .Cells(x, 4) = vbNullString
        dic(.Cells(x, 4).Value) = vbNullString
        x = x + 1
      Loop
        Me.ListBox1.List = dic.keys
    End With
    Set dic = Nothing
End Sub

 

[kamelgasmi]

شكرا لك أخي 

لكن بقي كود إستدعاء الفاتورة

[سليم حاصبيا]

لا أعلم لماذا كل هذه التعقيدات في الملف    يوزر فورم و تكس بوكس الى ما هنالك 

انظر الى هذا الملف البسيط 

My_facture.xlsm