ابو حمادة

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

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

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

السلام عليكم ورحمة االله تعالى وبركاته ارجو من اساتذتي الكرام خبراء الاكسل مساعدتى فى تنفيذ هذا العمل نبذه عن المطلوب لدي شيت لحساب مرتبات العاملين ودائماا اقع فى الخطأ عند بلوغ احد الموظفين الي سن المعاش واكتشفها بعد عمل الكشوف حيث انه من الممكن ان يكون الموظف له هذا الشهر عدد ايام معينه وليس له مرتب كاملا ولذلك ارجو من خبراء الاكسل مساعدى لتجنب هذه الاخطاء الملف به عمود مدون به الرقم القومي المطلوب كود لاستخراج تاريخ الميلاد ثم اضافه 60 عام على تاريخ الميلاد ليصبح هو تاريخ البلوغ لسن المعاش بعد ذلك يتم عمل مقارنه بين تاريخ اليوم الموجود فى الخليه (C2) وتاريخ بلوغه الى سن المعاش واذا كان يستحق صرف المرتب كاملا يترك الخليه امام اسمه فارغه واذا كان يستحق صرف عدد ايام فى هذا الشهر يتم وضع عدد الايام التي يستحق الصرف عنها هذا الشهر فى العمود الخاص بذلك كما واضح فى المثال المرفق سن المعاش.rar ولكم مني جزيل االشكر والاحترام

شكرا ليك اخى واستاذي الغاالي وجزاك الله كل خير

تاريخ.rar

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

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام الى خبراء الاكسل محتاج مساعده من حضراتكم ومش عارف ينفع ولا صعب الملف عباره عن صفحة add النطاق من (DN6:JF10000) المعيار الاول هو عمود الاسم (B6:B10000) المعيار الثانى هو عمود السنه الحاليه هو فى (JR6:JR10000) صفحة ArchiveS النطاق من (B4:ET10000) المعيار الاول هو عمود الاسم ( EU4:EU10000) المعيار الثانى هو عمود السنه الحاليه هو فى (FF4:FF10000) اذا تطابقت المعايير يتم الاتى يتم جمع البيانات الموجوده لكل موظف في صفحة add علي البيانات التى تخص نفس الموظف في صفحة ArchiveS اذا كانت البيانات لنفس العام بحيث بدل ماضيف 12 شهر فى الارشيف يتم جمعهم على بعض في الارشيف لعدم تقل الملف توضيح للمطلوب شرح موضح عندي ملف به عدد اسماء كثيره تقريبا 10 الاف اسم كل شهر بيتم حفظ المبالغ التى تخص كل واحد فى الارشيف ودا بيتقل الملف لان كل شهر بضيف 10الاف اسم فى الارشيف عايز بدل مايتم اضافه الاسم كل مره فى الارشيف يتم جمع المبالغ التى تخص كل واحد واضافتها على المبالغ التى تخصه فى الارشيف بدلا من اضافته مره اخرى يعني كل شهر اضغط على مفتاح جمع المبالغ فى الارشيف يتم جمع المبالغ التى تخص كل واحد من صفحة add الى صفحة الارشيف واذا كان يوجد اسم مضاف جديد وليس له اي بيانات فى الارشيف سابقا يتم اضافته فى الارشيف اسفل البيانات الشروط ان يكون المبالغ دي لنفس العام حسب المعيار الموجود فى العمود السنه الحاليه وتاريخ اليوم بحيث يتم تجميع جميع المبالغ الشهريه لكل عام على حده وعند انتهاء العام يتم اضافه جميع البيانات الموجوده في صفحةadd للارشيف اسفل بيانات العام السابق ونبدا عام جديد على حده فى الارشيف اتمنى اكون قدرت اوضح المطلوب وجزاكم الله خيرا ملف Test1.rar

هو المنتدي مبقاش فيه حد موجود ولا ايه مبقاش فيه ردود من اي حد نهائي ليه ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام كل عاملا وانتم بخير ارجو من اساتذتى الافاضل اهل الخبره مساعدتى فى هذا الملف هذا الملف من عمل الاستاذ القدير عبد الله باقشير محتاج اضافه كود يعمل الاتى كما واضح فى الصورة عند اختيار اي اسم من القائمه الفرعيه يتم وضع الاسم الذي يتم اختياره فى مربع (Textbox1) كما وااضح فى الصورة المرفقه ملف قوائم مخصصة على الفورم باستخدام كومندبار+2.rar وجزاكم الله كل خير

شكرا لاهتمامك هحاول احدث النسخه واشوف النتيجه

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

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

السلام عليكم استاذي الغالى كل عام وانت بخير انا استخدمت هذا الفورم وعدلت عليه كما اريد وعملت قائمة ومنها قائمة فرعيه استفسار لوتكرمت القائمة الفرعيه عباره عن عدة عدة اسماء هل من الممكن عند اختيار اسم من القائمة الفرعيه يتم نسخ الاسم الذي اخترته ووضعه في تكست بوكس ؟؟؟ اتمنى الرد

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

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

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

استاذ Sub Salim_filter_ME() Application.ScreenUpdating = False Dim Filtler_Rg As Range Dim copy_rg As Range Dim ro%, i% Dim m%: m = 3 Dim last_row Dim Targ_sh As Worksheet Dim arr(1 To 9) On Error GoTo 1 Set Targ_sh = Sheets("salim") last_row = Targ_sh.Cells(Rows.Count, 2).End(3).Row If last_row < 3 Then last_row = 3 Targ_sh.Range("b3:j" & last_row).ClearContents For i = 1 To 9 arr(i) = Targ_sh.Cells(2, i + 1) Next If Sheets("add").AutoFilterMode = True Then Sheets("add").AutoFilterMode = False Set Filtler_Rg = Sheets("add").Range("b1").CurrentRegion ro = Filtler_Rg.Rows.Count Set copy_rg = Filtler_Rg.Offset(1, 0).Resize(ro - 1).Columns(1) For i = 1 To 9 With Filtler_Rg .AutoFilter .AutoFilter Field:=3, Criteria1:="=" & Targ_sh.Range("l2") .AutoFilter Field:=2, Criteria1:="=" & arr(i) Filtler_Rg.Offset(1, 0).Resize(ro - 1, 1).SpecialCells(xlCellTypeVisible).Copy _ Destination:=Targ_sh.Range("b" & m).Offset(, i - 1) End With Next 1: Erase arr Sheets("add").AutoFilterMode = False Application.ScreenUpdating = True End Sub الملف مرفق salim_filter_by sectionr.xls استاذ سليم حاصبيا اتمني شرح الكود لاستفيد منه حيث ان الملف الاساسي هو كما يلى عمود الاسم هو (B) عمود نوع العمل هو (H) عمود اسم الفرع (K) بالنسبه لنطاق الجدول ازي اغير مكانه محتاجه يكون فى النطاق (EA:Ej) ولك منى كل الشكر واالاحترام استاذ shreif mohamed اتمني شرح الكود لاستفيد منه حيث ان الملف الاساسي هو كما يلى عمود الاسم هو (B) عمود نوع العمل هو (H) عمود اسم الفرع (K) بالنسبه لنطاق الجدول ازي اغير مكانه محتاجه يكون فى النطاق (EA:Ej) ولك منى كل الشكر واالاحترام

اعرف بس ازي اغير مكان الجدول عايز اغير نطاق الجدول الى (EN:Ei)

شكرا استاذي الغالي الكوديعمل جيدا ولكن حضرتك غيرت الاعمده فى شيت add الملف الرئيسي عمود الاسم هو (B) عمود نوع العمل هو (H) عمود اسم الفرع (K) بالنسبه للجدول الموجود فى شيت (Salim ) محتاجه يكون فى النطاق (EA:Ej) ولك منى جزيل الشكر ممكن شرح للكود عشان اقدر اطبقه على الملف الاصلي

شكرا لاهتمامك استاذي الغالي وجعله الله فى ميزان حسناتك ينفع كود افضل لان المعادلات بتقل الملف

صوره من الجدول المرادنقل الاسماء اليه ملف يوضح الملوب Book1.rar وجزاكم الله كل خير

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

السلام عليكم ورحمة الله الموضوع صعب ارجو المساعدهمناهل الخبره رجااااااء المطلوب تعديل هذا السطر محتاج تعديل هذا السطر اذا كان ناتج النسبه المئويه اقل من قيمة الحد الادنى (50 جنيه) يتم رفعه الى 50 جنيه واضافتها لقيمة العمود (R) C2.Offset(0, 9) = Format(Round(C2.Offset(0, 9) + C2.Offset(0, 9) * Me.TextBo_05.Value / 100, 2)) او ان كان هناك كود اخر ينفذالمطلوب ؟؟؟؟؟؟؟

السلام عليكم مافيش حد موجود