سليم حاصبيا

اليك هذا الملف ععسى ان يكون المطلوب VLOOKUP SALIM.rar

اليك هذا الحل MD salim.rar

ما رأيك في ان تختار اي عامود تريد select_aux_choix.rar

صديقي ان الكود الذي قمت بتصميمه يعمل جيداً اذا كانت الاعمدة المتشابهة متجاورة\ فهل يعمل بنفس الطريقة اذا كانت متباعدة؟؟ تأكد من ذلك رجاءً

انسخ اكنب هذه المعادلة و الصقها في المكان المناسب A1 هي الخلية الهدف "محـــمد" =LEN(SUBSTITUTE(A1,CHAR(220),"")) أو هذه =LEN(SUBSTITUTE(A1,"ـ",""))

يا اخي اكتب الحد الاقصى و الحد الادنى في الخلايا a2 :B2 الارقام بين العددين عشوائية (يمكن ان نجعلها مرتبة اذا اردت)

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

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

السلام عليكم بالاذن من الاخ الصديق و الحبيب ياسر اليك هذا الحل عسى ان ينال اعجابك و اعجابه delete dupcolumns.rar

رائع يا استاذ بن علية مع ان المعادلة عندي مختلفة قليلاً

ربما هذا ما تريده تفتيش عن عدد.rar

الملف على هذا العنوان http://www.samaup.com/do.php?id=21216

تم تحميل الملف على الرابط التالي http://www.samaup.com/do.php?id=21215

ارفاق الملفات لا يعمل و تظهر رسالة في اسفل الصفحة (الرد على مشاركة مقتبسة ) و جانبها "مسح" لا اعرف ما هذا صراحة

لغز جديد دسم حبتين للمتقدمين فقط كيف لنا ان نعمل هذا الجدول

على العموم اضافة جيدة لمن عندهم هذا الاوفيس

هل هذا ما تقصده عندي مشكلة في رفع الملفات حينما اصلحها سأرفع الملف

بحث عن رقم.rar هل هذا ما تقصده بحث عن رقم.rar

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

اخي ياسر ما رأيك بهذا الكود Sub last_cel() Range(Cells(1, 1), Cells(UsedRange.Rows.Count, UsedRange.Columns.Count)).Select End Sub

السلام عليكم اليك الحل التنسيق يعمل حتى2000 صف بمعادلة واحدة و يمكن الاضافة المخزون salim.rar

السلام عليكم حسب ما فهمت من المشاركة يلزك هذه المعادلة اكتبها في الصف الثاني من اي عامود =COUNTIF($B$2:B2,B2)

جرب هذا الملف لا تستعمل اشارة "/" لأان اكسل يفهمها تاريخ يمكنك الترقيم بطريقة اخرى 2--1 مثلاً بعد ان تملأ البيانات اكتب رقم الفاتورة serial2.rar

اخي ابراهيم خطأ بسيط وقع سهواً استبدل e8 ب e2 و e9 ب e3

اخي ياسر عندي حل لكن انا انتظر بعض الوقت لارى ماذا يفعل الاخوة الباقيين