اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

لو تكرمتم اريد طريقة لإظهار الأرقام المكررة وحذفها ومن ثم ارسالها مرتب


الردود الموصى بها

السلام عليكم

مع عدم النقصان لمجهود اخي احمد يعقوب

اخي

جرب الملف المرفق

اتمني ان يساعدك او يكون هو مطلوبك

اخبرني بعد التجربة

تحياتي

ترحيل بالعمود.rar

رابط هذا التعليق
شارك

مشكور اخي الغالي عادل ترحيل اكثر من راااااااااااااائع

ولكن عند التجربة على 23 رقم بينهم رقم واحد فقط مكرر وجدت ان النتيجة ظهرت في الجدول النهائي 20 لماذا ؟؟

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

برجاء الشرح اكثر واكثر لها ربما استطيع التعديل عليها

ولو هناك حلول اخرى ياليت اخواني ترفعوها لي

تم تعديل بواسطه office 2003
رابط هذا التعليق
شارك

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

Sub go()

Sheets("جدول الأرقام المرسل").Range("A5:K30") = ""

n = 1

s = Sheets("تصفيه").Range("A2").End(xlDown).Row

For i = 2 To s

If Sheets("تصفيه").Cells(i, 1) <> "" Then

x = 2

1:

With Sheets("جدول الأرقام المرسل").Columns(x).Rows(30).End(xlUp)

If Sheets("جدول الأرقام المرسل").Cells(30, x) <> "" Then

x = x + 2

GoTo 1

Else

.Offset(1, -1) = n

.Offset(1, 0) = Sheets("تصفيه").Cells(i, 1).Value

End If

End With

End If

n = n + 1

Next

End Sub

رابط هذا التعليق
شارك

السلام عليكم اخي الحبيب ابو اسامه يسعدني ردك و ما اسعدني اكثر الاطمئنان عليك وكل عام و انتم بخير اخي 3002 eciffo اعذرني انا عندي مشكله بالنت و انا برد عن طريق الموبايل اولا لا يوجد مشكله بالكود اولا لابد ان تكون البدايه في صفحه الفرز من الخليه 3a وتم مراجعه الكود علي الملف مرارا دون اي مشاكل وانا عملت ملف لطلبك الاخير لكن مشكله النت منعتني من رفعه ولحين حل المشكله اتمني لك التوفيق تحياتي

رابط هذا التعليق
شارك

أخي لم افهم ماذا تقصد مش واضحة

هل حلي أعطى المطلوب

ام ان المعادلة غير واضحة

===================

التنسيق الشرطي في 2003 محدود بثلاث

ام في الاكسيل 2007 متاح بعدد ضخم

رابط هذا التعليق
شارك

غير واضحة

وبالنسبة للتنسيق الشرطى الا يوجد حل لزيادة عن 3 شروط

ولو تكرمت انا لدي عمودين متباعدين وفي كلا منهما مجموعة صفوف بها مبالغ كيف لي ان اجمع كلاهما

تم تعديل بواسطه office 2003
رابط هذا التعليق
شارك

  • 2 weeks later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information