ابوزيد

السلام عليكم مراحب استاذ ياسر حفظك الله سؤالي : عند عمل بطاقة الموظف حسب كل شهر تكون طباعة البطاقة عملية طويلة خاصة اذا كان عدد الموظفين كبير فأرد اذا ممكن بايعاز واحد طباعة البطاقات لكل الموظفين طبع لكل الموظفين بايعاز واحد.rar

السلام عليكم ممكن طبع بطاقة الموظفين مرة واحدة حسب كل شهر وحسب العدد الموجود وكما مبين بالملف المرفق

السلام عليكم اذا كان لدينا 100 موظفهل من الممكن ان يتم عمل شيت طباعة لجميع بطاقات الموظفين ( كايصال استلام المرتب) عند اختيار شهر معين بدلا من بطاقة واحدة فقط (كما بصفحة بطاقة الموظف)

أي والله تستهال - انجزت العمل المطلوب بسرعة وسلمته انته صاحب فضل - جزيت خيرا وفقك الله

الله يحفظكم جزيت خيرا عمل ممتاز

السلام عليكم حولتها الى منقوطة بقت نفس المشكلة ممكن عمل المعادلة على الملف ، اكون شاكراً لمعروفك =IF(ROWS(A$4:A4)<=SUMPRODUCT((البيانات!$F$2:$F$100=$B$1)*(البيانات!$C$2:$C$100=$B$2));INDEX(البيانات!A$2:A$100;SMALL(IF((البيانات!$F$2:$F$100=$B$1)*(البيانات!$C$2:$C$100=$B$2);ROW(البيانات!A$2:A$100)-ROW(البيانات!$A$2)+1);ROWS(A$4:A4)));"")

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

السلام عليكم سؤالي وفقكم الله ولمتطلبات العمل ارفق ملف يوضح العمل المطلوب والمتضمن : عند اجراء بحث عن رقم أو اسم في شيت البحث ترحل البيانات المكررة في شيت البيانات الى ورقة البحث وبالتالي يمكن طبعها أو قراءتها وبيان المطلوب وفقكم الله وسلمكم وجزيت خيرا السلام عليكم ترحيل البيانات المكررة عند البحث.rar

السلام عليكم للرفع يكون البحث على ااساس راس الجدول ان كان رقم أو اسم

السلام عليكم البحث على اساس راس الجدول ، البحث عن الاسم ممتازة وتعمل حسب المطلوب

السلام عليكم بعد البدء بالعمل تبين بان بعض محركات البحث لا تعمل (تعمل فقط على الكلمة ) والمطلوب البحث يكون على راس الجدول (اسم ، رقم ) وارفق الملف والذي ملون باللون الاحمر لا يعمل إلا على الكلمة راجين التفضل بالاطلاع وحل المشكلة والبحث يكون على راس الجدول وجزاكم الله خيرا - السلام عليكم اضافة محرك بحث.rar

السلام عليكم احسنت - وفقك الله - جزيت خيرا هذا هو المطلوب سلمكم الله

السلام عليكم جزيت خير - سلمكم الله عندي طلب ارجو ان يحضى باهتمامك لحاجتي اليه كثيرا في العمل وهو : ان يكون البحث عن الاسم بمجرد كتابة اول الحرف (فقط في خلية البحث عن الاسم ) كما كان في الملف الذي حملته وذلك يأتي مع الاسم ارقام ، وأما الخلايا الأخرى فهو المطلوب السلام عليكم

السلام عليكم ورحمة الله وبركاته وفقكم الله وجعل عملكم خالص لوجه ونفع بكم سؤالي هو اعزكم الله اضافة محركين بحث عن اجور و المبلغ ، وكما موضح بالملف المرفق مع العلم بان البيانات كثيرة (اكثر من 5000 صف ) وان اعتمادي على هذا البرنامج هو لسرعة البحث فيه بشكل جيد جداً ، وارجو زيادة سرعة البحث اذا امكن وفقكم الله السلام عليكم اضافة وتغيير في صيغة البحث 2010.rar

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

السلام عليكم جزيت خيرا - الخلل من يمي - تم انجاز العمل والترحيل وفقكم الله وسلمكم بارك الله فيك السلام عليكم

السلام عليكم الله يتقبل الطاعات - وكل عام وانتم الى طاعته اقرب - عيدكم مبارك عند ادخال البيانات والضغط على الترحيل (استعن بالله) تظهر صفحة محرر الاكواد ويؤشر على سطر المبين ادناه باللون الاصفر .Range("A" & LR_B).PasteSpecial xlPasteValues وفقكم الله وشكراً على المرور - جزاكم الله خيرا - انتظر المعالجة - سلمكم الله من كل مكروه السلام عليكم

السلام عليكم عيدكم مبارك

السلام عليكم جزيت خيرا السلام عليكم

السلام عليكم 2010 جزيت خيرا

السلام عليكم استاذ ياسر ما اشتغل - يمكن الخلل من يمي ما اعرف - بس طبقت كل التوجيهات ؟؟؟ الله يرضى عليك طبق الكود على الملف - وبالتالي اكدر قارن بين توجيهاتك وعملي السلام عليكم

السلام عليكم جزيت خير رمضان مبارك

السلام عليكم لم احصل على نتيجة فعندما اغير في خلية B3 يذهب الايعاز الى محرر الكواد Private Sub Worksheet_Change(ByVal Target As Range) يصبح باللون الاصفر If Not Intersect(Target, Range("B3")) Is Nothing Then Z = Application.CountA(Sheets("الشهر الاول").Range("A2:A300")) For I = 2 To Z + 2 If Target.Value = Sheets("الشهر الاول").Cells(I, 1).Value Then Target.Offset(0, 2).Value = Sheets("الشهر الاول").Cells(I, 2).Value End If Next I Call InsertPictureVBA2 - يقف المؤشر على هذا السطر End If End Sub ممكن عمل فيديو ليكون اكثر ايضاحاً لي السلام عليكم

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

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