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

[اوفيس 2003]

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

Test.rar

[احمدزمان]

الدوال موجودة في المشاركة التالية

استخراج قائمة غير مكررة بإستخدام الدوال

[اوفيس 2003]

مشكور على الرد

ولكن لم استطيع الوصول الى الحل اخي الغالي

[عادل حنفي]

السلام عليكم

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

اخي

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

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

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

تحياتي

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

[ابو اسامة العينبوسي]

السلام عليكم

كود ممتاز اخى عادل

مسغول كثير انا لكن لا غنى عن المنتدى

كل عام و انتم بخير

[اوفيس 2003]

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

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

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

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

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

تم تعديل نوفمبر 22, 2009 بواسطه office 2003

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

[احمد فضيله]

اللهم لا سهل الا ما جعلته سهلا و انت تجعل الحزن اذا شئت سهلا

[يحيى حسين]

السلام عليكم

أخي هذه فكرة أخرى للحل إضافة لحلول الأخوة

أتمنى ان تستفيد منها

Offce 2003.rar

[اوفيس 2003]

مشكور بس مش واضحة معي اخي يحي

وفي انتظارك اخي عادل

بالنسبة للتنسيق الشرطي اخواني اجد لدي 3 اضافات فقط هل ممكن ازودها عن 3

[يحيى حسين]

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

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

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

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

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

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

[اوفيس 2003]

غير واضحة

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

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

تم تعديل ديسمبر 2, 2009 بواسطه office 2003

[اوفيس 2003]

UPUPUP

[اوفيس 2003]

UPUPUPUP