mohamedyousef

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

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

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

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

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

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

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

الف شكر على مجهودات حضراتكم

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

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

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