عبد المنعم قام بنشر ديسمبر 27, 2014 مشاركة قام بنشر ديسمبر 27, 2014 السلام عليكم احتاج الى كود في حال وجدنا عمود يشابه الاخر نحذفه بالكامل 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 . . و هكذا حتى اخر عمود رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 27, 2014 مشاركة قام بنشر ديسمبر 27, 2014 أخي الفاضل حبذا لو أرفقت ملف للعمل عليه رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 27, 2014 مشاركة قام بنشر ديسمبر 27, 2014 أخي عبد المنعم طرحت الموضوع ورحت فين ..مردتش على المشاركة السابقة بإرفاق ملف .. عموما اتفضل جرب الملف المرفق ..لعله يفي بالغرض Compare And Delete Identical Columns.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 27, 2014 مشاركة قام بنشر ديسمبر 27, 2014 السلام عليكم بالاذن من الاخ الصديق و الحبيب ياسر اليك هذا الحل عسى ان ينال اعجابك و اعجابه delete dupcolumns.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 27, 2014 مشاركة قام بنشر ديسمبر 27, 2014 أخي الحبيب سليم بارك الله فيك وجزاك الله خير الجزاء بصراحة الملف روعة روعة .. جربت الملف ويعمل بشكل ممتاز الحاجة الغريبة اللي هتجنني دلوقتي إني أخذت الكود الخاص بك وجيت أطبقه على ملفي في المشاركة اللي فاتت ، أعطاني رسالة خطأ ، راجعت الكود لم أجد ما يدعو للخطأ .. لاحظت إن فيه شيت تاني عندك فيه نفس البيانات قبل تنفيذ الكود .. قلت أعمل شيت تاني لقيت نفس الخطأ ... هل من إجابة على هذا الخطأ؟ رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 27, 2014 مشاركة قام بنشر ديسمبر 27, 2014 الشيت الثاني هو فقط لاعادة البيانات الى ما كانت علية(تراجع) حيث بعد تنفيذ الماكرو و لاختباره مرة اخرى انسخ الشيت الثاني الى الاول رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 27, 2014 مشاركة قام بنشر ديسمبر 27, 2014 أنا بالفعل بحثت داخل الكود عن شيء يخص الشيت الثاني لم أجد ... وتعجبت من الأمر ..جربت الكود الخاص بي في ملفك وعمل بشكل ممتاز ، لكن الكود الخاص بك عندما نقلته إلى ملفي لتجربته وجدت الأعمدة كلها حذفت وظهرت رسالة خطأ .. بما تفسر ..؟؟ هل من الممكن أن تجرب كودك على ملفي لنرى ماذا سيحدث؟ رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 27, 2014 مشاركة قام بنشر ديسمبر 27, 2014 كما قلت انه يقوم بمسح كل شيئ جرب ان تعدل الكود كما يلي وذلك باضافة سطر بسيط بين next و next لان في كل دورة ينقص عدد الاعمدة مقدار واحد Sub Deletecols() Dim rng As Range Dim i As Integer, j As Integer Dim counter As Long, numcolumns As Long With ActiveSheet Set rng = Range(Cells(1, 1), Cells(ActiveSheet.UsedRange.Rows.Count, _ ActiveSheet.UsedRange.Columns.Count)) End With numcolumns = rng.Columns.Count For i = 1 To numcolumns For j = i + 1 To numcolumns numcolomn = numcolomn - 1 If rng.Cells(j) Like rng.Cells(i) Then rng.Cells(j).EntireColumn.Delete End If Next numcolomn = numcolomn - 1 Next رابط هذا التعليق شارك More sharing options...
صلاح الدين المصلح قام بنشر ديسمبر 27, 2014 مشاركة قام بنشر ديسمبر 27, 2014 ملفان رائعــــــــــــان يحملان أفكارا مفيدة في مشاريع مفيدة من عملاقين من عمالقة المنتدى . شكــــــــــــــــــرا لكما ، تقبلا تحيــــاتي . رابط هذا التعليق شارك More sharing options...
عبد المنعم قام بنشر ديسمبر 27, 2014 الكاتب مشاركة قام بنشر ديسمبر 27, 2014 ما شاء الله ,, يحتار المرء من اين يكتسب الفائدة عمل اكثر من رائع , بارك الله بكما بالنسبة لكود الاستاذ ياسر فيناقش العمود بكامله مع الاعمدة المجاورة ( و هو المطلوب ) اما كود الاستاذ سليم يأخذ فقط الخلية الاولى من العمود و يقارنها بالخلية الاولى من باقي الاعمدة حاولت تعديله و لم استطع ,, هل من طريقة للتعديل ؟ جزاكما الله افضل خير , تقبلو تحياتي رابط هذا التعليق شارك More sharing options...
عبد المنعم قام بنشر ديسمبر 28, 2014 الكاتب مشاركة قام بنشر ديسمبر 28, 2014 اين انت يا استاذ سليم نحتاج الى البساطة في الحل :) رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 28, 2014 مشاركة قام بنشر ديسمبر 28, 2014 الأخ الحبيب عبد المنعم أليس قولك أن الكود عمل بكفاءة ؟ ما المطلوب الآن ؟؟ طالما أن الأمور سارت بشكل جيد ماذا تنتظر إذاً ؟ رابط هذا التعليق شارك More sharing options...
عبد المنعم قام بنشر ديسمبر 28, 2014 الكاتب مشاركة قام بنشر ديسمبر 28, 2014 اخي الفاضل الاستاذ ياسر بالفعل الملف الذي ارفقته حضرتك يعمل بكفائة تامة و لكن عندما حاولت التعديل على كود الاستاذ سليم لم استطع و احببت ان اتعلم كيف يصبح بعد التعديل اضافة الى اني احببت سهولة قراءة الكود ( مش زيك يا ابو المتاهات :D ) ههههههه , هذا مافي الامر رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 28, 2014 مشاركة قام بنشر ديسمبر 28, 2014 أخي الفاضل عبد المنعم .. طلبت منك من قبل الملف الخاص بالاحتمالات اللي دوخنا فيه الـ 7 دوخات ، ولم تلبي طلبي.. أنت هنا لتأخذ فقط .أم لتأخد وتعطي (وضح موقفك) رابط هذا التعليق شارك More sharing options...
عبد المنعم قام بنشر ديسمبر 28, 2014 الكاتب مشاركة قام بنشر ديسمبر 28, 2014 اخي و صديقي الاستاذ ياسر ,, لم اخيب طلبك و لكن الملف لم يكتمل بشكل كامل و مازلت اعمل عليه و هذا الطلب متمم له اخي العزيز هذه محاولتي لحذف الاعمدة المتشابهة , بعد طرحي للسؤال جلست افكر بطريقة لاصل للحل و بفضل من الله تم الامر و لكن الطريقة كما ستشاهد تدل على عدم خبرتي على الاطلاق , وما هي الا محاولة لامر لم اقم بتعلمه من قبل تفضل المرفق و اعطني رأيك همسة : على فكرة هذا الكود اسرع من الكود الذي ارفقته حضرتك في حال كانت البيانات كبيرة ( يعني كده سبقناك يا معلم ) Delete Dublicate.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 29, 2014 مشاركة قام بنشر ديسمبر 29, 2014 تسلم يا باشمهندس .. بردو التعليم بيفرق ، مش هتجيب واحد شغال مدرس زي واحد شغال مهندس (صحيح الاتنين أولهم ميم وآخرهم سين ..لكن مستواكم أعلى بالتأكيد) ربنا يوفقك ..وفي انتظار إكمال المهمة المستحيلة Mission Impossible ، بس متحرمناش من الملف النهائي .. تقبل تحياتي رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 29, 2014 مشاركة قام بنشر ديسمبر 29, 2014 صديقي ان الكود الذي قمت بتصميمه يعمل جيداً اذا كانت الاعمدة المتشابهة متجاورة\ فهل يعمل بنفس الطريقة اذا كانت متباعدة؟؟ تأكد من ذلك رجاءً رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان