mohamedyousef

استاذي بالفعل موجود الكود وانا متأسف على انني لم اشاهد الرد ولكن انا قمت بالتعديل على الفورم واضفت الكود المرسل من حضرتك وظهرت رسالة حطأ مرفق لحضرتك الملف المعدل test2.xlsm

استاذي الرسالة موجودة فعلا ولكن تظهر وتسمح بالتسجيل انا محتاج انها تظهر ولا تسمح بالتسجيل

السلام عليكم الملف المرفق اريد به عند القيام بتسجيل اذن صرف صنف كما هو موضح في الملف ولا يوجد به رصيد بالمخزن تظهر رساله لايوجد رصيد كافي للتسجيل ويمنع تسجيل الاذن وذلك على حسب الرصيد الموجود في صفحة التكويد الاعمدة R,S,T فهناك رسالة تظهر ولكن لاتمنع التسجيل مجرد رسالة تنبيه فقط فانا اريد عند القيام بالضغط على زر تسجيل اذن الصرف ولا يوجد رصيد تمنع المستخدم من التسجيل وشكرا test2.xlsm

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

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

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

السلام عليكم اتاذي نفس المشكلة بالنسبة لطباعة المخزن كله لايوجد به مشكلة المشكلة في زر طباعة صنف معين عند الضغط عليه تظهر الرسالة انه يوجد خطأ كما اوضحت سابقا حضرتك لو قمت بالتجربة سوف تعرف ماذا اقصد المشكلة موجودة في كلمة show all data. مع الشكر

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

المقصود الغاء الفلتر من على صفحة التكويد

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

استاذي الفاضل شكرا على الاهتمام انا اريد عند اختيار صنف معين من داخل الكمبوبكس واضغط على طباعة الخامة المعينة يطبع المطلوب وفي نفس الوقت بعد الانتهاء يقوم بالغاء الفلترة من الملف دون الدخول عليه فعند البحث عن اي صنف لايظهر بيانات نظرا لان الملف من الداخل قد تم عمل فلتر عليه اثناء الطباعة وذلك على وانا ارسلت الملف لحضرتك للتوضيح فاذا قمت باختيار طباعة صنف معين يقوم الملف بعمل فلترة من الداخل اريد عند الانتهاء يلغي الفترة CommandButton2 900.xlsm

السلام عليكم ورحمة الله السادة الافاضل محتاج تغير بسيط في الكود المرسل حيث اريد عند الانتهاء من الطباعة الغي مرة اخرى الفلترة من على الملف حيث عند اختيار صنف معين للطباعة يقوم بعمل فلترة على الملف وعند الانتهاء من الطباعة واريد ان ابحث مرة اخري عن اي صنف اخر لاياتي ببيانات نظرا للفترة الموجودة على الملف فانا اريد عند الانتهاء من الطباعة كود من خلاله يتم الغاء الفلترة من الملف ويرجع مرة اخرى عند طباعة اي صنف اخر Private Sub CommandButton1_Click() Dim LRow As Long Dim namsh As String Dim wk, wk2 As Worksheet Dim x As Integer Dim check As Boolean namsh = "temp" Set wk = Worksheets("التكويد") 'التأكد من عدم وجود الورقة المؤقته وإضافتها For Each wk2 In Worksheets If wk2.Name Like namsh Then check = True: Exit For Next If check = False Then With ThisWorkbook .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = namsh End With End If 'ترحيل الصفوف المختارة Set wk2 = Worksheets(namsh) wk2.Range("A1:E9999") = "" LRow = wk.Range("A999").End(xlUp).Row wk.Range("A1:A" & LRow & ",E1:E" & LRow & ",R1:R" & LRow & ",S1:S" & LRow & ",T1:T" & LRow).Copy wk2.Range("A1") With wk2 'إضافة المجاميع في الصف الأخير Rowz = Application.WorksheetFunction.Subtotal(2, .Range("A2:A" & Rows(Rows.Count).End(xlUp).Row)) .Range("B" & Rowz + 2) = "الاجمالي" .Range("C" & Rowz + 2) = "=ROUND(SUM(C2:C" & Rowz + 1 & "),2)" .Range("D" & Rowz + 2) = "=ROUND(SUM(D2:D" & Rowz + 1 & "),2)" .Range("E" & Rowz + 2) = "=ROUND(SUM(E2:E" & Rowz + 1 & "),2)" .Columns("A:E").AutoFit 'تنسيق الصف الأخير الخاص بالمجموع ' With wk2.Range("B" & Rowz + 2 & ":E" & Rowz + 2) .AddIndent = True .Font.FontStyle = "Times New Roman" .Font.Size = 16 .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Interior.Color = RGB(237, 237, 220) .Font.Bold = False .Font.Bold = True End With .PageSetup.PrintArea = "A1:E" & Rowz + 2 'LRow Application.Dialogs(xlDialogPrint).Show End With ' Application.DisplayAlerts = False 'التأكد من وجود الورقة المؤقته وحذفها If ThisWorkbook.Worksheets.Count = 1 Then MsgBox "There Is only One Sheet. The Deletion Can't Be Done!", vbCritical: Exit Sub If Evaluate("=ISREF('" & namsh & "'!A1)") Then Sheets(namsh).Delete End If Application.DisplayAlerts = True End Sub 'عمل فلتر على محتوى الكمبوبوكس Private Sub CommandButton2_Click() With Worksheets("التكويد").Range("A1:T1") 'إلغاء الفلتر If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False End If If Me.ComboBox1.Text = "" Then Exit Sub .AutoFilter Field:=3, Criteria1:=Me.ComboBox1.Text '& "*" End With 'استدعاء الطباعة Call CommandButton1_Click 'إلغاء الفلتر If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False End If End Sub 'ملء الكمبوبوكس بأسماء السلع بعد حذف التكرار Private Sub UserForm_Activate() If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False End If Dim wk As Worksheet Set wk = Worksheets("التكويد") Dim v, e LRow = wk.Range("A999").End(xlUp).Row v = wk.Range("C2:C" & LRow).Value With CreateObject("scripting.dictionary") .comparemode = 1 For Each e In v If Not .exists(e) Then .Add e, Nothing Next If .Count Then Me.ComboBox1.List = Application.Transpose(.keys) End With End Sub

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

السلام عليكم ورحمة الله السادة الكرام ارفق لحضراتكم ملف اذا كنت اريد طباعة خامة معينة مثلا ( كروشيه ) بجميع مقاساته والوانه مثل : ابيض كروشيه 1.2cm ابيض CO-IMG-40 كروشيه 4cm ابيض فلاش كروشيه 2cm اسود كروشيه 4.5cm وذلك من صفحة التكويد اريد ان اطبع فقط خامة مثلا الكروشيه بالوانها ومقاساتها العمود (A,E,R,S,T) وموجود زر الطباعة على فورم رقم 8 فهل في الامكان عمل هذا مع الشكر لكل من يقوم بمساعدتي مع الاخذ في الاعتبار طباعة الصفحات الموجود بها المطلوب مع حاصل جمع في اخر الطباعة من كل (وزن كيلو - متر -وعدد قطع) 81.xlsm

السلام عليكم ورحمة الله السادة الاعزاء محتاج عند اختيار صنف معين يقوم الكود بطباعة الصنف المختار فقط وتجميع القيم في اخر الصفحة وذلك الاعمدة المطلوبة A,E,R,S,T طبعا الطباعة الى اخر صنف موجود في الاخيار والصفحة المطلوبه هي صفحة التكويد مع الشكر 80.xlsm اسف المطلوب موجود على فورم رقم 8

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

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

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

السلام عليكم ورحمة الله السادة الكرام لو سمحتوا احتاج الى مساعدة في الملف المرفق يوجد به اكثر من فورم المشكلة في انه عند فتح الملف يكون على صفحة الرصيد الثابت وافورم يعمل بنجاح وعندما اريد الدخول الى صفحة الادخال وعند اختيار اللون من القائمة لايوجد بها بيانات فلابد ان اكون واقف على صفحة الادخال حتى تظهر البانات فانا اريد من خلال صفحة الفورم الرئيسية وعند اختيار اللون من صفحة الدخول تظهر اتمنى ان يكون شرحي وصل الى سيادتكم ولسيادتكم وافر التحية مخزون.xlsm

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

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

السلام عليكم السادة الكرام عندي مشكلة في اظهار شيت اكسيل لدي ملف اكسيل مصمم على برنامج صلاحيات مستخدمين المشكلة انى اضفت صفحة جديدة داخل الملف وعند استدعاء اي من المستخدمين تظهر الصفحة على كل مستخدم وعند عمل اخفاء للصفحة يكون الملف عند الاستدعاء سليم والصفحة بأسم CON وداخل محرر الاكواد رقم 11 فانا اريد عند استدعاء مستخدم ما يفتح فقط الصفحة الخاصة به والاسماء كالاتي على سبيل المثال username: Mohamed password: 1234567 username : Knt password: knit username : Conv password :conv username Exit password: exit اتمنى حل مشكلتي حيث انني محتاج تشغيل الملف شكرا تم غلق هذه المشاركه لتكرارها test.xlsm

السلام عليكم ورحمة الله والمفروض CON السادة الافاضل محتاج مساعدة في كود عندي برنامج صلاحيات مستخدمين شغال تمام ولكن يوجد مشكلة في الدخول لقد قمت بأضافة شيت جديد داخل الملف مسمى يدخل للصفحة المطلوبة بجانب الشيت الجديد وعند الغاء بيان الشيت الجديد يعمل الملف بدون مشاكل فمحتاج عند اضافة شيت جديد يتم فتحه لوحده KNT عند دخول احد المستخدمين مثلا مستخدم المستخدمين mohamed: pass 1234567 KNT:pass knit DYE: dye CONV: conv اسف على الاطالة Prodaction.xlsm

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

لسلام عليكم اخي الكريم محتاج استبدال المنتج باخر اريد عند عملية استبدال للمنتج باخر يتم ارجاع المستبدل الى الرصيد الفعلي وليس الرصيد الافتتاحي عند عمل هذا معادلة الرصيد الفعلي يحدث به مشكلة في المعادلة فماذا افعل الف شكر على سعة صدر حضراتكم حفظ فاتورة.xlsm