الـعيدروس

السلام عليكم اخي الفاضل himass بخضوص ارفاق البرنامج في مكتبة المنتدى الامر راجع للاستاذ الحبيب عبدالله المجرب لانه هو صاحب الفكره والبرنامج الاضافه من قبلي تعديلات لاتذكر تقبل تحياتي وشكري اخي الفاضل amfouad555 الاوفيس الذي لدي 2003 انا اسف ياريت احد الاعضاء الذي لديه 2007 يحفظ البرنامج لـ 2007 ويرفقه

جرب المرفق جربت اضفت مستخدم جديد وحددت له صلاحيات دخلت بالمستخدم طبقت الصلاحيات المحدده وتم تغير الاسم الى مسئول النظام وبخصوص صفحة MYDATE حط مخفي لصلاحيات جميع المستخدمين ماعدى مسئول النظام وسوف تختفي من الكل واي ملاحظه او تعديل لاتتردد بطرحها صلاحيات المستخدم_.rar

لو إسم المورد كيف تريده ثابت بأسم الشركة ؟؟ حسب فهمي لملفك From هو اسم الشركه ؟ سوف اعمل عليه وارفقه قريبا ان شاء الله اجل تريد ترحيل امر الشراء في ورقة منفصله فقط وليس في الورقة الرئيسية وورقة جديدة ؟؟؟ حدد البيانات الثابته للمورد كي يضاف اعمده في ورقة DATA وتكون كداتا للبيانات الثابته لكل عميل مثلا اسم المورد العنوان تلفون فاكس الخ ...... ويضاف فورم خاص بإدخال كود جديد او مورد جديد او التعديل على البيانات الثابته لمورد معين اما تعديل رقم التلفون او العنوان لخ ... بسيط إن شاء الله بيكون مع التعديل الأخير

اين المواد التي تريد ترحيلها بشكل قطري ؟ احمد = قران طيب يرحل بشكل قطري على أي يوم وفي اليوم نفسه على اي عمود 1 او 2 او الخ ...... مزيد من التوضيح عن اليه العمل الذي تريده

لم اعمل على هذه الملحوظه شاهدت ردك بعد المشاركه إن شاء الله ان وجدت وقت في المساء سوف اعمل عليه تحياتي

شاهد المرفق ان شاء الله ملاحظاتك تمت المعالجه أرجو التجربه برنامج صلاحيات المستخدمين_A-6.rar

السلام عليكم لأوفيس 2007 حفظ بأسم ثم من قائمة حفظ بنوع واختار السطر التالي Excel 2007 Macro-Enabled Workbook (*.xlsm)

جرب المرفق واي تعديل انا موجود برنامج صلاحيات المستخدمين_A-4.rar

السلام عليكم شاهد التعديل في المرفق ارجو ان يكون به ماتريد واي تعديل انا موجود برنامج صلاحيات المستخدمين_A-2.rar

السلام عليكم الاخ الفاضل Ahmed Dawam توصلت الى عمل ليس بكفائة عاليه وحصلت على ملف من عمل للأستاذ العبقري عبدالله باقشير فعدلت عليه لما يتناسب مع عملك وهذا بعد اذنه كبدايه اطلع على المرفق اذا هكذا ماشيين تمام نكمل ماتبقى purchases order_A.rar

منتظر النموذج المتقدم وإن شاء الله خير

ابو ميار مرفقه في الرد رقم 26#

ارجو توضيح عمل زر إدراج جديد شاهد المرفق برنامج صلاحيات المستخدمين_A.rar

ربماذ بهذه الطريقة يلبي طلبك Sub Prnt_A() On Error Resume Next Dim R As Range, R1 As Range, R2 As Range, R3 As Range Set R = Range("A4:U93"): Set R1 = Range("A103:U117") Set R2 = Range("A127:U141"): Set R3 = Range("A142:U147") With R .Cells(1, 21).AutoFilter 21, "<>" .PrintPreview .AutoFilter End With With R1 .Cells(1, 21).AutoFilter 21, "<>" .PrintPreview .AutoFilter End With With R2 .Cells(1, 21).AutoFilter 21, "<>" .PrintPreview .AutoFilter End With With R3 .Cells(1, 21).AutoFilter 21, "<>" .PrintPreview .AutoFilter End With End Sub

خيار الجميع خالي ماذا تقصد بهذ الخيار ؟ وماالفرق بينه وبين مشاهده وتعديل ! والصلاحيات تحدد لمستخدم معين اذا هكذا تقصد يلزم ننشاء كمبوبكس جديد وبه أسماء المستخدمين ويستخدم في حال اردت تغير صلاحيات لمستخدم معين واما الخيارات الاسفل صلاحيات عامه لكافة المستخدمين

طلبك سهل إن شاء الله فقط اذا توفر الوقت سيتم التعديل عليه إن شاء الله

في نفس المشاركة للاستاذ عادل حنفي اعتقد انه اضاف تعديل جديد به استدعاء الفاتورة وطباعتها

اعتقد فورم التعديل ليس له داعي اضافة وتعديل بالفورم الرئيسي ممكن توضح لي رؤس الاعمدة لأمر الشراء عمود الكمية وعمود الوحدة وعمود الصنف وعمود الاجمالي وماهي الوحدات المستخدمه وكم قيمة كل وحده مثلا درزن = 2 و كرتون = 48 والخ .... بحيث تكون الية الفورم كالتالي اول عمود للمسلسل ثاني عمود كود الصنف مجرد اضافة اسم الصنف يظهر الكود الخاص به ثالث عمود اسم الصنف رابع عمود السعر خ عمود الوحده س عمود الكمية سابع عمود اجمالي الكميه ثامن عمود الإجمالي والاضافة تكون في الورقة الاولى وورقة جديدة بأسم المستودع + رقم امر الشراء والتعديل برضه يعدل في الورقة الخاصه بالصنف والورقة الاساسيه والحذف يحذف الورقة وبيانات الامر في الورقة الرئيسيه أرجو إضافة ماتريد كي لاتهدر وقت في التعديلات

اضغط الملف بأحد برامج الضغط Winrar أو Winzip ثم إرفقه وإن شاء الله نتوصل لحلول تفي بالغرض

أو بهذه الطريقة قطري للأعمدة Public Sub Ali_Dly() Dim i As Integer, j As Integer Dim Ar Set A = Range(Cells(9, 4), Cells(13, 10)).Cells(1) Ar = Array("حساب", "عربي", "دين", "حاسب", "رياضة", "كيمياء", "احياء") On Error Resume Next For i = 1 To 4 Set A = Union(A, A.Cells(1).Offset(i, i)) Set B = Union(A.Offset(0, 1), A.Cells(1, 2).Offset(i, i)) Set C = Union(A.Offset(0, 2), A.Cells(1, 3).Offset(i, i)) Set D = Union(A.Offset(0, 3), A.Cells(1, 4).Offset(Choose(i, 1, 2, 3), Choose(i, 1, 2, 3))) Set E = Union(A.Offset(0, 4), A.Cells(1, 5).Offset(Choose(i, 1, 2), Choose(i, 1, 2))) Set F = Union(A.Offset(0, 5), A.Cells(1, 6).Offset(Choose(i, 1), Choose(i, 1))) Set G = A.Cells(1, 7) Next i A.Cells = Ar(0): B.Cells = Ar(1) C.Cells = Ar(2): D.Cells = Ar(3) E.Cells = Ar(4): F.Cells = Ar(5): G.Cells = Ar(6) End Sub

بعد اذن اخي رجب جاويش هذا تعديل على الكود انسخ الكود في حدث الورقة بحيث عند اضافة اسم في عمود D دايركت يقوم بعمل رقم عشوائي للاسم وتحديث للسابق Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then For Each Rn In Range("D13:D" & Cells(Rows.Count, "D").End(xlUp).Row) 1 x = Int((99 - 10 + 1) * Rnd + 10): Rn.Offset(0, 1) = x y = Application.WorksheetFunction.CountIf(Rn.Offset(0, 1), Cells(Rn.Row, 5)) If y > 1 Then GoTo 1 Next End If End Sub

ملف جميل اخي أبو تميم جزيت خيرا على النقله المميزه تقبل مروري

امر الشراء الجديد بماذا يحفظ ؟ هل بتاريخ امر الشراء مثل الأوراق الموجوده ؟

تقصد مجرد الترحيل تترحل للورقة الرئيسية وبرضه امر الشراء يترحل لورقة جديدة بأسم رقم الشراء

ضلل عمود E وغير تنسيق الخلايا الى عام بدلا من نص ثم ادرج المعادله التاليه في E6 وسحب للاسفل هيا معادلة الاستاذ بن عليه وعليه تعديل طفيف =IF($B6="";"";IF(MONTH($B6)=MONTH($B5);TEXT($E5+1;"0000");TEXT(1;"0000")))