حذف الاعمدة المتشابهة

[عبد المنعم]

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

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
.
.
و هكذا حتى اخر عمود

[ياسر خليل أبو البراء]

أخي الفاضل حبذا لو أرفقت ملف للعمل عليه

[ياسر خليل أبو البراء]

أخي عبد المنعم

طرحت الموضوع ورحت فين ..مردتش على المشاركة السابقة بإرفاق ملف ..

عموما اتفضل جرب الملف المرفق ..لعله يفي بالغرض

Compare And Delete Identical Columns.rar

[سليم حاصبيا]

 السلام عليكم

بالاذن من الاخ الصديق و الحبيب ياسر

اليك هذا الحل

عسى ان ينال اعجابك و اعجابه

delete dupcolumns.rar

[ياسر خليل أبو البراء]

أخي الحبيب سليم

بارك الله فيك وجزاك الله خير الجزاء

بصراحة الملف روعة روعة .. جربت الملف ويعمل بشكل ممتاز

الحاجة الغريبة اللي هتجنني دلوقتي إني أخذت الكود الخاص بك وجيت أطبقه على ملفي في المشاركة اللي فاتت ، أعطاني رسالة خطأ ، راجعت الكود لم أجد ما يدعو للخطأ ..

لاحظت إن فيه شيت تاني عندك فيه نفس البيانات قبل تنفيذ الكود .. قلت أعمل شيت تاني لقيت نفس الخطأ ...

هل من إجابة على هذا الخطأ؟

[سليم حاصبيا]

الشيت الثاني هو فقط لاعادة البيانات الى ما كانت علية(تراجع)

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

[ياسر خليل أبو البراء]

أنا بالفعل بحثت داخل الكود عن شيء يخص الشيت الثاني لم أجد ...

وتعجبت من الأمر ..جربت الكود الخاص بي في ملفك وعمل بشكل ممتاز ، لكن الكود الخاص بك عندما نقلته إلى ملفي لتجربته وجدت الأعمدة كلها حذفت وظهرت رسالة خطأ .. بما تفسر ..؟؟

هل من الممكن أن تجرب كودك على ملفي لنرى ماذا سيحدث؟

[سليم حاصبيا]

كما قلت انه يقوم بمسح كل شيئ

جرب ان تعدل الكود كما يلي وذلك باضافة سطر بسيط بين 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

[صلاح الدين المصلح]

ملفان رائعــــــــــــان يحملان أفكارا مفيدة في مشاريع مفيدة من عملاقين من عمالقة المنتدى .

شكــــــــــــــــــرا لكما ، تقبلا تحيــــاتي .

[عبد المنعم]

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

جزاكما الله افضل خير , تقبلو تحياتي

[عبد المنعم]

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

[ياسر خليل أبو البراء]

الأخ الحبيب عبد المنعم

أليس قولك أن الكود عمل بكفاءة ؟ ما المطلوب الآن ؟؟

طالما أن الأمور سارت بشكل جيد ماذا تنتظر إذاً ؟

[عبد المنعم]

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

[ياسر خليل أبو البراء]

أخي الفاضل عبد المنعم ..

طلبت منك من قبل الملف الخاص بالاحتمالات اللي دوخنا فيه الـ 7 دوخات ، ولم تلبي طلبي..

أنت هنا لتأخذ فقط .أم لتأخد وتعطي (وضح موقفك)

[عبد المنعم]

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

همسة : على فكرة هذا الكود اسرع من الكود الذي ارفقته حضرتك في حال كانت البيانات كبيرة ( يعني كده سبقناك يا معلم )   

Delete Dublicate.rar

[ياسر خليل أبو البراء]

تسلم يا باشمهندس .. بردو التعليم بيفرق ، مش هتجيب واحد شغال مدرس زي واحد شغال مهندس (صحيح الاتنين أولهم ميم وآخرهم سين ..لكن مستواكم أعلى بالتأكيد)

ربنا يوفقك ..وفي انتظار إكمال المهمة المستحيلة Mission Impossible ، بس متحرمناش من الملف النهائي ..

تقبل تحياتي

[سليم حاصبيا]

 صديقي

ان الكود الذي قمت بتصميمه يعمل جيداً اذا كانت الاعمدة المتشابهة متجاورة\

فهل يعمل بنفس الطريقة اذا كانت متباعدة؟؟ 

تأكد من ذلك رجاءً