عبد المنعم

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

اخي و صديقي الاستاذ ياسر ,, لم اخيب طلبك و لكن الملف لم يكتمل بشكل كامل و مازلت اعمل عليه و هذا الطلب متمم له اخي العزيز هذه محاولتي لحذف الاعمدة المتشابهة , بعد طرحي للسؤال جلست افكر بطريقة لاصل للحل و بفضل من الله تم الامر و لكن الطريقة كما ستشاهد تدل على عدم خبرتي على الاطلاق , وما هي الا محاولة لامر لم اقم بتعلمه من قبل تفضل المرفق و اعطني رأيك همسة : على فكرة هذا الكود اسرع من الكود الذي ارفقته حضرتك في حال كانت البيانات كبيرة ( يعني كده سبقناك يا معلم ) Delete Dublicate.rar

اخي الفاضل الاستاذ ياسر بالفعل الملف الذي ارفقته حضرتك يعمل بكفائة تامة و لكن عندما حاولت التعديل على كود الاستاذ سليم لم استطع و احببت ان اتعلم كيف يصبح بعد التعديل اضافة الى اني احببت سهولة قراءة الكود ( مش زيك يا ابو المتاهات :D ) ههههههه , هذا مافي الامر

اين انت يا استاذ سليم نحتاج الى البساطة في الحل :)

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

السلام عليكم احتاج الى كود في حال وجدنا عمود يشابه الاخر نحذفه بالكامل if column A = column B Then Delete column B if column A = column C then delete column C if column A = column D Then Delte Column D . . ثم نعيدها مع B if column B = column C Then Delete column C if column B = column D Then Delete column D . . و هكذا حتى اخر عمود

طيب نخليها كده على شانك Range("A1", ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell)).Select

ما رأيك ؟ initialRw = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row initialClm = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column Range(Cells(1, 1), Cells(initialRw, initialClm))

اخي العزيز احاول التخفيف من الشرح ليسهل الامر و لا ندخل بمتاهات الشرط الثاني يقول : IF A1 = X & A2 = Y & B1 = X & B2 = Y & C1 = X & C2 = Y THEN IF A3 = B3 = C3 WE HAVE F3 = A3 ( حسب الشرط الاول ) IF A3 <> B3 OR A3 <> C3 OR B3 <>C3 THEN F3 = Two Answer ------------------------------- الى هنا الشرط الثاني -------------------------------- اما سؤالك فهو التعديل للشرط : ( اقرأه فقط و بعد الانتهاء من الشرط الثاني نقم به ) الان ان كان لدينا Two Answer اذا نقوم بعد الازواج كالسابق ان كان هناك 4 ازواج او اكثر متساوية if A1 = X & A2 = Y & B1 = X & B2 = Y & C1 = X & C2 = Y & D1 = X & D2 = Y THEN IF A3 = B3 = C3 = D3 THEN F3 = A3 ( حسب الشرط الاول في الملف القديم ) في اختلاف A3 B3 C3 D3 : - في حال الاختلاف لمرة واحد عندها يكون لدينا Two Answer ( حسب الشرط الثاني ) مثلا : IF A3 = B3 = C3 = 1 & D3 = 2 THEN F3 = Two Answer - في حال الاختلاف لاكثر من مرة عندها يكون لدينا Fail ( حسب التعديل الجاري ) مثلا : IF A3 = B3 = 1 & C3 = D3 =2 THEN F3 = Fail ---------------------------------------------------------------

عذرا على التأخير تفضل الشرط الثاني : في حال وجدنا اكثر من زوج مساو للزوج المطلوب عندها يجب ان يكون الناتج ايضا متساو مثال الزوج (F2 = 1 , F3 = 1 ) , المطلوب البحث عن زوج مساو له في السطرين الثاني و الثالث : فوجدنا الزوج ( A2 = 1 , A3 = 1 ) و ايضا الزوج ( B2 = 1 , B3 = 1 ) اذا تكون النتيجة F4 = A4 بشرط ان يكون A4 = B4 في حال كان A4 لا يساوي B4 عندها نضع Two Answer Conditions Tree v1.3.rar

ملف رائع من استاذ اروع بارك الله بك ,, هل نكمل للشرط الثاني ؟

تحقق الشرط الاول ,, على ما يبدو سأتعلم البرمجة قريبا ما رأيك أخي الفاضل صدقا لم اكتب vpa من قبل تبا لعقلي .. توقف مع الشرط الثاني ( ارجو ان يكون الملف مساعدا له ) Conditions Tree v1.2 First Condition.rar

نلتقي غدا ان شاء الله و صدقا لا املك من الخبرة بشيء انما عندما تضع المتغيرات احاول التعديل عليها بما تعلمت شكرا لك

اكيد Two Answer لاننا لا نمللك الا احدى الاجابتين 1 او 2

ان كان اكثر من زوج يجب ان تكون النتيجة متساوية حسب المثال في الملف النتيجة هي F8 = B8 بشرط B8 = C8 = D8