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

[mahmoud.dbour]

السلام عليكم ورحمة الله وبركاته

احتاج بالله عليكم شرح التالي

1- لدي عمود مكرر به كلمة ( رقم الهوية : ) وبعدين ارقام الهويات عاوز احذف بمعدله كلمة رقم الهوية :  فقط

بدل ما اخذفها من كل خانة تاخد معي وقت شهريا  كما بالصورة

2- لدي عمود به ارقام ولدي عمود اخر به نفس الارقام ابغي ارتب العمود الثاني نفس الاول كما بالصورة ارجو المساعدة

اوفسينا.xlsx

[محمد حسن المحمد]

أخي الكريم السلام عليكم ((مع رجاء إرفاق ملف للعمل عليه من قبل الزملاء الأفاضل)):

لإزالة السلاسل النصية من مجموعة من الخلايا في العمود B بدءاً من B2 نزولاً حتى آخر صف تريده يمكنك استخدام معادلة صفيف كما يلي :

في الخلية C2:
=SUM(MID(0&B2;LARGE(INDEX(ISNUMBER(--MID(B2;ROW($1:$99);1))*ROW($1:$99););ROW($1:$99))+1;1)*10^ROW($1:$99)/10)
استخدم ALT+SHIFT+ENTER 

ثم تنسخ الناتج وتلصقه (لصق قيم في العمود B مثلاً)

أو تسجل موديول كما يلي لمسح كلمات (رقم الهوية:) والإبقاء على الرقم في العمود ذاته:

Sub ReplaceText()
    Cells.Replace What:="الاسم:", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:="رقم الهوية:", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

أما بقية الأسئلة ففي منتدانا من خلال البحث ستجد ضالتك إن شاء الله تعالى.

إو إن شئت استخدم المعادلة التالية في العمود الثالث كما يلي:

=IF($A1<>"";VLOOKUP(A1;$B$1:$B$170;1;0);"")

تقبل تحياتي العطرة والسلام عليكم.

ملاحظة: تمت كتابة معظم مشاركتي حسب طلبك كما جاء في الصورة التي أرفقت ....حرر للبيان.

اوفسينا.xlsm

[mahmoud.dbour]

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

 

[محمد حسن المحمد]

2 ساعات مضت, mahmoud.dbour said:

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

 

هذه المعادلة والله أعلم. وإن كان أحد من الزملاء يرغب بالتعديل فله ذلك على الرحب والسعة.

3 ساعات مضت, محمد حسن المحمد said:

استخدم المعادلة التالية في العمود الثالث كما يلي:

=IF($A1<>"";VLOOKUP(A1;$B$1:$B$170;1;0);"")

 

[محمد حسن المحمد]

لحذف الاسم في العمود A بالمعادلات 

=SUBSTITUTE(A1;"الاسم:";"";1)
واسحب نزولاً

لحذف رقم الهوية في العمود B بالمعادلات أيضاً

=SUBSTITUTE(B1;"رقم الهوية:";"";1)
واسحب نزولاً

 

[omar elhosseini]

شاهد المرفق اخي ( ترتب ارقام العمود يكون نفس ترتيب العمود اللى قبله )

اوفسينا.xlsm

[بلانك]

الكود يعطي خطأ omar elhosseini

[بلانك]

اكسل 2010

[omar elhosseini]

ارجو ان يقوم احد الاعضاء بتجربة الكود وله الشكر

[مهند محسن]

انتبه من فضلك استاذ بلانك .... فالكود يعمل بكل كفاءة أعتقد المشكلة عندك انت ... بارك الله فيك استاذ عمر الحسينى كود رائع جعله الله فى ميزان حسناتك

[محمد حسن المحمد]

السلام عليكم

هذه صورة عن الورقة التي أجري عليها الفرز بعد تفعيل الكود

لديّ Office 2016

على رسلك أخي الكريم @مهند محسن فالدلالة على خطأ وقع في كود ما ليس انتقاداً هداماً بل هو لتصحيح الخطأ وقد يكون من استخدام اسم الورقة العربي في الكود مثلاً

جزاكم الله خيراً كل من ساهم ويساهم في تطوير العمل بهذا المنتدى الكريم ...مع العلم أنني قلت لأخي الكريم @omar elhosseini أرجو لك مستقبلاً واعداً لمساهماته الطيبة ومساعدته للآخرين 

 

وبما أن هذا المنتدى تعليمي حبذا لو يكون شرح كل حل واضحاً للعيان وليس فقط ضمن ملف العمل الخاص بالسائل فحسب لننهض بمنتدانا ليبلغ قمة السؤدد والعطاء

أسألكم اللين في المعاملة وانتقاء الأجوبة المشجعة وليس العكس مثل:

5 ساعات مضت, مهند محسن said:

انتبه من فضلك استاذ بلانك .... فالكود يعمل بكل كفاءة أعتقد المشكلة عندك انت

وقد تبين أن المشكلة ليست من عند السيد @بلانك حسبما ترى في الصورة أعلاه.

والسلام عليكم.

[بلانك]

اخي محمد حسن لا اقصد الاهانه او التقليل من عملك .... ولكن قلت الكود لايعمل يشكل جيد وعلى العموم فأنا اسف لك ورمضان كريم💩

[محمد حسن المحمد]

العفو أخي الكريم @بلانك ولا يهمك أما الكود فهو للأخ الحسيني جزاه الله خيرا 

رمضان مبارك علينا وعليكم أعاده الله تعالى بالخير واليمن والبركات.

[بلانك]

اخي omar elhosseini لا اقصد الاهانه او التقليل من عملك .... ولكن قلت الكود لايعمل يشكل جيد وعلى العموم فأنا اسف لك ورمضان كريم💩