عادل حنفي

السلام عليكم و هذا الملف لكي يتم ضبط النص الذي يتم كتابته مع العلم ان الكود يعمل حتي 1000 صف و 256 عمود تحياتي Bu3mmar4.rar

السلام عليكم عذرا اخي الساهر فقد تمت مشاركتك اثناء عملي علي الملف لذا لم ارها تحياتي

السلام عليكم اخي اتمني ان يكون هذا هو المطلوب مرفق ملف اخر لكيفية العمل تحياتي workbook.rar format.rar

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

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

السلام عليكم اخي احمد يعقوب اكرمك الله م جازاك علي جهدك الطيب و خالص تحياتي و تقديري الي شخصك الكريم

السلام عليكم اخي العزيز نزار دون استئذان اخي فكفانا ان نطمأن عليكم اخي العزيز BU3MMAR مرفق ملفك تبعا لطلبك تحياتي Bu3mmar3.rar

السلام عليكم و هذا اخي نفس الملف و لكن بتعديل جميل للكود جرب و اخبرني النتيجه تحياتي Bu3mmar2.rar

السلام عليكم اخي BU3MMAR هل تقصد هكذا ارجو ان يكون ما تطلبه تحياتي Bu3mmar1.rar

السلام عليكم اخي أبا حفص عذرا علي التاخير اخي تم عمل الملف باضافة خلايا تجدها مظللة احداهما هي التي تختار منها الدرايف الذي سيكون عليه الملف و طبعا هيكون اسم الملف PIC اما الخليتان الاخرتان تحدد منهم الكول و العرض الذي تريده جرب و اخبرني بالنتيجة تحياتي ________________________.rar

السلام عليكم اخي bosh راجع الملف اكيد ان هناك خطأ ما تحياتي

السلام عليكم اخي العزيز tofimoon4 ما هو الذي يقف امامك اخي كل ما عليك هو الاتي انشاء صفحة و سمها باسم ترتيب القوائم و في محرر كودها الصق هذا الكود Private Sub Worksheet_Activate() If Range("B1") = "0" Then Exit Sub Else On Error Resume Next Range("A2:A10000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete ActiveSheet.UsedRange End If Dim x As Long Dim LastRow As Long LastRow = Range("A400").End(xlUp).Row For x = LastRow To 1 Step -1 If Application.WorksheetFunction.CountIf(Range("A2:A" & x), Range("A" & x).Text) > 1 Then Range("A" & x).EntireRow.Delete End If Next x Range("A3:A10000").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub و الخليه B1 بهذه الصفحة بها معادله انسخها ايضا و الصقها في الخليه B1 جرب و قولي ما يحدث و نحن معك الي ان يتم ما تريد و اعتقد ان يكون هذا سبب المشكله في اول مره يعمل بها الكود في ملف جديد فقط قم بكتابة 1 في الخليه A3 وبعد ذلك سيكون العمل بشكل عادي فلسبب ما اجهله الان قمت بكتابة شرط ان الخليه B1 اذا كانت تساوي صفرا لا يعمل الكود و اكيد انا عملت ده لسبب ما لا اتذكره الان و حتي لا اكون متسرعا و اقولك الغي هذا الشرط قم بعمل ما قلته لك و ان شاء الله يعمل الملف معاك تحياتي

السلام عليكم اخي العزيز aysam ارجو ان يكون هذا هو طلبك خالص تحياتي aysam.rar

السلام عليكم لك كل الحق اخي justice ونتمني ان يكون غيابه خيرا ان شاء الله

السلام عليكم و هذا ملف اخر تم عمله بازرار زر لتحديد المكرر و الاخر للالغاء حتي تتمكن من المراجعة تحياتي select_delete.rar

السلام عليكم اخي و هذان ملفان الاول لالغاء المكرر و الثاني لالغاء اللون عن خليه مكرره تم ازالة ما يجعلها مكرره الكود يعمل علي العمود الول و الاني فقط و حتي الصف ال 1000 كما تم ارفاق ملف فيديو يبين طريقة نسخ الكود لملف اخر كما طلبت و ان وجد اي شيئ اخبرني تحياتي delete.rar Test5.rar code.rar

السلام عليكم اخي تم عمل المطلوب بتحديد فقط المكرر في كلا العمودين اما بالنسبه للالغاء لم اضعه في الاعتبار و اذا كنت تريد الالغاء فقط اعلمني بذلك تحياتي Test.rar

السلام عليكم اخي مرفق ملف فيديو يشرح الطريقة تحياتي 2_8_2009_1_03_19_AM.rar

السلام عليكم سلمت الايادي و حمدا لله علي السلامه تحياتي

السلام عليكم اخي جرب هذا الملف مع ملاحظة ملف اسمه pic في ال C به صور المظفين بمجرد الضغط علي كود الموظف تظهر صورته تحياتي ________________________.rar

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

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

السلام عليكم اخي لمعرفة نطاق لقائمه مثل التي اشرت اليها ارسل لك ملفا يوضح كيفيه عمل القائمة وكيفية معرفة مكان البيانات لقائمة تم عمله مسبقا ارجو الرد بالنتيجة ____.rar

السلام عليكم اخي ملفك يحتاج لبعض الوقت لانجازه عموما جائتني بعض الافكار الخاصة به اعرضها عليك و الرقم السري 123 مع ملاحظة انه عند الدخول بالرقم السري و اختيار اي صفحة من الفورم الذي سيظهر لاختيار الصفحات سيتم انشاء زر باسمك بجوار كلمة Help في شريط الادوات بالاعلي يمكنك من اظهار فورم اختيار الشيتات عند الحاجة لذلك مع اختفاء كافة الصفحات الا التي اخترتها فقط عموما بدانا وواحدة واحدة نكمل ما تريد و لكن طبعا ما يحكمنا هو الوقت جرب و قولي تحياتي New_Elab_Invoice.rar

مع ملاحظة ان كلام الاخ amoudi صحيح فانه يمكن تعديل الكود الاول (كودك) بعمل ما ذكره لك بارك الله فيه تحياتي