كيفية فرز عملاء

[أبو حنــــين]

السلام عليكم

استعمل هذا الكود

Sub sSort()

Application.ScreenUpdating = False
With Sheets("روض الفرج")
last = .Cells(Rows.Count, "B").End(xlUp).Row
.Range("B5:E" & last).Copy .Range("F5")
.Range("F5:G" & last).Sort Key1:=.Range("F5"), Key2:=.Range("G5")
.Range("H5:I" & last).Sort Key1:=.Range("H5"), Key2:=.Range("I5")

End With
End Sub

[Yasser Fathi Albanna]

والله العظيم برنس وهاتفضل برنس

هذا هوا المطلوب بالظبط

ربنا يبارك فى حضرتك يا أستاذ / أبو حنين

مش عارف أشكر حضرتك إزاى

أشكر حضرتك جدا جدا على سعة صدرك

مع وافر التحية

[Yasser Fathi Albanna]

اخى الكريم أبو حنين

لاحظت شيئ بالكود

أنه بالفعل يظهر الأسماء المتشابهه أما بعضها للمقارنة

بس لو فى إسم محتلف أريد أن يبقى لوحدة ولا يوجد أمامه أى إسم أى يبقى أمامه فى الناحية الثانية فراغ

أنظر المرفق بعد إذنك وأضغط على الذر

وأيضا لا حظت أنه لو فى إختلاف فى إسم واحد فقط بين القائمتين يحدث خلل لا أعرفه

الرجاء النظر للمرفق بعد إذنك

 

الذى أريده هو أنه لابد من وجود الأسماء المتشابهة أمام بعض بمسحوباتها

ولو فى إختىف فى أى إسم يظر لوحدة ويبقى أمامه فرغ ويبقى أخر واحد فى الصف

وشكرا لحضرتك

مقارنة.rar

[أبو حنــــين]

السلام عليكم

هذا الكود للملف الاول في المشاركة رقم 25

Sub sSort_BayName()

Dim D As Range, F As Range
Application.ScreenUpdating = False
With Sheets("روض الفرج")
last = .Cells(Rows.Count, "B").End(xlUp).Row

    .Range("F5:I" & last).ClearContents
    .Range("B5:C" & last).Copy .Range("F5")

            For Each D In .Range("D5:D" & last)
            For Each F In .Range("F5:F" & last)
            If CStr(D) <> CStr(F) Then GoTo 1  '& "*"
            F.Offset(0, 2) = D
            F.Offset(0, 3) = D.Offset(0, 1)
1
     Next F
     Next D
End With

End Sub

و هذا الكود للمشاركة الاخيرة رقم 28

Sub sSort_BayName()

Dim D As Range, F As Range
Application.ScreenUpdating = False
With Sheets("Comparison")
last = .Cells(Rows.Count, "B").End(xlUp).Row

    .Range("F5:I" & last).ClearContents
    .Range("B5:C" & last).Copy .Range("F5")

            For Each D In .Range("D5:D" & last)
            For Each F In .Range("F5:F" & last)
            If CStr(D) <> CStr(F) Then GoTo 1  '& "*"
            F.Offset(0, 2) = D
            F.Offset(0, 3) = D.Offset(0, 1)
1
     Next F
     Next D
End With

End Sub

جرب و اخبرني

[Yasser Fathi Albanna]

تسلم إيدك ولكن فى طلب بسيط فى المرفق

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

مقارنة.rar

[Yasser Fathi Albanna]

أسف جدا جدا يا أستاذ / أبو حنين ولكن أن طمعان فى كرم حضرتك الرجاء النظر إلى المرفق الأتى وبلاش المرفق السابق

به المطلوب بالضبط

وألف ألف شكر لتعب حضرتك معايا

مقارنة.rar

[Yasser Fathi Albanna]

اسف مرة ثانية أخى الحبيب وعلمى / أبو حنين

الرجاء الإفادة بالمرفق المشاركة 31

[Yasser Fathi Albanna]

أخى الفاضل الأستاذ القدير / أبو حنين

الرجاء الإفادة بعد إذن حضرت

وشكرا لسعة صدرك

[Yasser Fathi Albanna]

أخى الحبيب الأستاذ الفاضل / أبو حنين

هل حدث منى اى خطأ فى طلبى أم أننى أسأت فى طلباتى

لعدم الإفادة من حضرتك

وشكرا

[أبو حنــــين]

السلام عليكم

اخي ياسر

و الله كل ما في الامر هو انني لم اتوصل الى حل مقنع فكلما غيرت من الكود ظهرت نتائج غير التي اتوقعها

لذلك لم ارد على الفور

لكن اعتقد ان المرفق الآن يفي بالغرض

و تأكد انني لم انسى طلبك و والله لقد جلست اكثر من 4 ساعات على فترات و انا اغير ثم اغير ثم اغير ...حتى توصلت الى الكود المناسب

و الله اعلم ان كان صحيحا او لا

و ان كان هناك اي خطأ لا تتردد في ذكره فان اصبت فذلك هو مرادنا و ان أخطأت فربما غيري كفيل بذلك

مقارنة_2.rar

تم تعديل ديسمبر 23, 2013 بواسطه أبو حنين

[Yasser Fathi Albanna]

اخى الفاضل والمحترم والعزيز الغالى أستاذى / أبو حنين

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

وألف ألف مليون شكر لتعب حضرتك معايا

وأسف مرة ثانية لإذعاجك وربنا يديم الأخوة بيننا

مع دوام التوفيق لحضرتك

مقارنة_2.rar

[أبو حنــــين]

السلام عليكم

جرب المرفق  و اخبرني بالنتيجة

مقارنة_3.rar

[Yasser Fathi Albanna]

سلمت يداك يا كبير

كل الشكر والتقدير على مجهودك العظيم والشكر وحده لا يكفى

ربا يبارك فى حضرتك ويجعلك من المتميزين دائما يا أستاذى القدير / أبو حنين

لقد تعلمت منك الكثير والكثير

هذا هو المطلوب بالضبط وبكل دقة

ألف ألف مليون شكر مرة ثانية

وشكرا لمنتدانا العظيم

مع وافر التحية

[أبو حنــــين]

الحمد لله

و لاتتردد ان كانت هناك بعض الملاحظات

[Yasser Fathi Albanna]

ربنا يبارك فى حضرتك وشكرا لذوقك

[Yasser Fathi Albanna]

أستاذى الجليل والفاضل / أبو حنين

بعد التحية العطرة

وكل عام وحضرتك بخير وبألف صحة وسلامة

هل لى أن أطمع من حضرتك فى طلب أخر

أنا عارف إنى تقلت على حضرتك جدا جدا

بس أنا طمعان فى كرم وحضرتك وسعة صدرك

وألف ألف شكر على إهتمام حضرتك

المطلوب فى المرفق

Yasser.rar

[أبو حنــــين]

السلام عليكم

جرب المرفق اخي ياسر

Yasser.rar

[Yasser Fathi Albanna]

تسلملى يا كبير ربنا يكرمك يا أستاذى ومعلمى الفاضل / أبو حنين

هذا هوا المطلوب الضبط

وربنا يا رب يجعله فى ميزان حسناتك

وكل سنة وحضرتك طيب

وربنا يحفظك يا رب ويجعلها سنة سعيدة عليك