محمد هشام.

تسديدات كل سنة M_H.xlsx

بالنسبة للسؤال الأول نعم يمكنك ذلك عبر وضع زر به كود لطباعة مدى معين وبناءا عليه يتم إظهار عدد مرات طباعة المدى في خانة من إختيارك يزيد بمقدار +1 عند كل أمر بالطباعة اليك مثال لدالك باسم منتدى اوفيسنا في الملف المرفق يمكنك فقط تعديل الكود حسب ما يناسبك. واتمنى يكون هدا هو المطلوب🤔 مثال _حساب عدد مرات الطباعة.xlsm

بالنسبة للسؤال الأول نعم يمكنك ذلك عبر وضع زر به كود لطباعة مدى معين وبناءا عليه يتم إظهار عدد مرات طباعة المدى في خانة من إختيارك يزيد بمقدار +1 عند كل أمر بالطباعة اما بالنسبة للاستفسار رقم2 يمكنك وضع هدا الكود في حدث ورقة العمل لديك Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Sheets("Sheet1").Range("A2"), Target) Is Nothing Then Range("B2").Value = Range("B2").Value + 1 End If End Sub (يمكنك تعديل الكود على حسب موضع الخانات لديك) لمزيد من الشرح اليك اخي الفاضل الملف يتضمن العداد مع اضافة الارقام العشوائية بواسطة القائمة المنسدلة يتبع الطلب الأول......... M-HICHAM.xlsm

فعلا لم أنتبه لوجود اليوزرفورم 🤔🤔🤔

تفضل اخي ربما هذا طلبك اخفاء ورقة عمل في الكمبوبوكسM-H.xlsm

بعد إذن الأستاذ المشرفي مثال لو لدينا هذه الجملة :officena#2022Abc في الخانة A3 الحصول فقط على كلمة officena يمكنك وضع المعادلة في الخانة.( b3) =SUBSTITUE(SUBSTITUE(SUBSTITUE(A3; "#";""); "2022"; ""); "Abc"; "") و للحصول فقط على الرقم 2022 يمكننا هكذا =SUBSTITUE(SUBSTITUE(SUBSTITUE(A3; "#";""); "Abc"; ""); "officena"; "") حذف كلمة او رقم او رمز بالمعادلات.xlsx إليك بعض الأمثلة الأخرى في الملف المرفق

اخي الفاضل لحذف (محمد محمد نوفل) من جميع أوراق العمل هناك طرق تقليدية تغنيك عن الاكواد .لاكن في حالة إختلاف مكان وجود الإسم أي( رقم الصف من ورقة لأخرى) يكون الكود أسرع وأدق. الكود التالي يقوم بالبحث عن الإسم الهدف في عمود الأسماء كله ويحذف الصف كاملا عند وجوده Sub Delete() Dim ws As Worksheet Dim LastRow As Long, i As Long For Each ws In ThisWorkbook.Worksheets With ws LastRow = .Cells(.Rows.Count, 4).End(xlUp).Row For i = LastRow To 1 Step -1 If .Cells(i, 4).Value = "محمد محمد نوفل" Then .Rows(i).EntireRow.Delete End If Next i End With اما بالنسبة لاضافة صف استخدم الكود التالي مع تغيير الرقم 14 بالصف المطلوب Sub insertRow() Dim insertBeforeRow insertBeforeRow = 14 ActiveSheet.Rows(insertBeforeRow).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End Sub Next ws End Sub تمت اضافة الاكواد للملف المرفق سجل مراجعة فرع الإسكندرية (3)M-H.xlsm

تفضل اخي تم تعديل المطلوب 42-Protect.xlsm

تفضل اخي qu-M-H.xlsm

تفضل اخي جرب ربما يكون هذا طلبك جلب بيانات بين تاريخين M-H.xlsm

نعم اخي الفاضل يمكنك ارفاق نسخة من الملف للتعديل

تفضل اخي تم تنفيذ المطلوب Book1 M-H.xlsx

تفضل اخي الكريم يمكنك استخدام المعادلة التالية في الخانة D16 =SOMMEPROD((($I$2:$I$13=B16))/NB.SI.ENS($I$2:$I$13;$I$2:$I$13&"";$D$2:$D$13;$D$2:$D$13&"")) M-H نموذج.xlsx

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

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

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

تفضل اخي الملف تم تعديل الكود مع امكانية اختيار عدد مرات التكرار اضافة الى النتيجة بدون تكرار(يمكنك إخفائها من الأعمدة (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؟ "تلوين الخلية" ما هي الخلية التي سيتم تلوينها؟