mohamedyousef

استاذي الفاضل شكرا على الاهتمام انا اريد عند اختيار صنف معين من داخل الكمبوبكس واضغط على طباعة الخامة المعينة يطبع المطلوب وفي نفس الوقت بعد الانتهاء يقوم بالغاء الفلترة من الملف دون الدخول عليه فعند البحث عن اي صنف لايظهر بيانات نظرا لان الملف من الداخل قد تم عمل فلتر عليه اثناء الطباعة وذلك على وانا ارسلت الملف لحضرتك للتوضيح فاذا قمت باختيار طباعة صنف معين يقوم الملف بعمل فلترة من الداخل اريد عند الانتهاء يلغي الفترة 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

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

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

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

السلام عليكم اخي الفاضل ..انا محتاج الكود يعمل على Sheet2 فورم الفاتورة او FORM 5 وليس Sheet4 1محل.xlsm

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

السلام عليكم ورحمة الله الف شكر على المساعدة تمام

السلام عليكم ورحمة الله السادة الافاضل بعد اذنكم محتاج تعديل على الكود الاتي وهو موجود داخل فورم الوارد في الملف محتاج عند الانتهاء من التسجيل يتم الوقوف على خانة الكود داخل الفورم بعد كل عملية ادخال للبيانات الكود المكتوب هو كالاتي Private Sub CommandButton1_Click() Dim my As Worksheet, rng As Range Set my = Sheet6 Set rng = my.Range("g2100").End(xlUp).Offset(1, 0) rng.Offset(0, 0).Value = Me.TextBox1.Value rng.Offset(0, -3).Value = Me.TextBox2.Value Me.TextBox1.Value = "" Me.TextBox2.Value = "" End Sub باركود.xlsm

السلام عليكم استاذي انا بالفعل الملف موجود به ارقام الباركود عند كتابة الرقم في العمود G يقوم بالفعل قرأة الكود ولكن اريد ذلك يطبق من خلال يوزرفورم موجود على الملف هذا هو طلبي باركود.xlsm

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

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