أبو حنــــين

السلام عليكم هذا المرفق بعد التعديل اضفت امكانية وجود اوراق تحتوي على سنوات محتملة و لا ادري ان كان عملك في ورقة واحدة او اوراق مختلفة كل سنة في ورقة 3استعلام.rar

أخي جلال : جزاك الله خيرا على المرور تقبل تحياتي

السلام عليكم لاثراء الموضوع هذا كود آخر لكن مشكلة الاسماء ذات المحق : عبد ، أبو ، ابو ، آل . . . . . تبقى قائمة Sub Name_Cel() Dim iName As Variant, _ i As Integer, _ X As Integer '-------------------------- Application.ScreenUpdating = False Range("B1:K" & Range("A1:K1").End(xlDown).Row).ClearContents For X = 1 To Cells(Rows.Count, "A").End(xlUp).Row iName = Split(Range("A" & X).Text, " ") For i = LBound(iName, 1) To UBound(iName, 1) Cells(X, i + 2) = Replace(iName(i), "", "") Next: Next Application.ScreenUpdating = True End Sub

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

بالنسبة للكود الأول : غيرت هذا السكر strLookUp = "Reda" بهذا السطر strLookUp = CStr(Range("F3")) و الكود الثاني هذا السطر MsgBox Dict("Reda") بهذا السطر MsgBox Dict(CStr(Range("F3"))) وضعت قائمة منسدلة بالاسماء في Range("F3") فكانت النتيجة جد ممتارة و يمكن وضع ذلك في حدث الورقة

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

السلام عليكم ارسل البيانات التي يفترض وجودها في ملف الاكسيل ( رؤوس الاعمدة مثل الاسم ، العنوان ، تاريخ الميلاد . . . . .. . . . )

بالنسبة للطلب الاخير يصبح الكود بالشكل Sub Macro1() Range("D6:I" & Range("D" & Rows.Count).End(xlUp).Row).AutoFilter Field:=2, Criteria1:="=" & Range("P4") Range("D6:I" & Range("D" & Rows.Count).End(xlUp).Row).AutoFilter _ Field:=1, Criteria1:="<>معلق", Operator:=xlAnd, Criteria2:="<>حول" End Sub

مرحبا هل تقصد بهذه الطريقة Book salim3.rar

السلام عليكم اخي عادل هل تقصد بهذه الطريقة الرحلات.rar

جزاك الله خيرا أخي ممدوح على المرور

مرحبا اخي ابو حنف سؤالك لا يتوافق مع مع ما هو موجود بالكود اذا كان السؤال هو تسمية CommandButton حسب الخلايا الموجودة في العمود A:A فالكود يمكن ان يكون بهذا الشكل Sub iCaption() Dim C As Control x = 1 For Each C In Me.Controls If TypeOf C Is MSForms.CommandButton Then C.Caption = Range("A" & x) x = x + 1 End If Next End Sub

مرحبا المرفق اصبح اكثر مرونة ( في حالة خلوه من الأخطاء طبعا) حيث يتيح رؤية النتائج عند البحث إن كانت مكررة و يتيح تعديلها كما انه يحتوي على صفحة للبحث عن انتهاء الصلاحية بصفة عامة او قبل ايام يدخلها المستخدم V4.rar

السلام عليكم ارجو ان تتأكد من مدى صحة الحسابات 233دوام-موظفين.rar

السلام عليكم أخي الدهشوري : جزاك الله خيرا سؤالك نبهني عن وجود خطأ من المفروض الخلية B3 = 20/60 لمعرفة سعر الدقيقة طالما ان سعر الساعة هو 20 و الساعة تساوي 60 دقيقة و لم انتبه ان 20 يمثل سعر الساعة و ليس اليوم لوكان العدد 20 يمثل سعر 9 ساعات كامة لكانت العملية 20/540 حيث 450=9 × 60 و بما ان 20 تمثل سعر ساعة فقط فتكون العملية 20/60 لمعرفة سعر الدقيقة الواحدة فتصبح الخلية B3 = 20/60 =================================== اخي malik68 جزاك الله خيرا على المرور

مرحبا هذه محاولة اخرى لاثراء الموضوع رغم ان حل الاخ سليم ما بعده حل 22دوام-موظفين.rar

اخي ممدوح : جزيت خيرا و لا تتردد في طرح الاسئلة اخي جلال : جزاك الله خيرا على المرور

مرحبا اخي نعم يمكن اظافة خلايا و قد قمت بتعديل يتيح لك الانتقال بين الاوراق و الذهاب الى ملف البحث و التعديل و حفظ التعديل V3.rar

مرحبا أخي الحبيب حمادة و الله نحن من افتقدناك صحيح غبت لفترة لكنني عدت منذ فترة ليست بالقصيرة و لم ألاحظ خلالها وجودك كما انني لم ارى اثرا لبعض الاخوة القدامى في المنتدى ادعو الله ان يكونو بخير و عافية الحمد لله لعودتك اخي ( ابو سما ) و جزاك الله خيرا بريدي الالكتروني : riohanin_2003@hotmail.com هل تصدق اخي ياسر انا خفت قبل قليل عندما قرأت ردك على اخي حمادة الذي يتكلم عن العفاريت ، و احسست ان هناك فعلا عفريت قد ظهر لانني قمت بالرد و لم اجد الرسالة ثم فجأة ظهرت الرسالة ، حينها ايقنت بوجود هذا الـعفريت لكنني تداركت نفسي و عرفت ان صاحب هذا الامر هو اخي العفريت الحبيب ياسر عندما عدل في العنوان

جزاك الله خيرا أخي عبد الله

مرحبا اخي عبد العزيز الملف يعمل عندي و لا ادي لماذا وقع هذا الخطأ لكن مضمونها و كأن الورقة المختارة غير موجودة او لم يتعرف عليها و كإحتمال حاول ان : تغير هذا السطر Set MySheet = Sheets(CStr(Sheets("بحث").Range("D3"))) بهذا السطر Set MySheet = Sheets(CStr(Sheets("بحث").Range("D3").Text)) او فقط ضف الكلمة .Text في المكان المبين في السطر الثاني

مرحبا انجرت لك الملف بطريقتين الطريقة واحد كل كل مصنع في ورقة الطريقة 2 مثل الملف المرسل و اعتقد ان كل مصنع في ورقة احسن Téléchargements.rar

مرحبا هذا مثال يقوم قبل الغلق بنسخ b2:b11 الى d1 مثال.rar

مرحبا بعد اذن اخي سليم ربما اخي صلاح الدين يقصد القيام بأي إجراء قبل الغلق ان كان كذاك فالكون يكون كالآتي Private Sub Workbook_BeforeClose(Cancel As Boolean) ' هذا السطر لعدم ظهور رسالة تأكيد الحفظ قبل الغلق Application.DisplayAlerts = False '---------------------------------------------------------------------------------------------- 'هنا تكتب الاوامر التي تريدها مثل اللصق في الورقة الحالية في الخلية النشطة ActiveSheet.Paste '----------------------------------------------------------------------------------------------- ' هذا السطر للحفظ ThisWorkbook.Save End Sub '=============================================================================================== ' لاحظ ان الكود مكتوب في الحدث Workbook_BeforeClose '===============================================================================================

و عيدكم اسعد