محمد هشام.

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

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

تفضل اخي الملف تم تعديل الكود مع امكانية اختيار عدد مرات التكرار اضافة الى النتيجة بدون تكرار(يمكنك إخفائها من الأعمدة (Q:M) في حالة لم تكن لك رغبة بها) مع الاحتفاظ دائما بشرط (عند وجود القيمة مسبقا في عمود تصنيف لا يتم الترحيل من شيت البيانات إلى شيت بيان) كما في الصورة TARHIL.M.H.xlsm

بعد ادن الاستادة ممكن تجرب المرفق التالي Manpower 2023.xlsb

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي qu-2.xlsm

تفضل جرب أخي ترحيل النتيجة تلقائيا عند إدخال البيانات بدون أزرار ترحيل عميل بشرط.xls

فكرة رائعة استاد حسين مامون eidmaaly تم تعديل الملف المرفق ليشمل تلوين خلايا شيت1 فقط TEST2.xlsx

تفضل اخي ملاحظة: تم وضع المعادلة على اساس تلوين القيمة المكررة في اي خانة من عمود M نطاق M15:M48 في الشيتات الثلاثة.. فقط في شيت Boat1 في حالة اردت ان يتم تلوين القيمة المكررة في جميع الشيتات يمكنك ازالة علامة * من امام المعادلة كما في الصوة TEST2.xlsx

قم فقط بتغيير إسم شيت قاعدة البيانات للإنجليزية ونسخ الإسم فالكود.

عليك أخي بتغيير مكان الجدول الأصفر من أسفل النطاق المخصص للإستعلام ، أو جعله في شيت آخر مستقل. إليك الملف مع بعض التعديلات البسيطة . https://www.mediafire.com/file/47gu5rimpv2oukc/البحث+بين+تاريخين1.xlsm/file

يرجى التوضيح أكثر أعط مثالاً واحداً على الأقل يظهر النتيجة المرجوة. "رقم معين" أي رقم؟ "خلايا العمود على الورقة 1" أي عمود في الورقة 1؟ "خلايا من نفس العمود على الورقة 2" أي عمود في الورقة 2؟ "تلوين الخلية" ما هي الخلية التي سيتم تلوينها؟

محمد عفيفى اليك الملف بعد التعديل يتضمن كود تحديد 10 صفوف بداية من الخلية النشطة والى اسفلها وكود لتحديد صف الخانة العاشرة بداية من الخلية النشطة والى اسفلها لنطاق معين يمكنك تعديله من داخل الكود. وكود لتحديد عمود الخانة العاشرة بداية من الخلية النشطة اوفيسنا-test3.xlsm

اخي الفاضل SHEREF ADEL ده الفكرة إلي انا أصلا اشتغلت عليها 1)تم استخراج مجموع إجمالي المخزون من شيت فاتورة من العمود كله على بشرط الإسم ووضعه في عمودz شيت داتا 2) تم استخراج مجموع الكمية من شيت فاتورة من العمود كله على بشرط الإسم ووضعه في شيت داتا عمود AA 3)كما جاء في طلبك الأول تم خصم مجموع الكمية لكل صنف من إجمالي المخزون الموجود في شيت فاتورة وضعه في شيت داتا عمود (رصيد آخر المدة ) وده مثال : كما جاء في طلبك الأخير نفس النتيجة المطلوبة التيجة: وعند إضافة أي صنف في شيت فاتورة موجود مسبقا في شيت داتا يتم جمع عمود الكمية والاجمالي تلقائيا ويترحل عندك على شيت داتا وده مثال على صنف فرشة سوفت قد قمت بإضافتها كما في الصورة وده النتيجة

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

أتمنى يكون ده المطلوب BILLREPORT-test1.xlsx

1)هل تقصد أنك تريد استخراج مجموع كمية الصنف بشرط الإسم. المقابل له ؟ 2)ماهو العمود الذي تريد خصم الكمية المحصل عليها منه قبل وضعها في عمود رصيد آخر المدة؟

بعد إذن الأستاذ محمد صالح يمكنك وضع المعادلة التالية في الخانة (E6) SI(B6<>"";SI(E6="";AUJOURDHUI();E6);"")= مع التأكد من تفعيل الحساب التكراري في ورقة العمل تفضل الملف عليه المعادلة اوفيسنا.xlsm

جرب أخي الفاضل مصنف 22.xlsm

لنفترض انه لدينا ملف يحتوي على ثلاثة أوراق عمل shets1_shets2_shets3 يقوم هذا الكود بنسخ وتصدير شيت 2و3 على سطح المكتب Sub export_sheets() Dim Fname As String, ws As Worksheet Application.DisplayAlerts = False Sheets(Array("Shets2", "Shets3")).Copy For Each ws In ActiveWorkbook.Sheets ws.UsedRange = ws.UsedRange.Value Next ws ActiveWorkbook.SaveAs Filename:= _ "C:\Users\PC Hicham\Desktop\" & "إسم الملف المستخرج" & ".xlsx", FileFormat:=51 ActiveWorkbook.Close Application.DisplayAlerts = True End Sub لاتنسى تغيير مسار حفظ الملف على حسب الموجود عندك

دفتر صنف.xls

جرب هذا الكود أخي ودوبل كليك على مربع textbox Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) TextBox1.Value = "" End Sub أو هذا Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Not iGblInhibitTextBoxEvents Then TextBox1.Value = "" End If End Sub

جرب أخي الفاضل وضع هذا الكود في حدث workbook كما في الصورة Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Target.PasteSpecial xlPasteValues Application.CutCopyMode = True End Sub ثم انسخ بياناتك ، وانتقل إلى ورقة العمل الهدف و انقر بزر الماوس الأيمن على الخلية الوجهة ، سيتم لصق قيم الخلايا المنسوخة دون أي تنسيق بإذن الله.

هل تقصد أنه في حالة كانت قيمة البند الأول في الخانة 2 او 3 هي 1 يتم كتابة رقم واحد في الخانة المظللة بالأحمر ..وماذا إذا كانت كل منهما قيمتها واحد ؟ عذرا أخي بما أنني بشتغل من على الهاتف الملف غير واضح عندي على العموم قد تم وضع معادلتين الأولى في حالة كانت كل من الخانتين 2 و 3 في البند الأول قيمتها واحد يتم كتابة رقم واحد في الخانة المظللة بالاصفر وفي حالة كانت أي من الخانتين 2او3 من البند الأول قيمتها واحد يتم كتابة رقم واحد ضمن الخانة المظللة بالازرق.وإذا لم يتوفر أي شرط تبقى فارغة. اذا كان هذا هو المطلوب يمكنك إتمام الملف بنفس الطريقة ١استبانة.xlsx

تفضل اخي not offisna.xlsm

T01.xls