عمل كود للفرز من عمود لعدة اعمده حسب رؤوس الاعمدة

[OmHamza]

السلام عليكم ورحمه الله

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

ارغب بعمل كود للفرز من العمود الاجمالي إلى باقي الأعمده على حسب رؤوس الأعمده فعند تحديد العمود C والضغط على الكود يتم فرز محتويات الخلية في العمود حسب الاعمدة D-E-F-G-H-I-J-K- بحيث ان العمود C لو في محضر استلام يتم كتابه محضر استلام في العمود D ولو غير موجود تترك الخليه فاضيه وكذلك مثلا لوفي العمود سي امر منع سفر يكتب في العمود اف امر منع سفر ولو غير موجود تظل الخليه فارغه وهكذا كما هو مبين في المثال الصفوف الثاني والثالث

مرفق شيت الأكسل 

وجزاكم الله خيرا

فرز الاجراءات.xlsm

[سليم حاصبيا]

جرب هذا الملف

ملاحظة: عندك اخطاء بكتابة العناوين في الاعمدة

اذ يجب كتابة الكلمة بالضبط كما في في النص (دون زيادة او نقصان في المسافات )

مثلاُ محضر استلام تراها في النصوص هكذا ( محضر  استلام) (مسافتين  بين محضر  و  استلام)

الامر نفسه بالنسبة لباقي النصوص

 

Ijraat.xlsm

[OmHamza]

جزاك الله خيرا يااستاذ سليم حاصبيا بجد متشكره جدا هو ده ال انا عيزاه بالظبط

بس لو امكن يتم ده عن طريق كود لان المعادله هتقل شيت الاكسل جدا لاني هشتغل على ملف في اجراءات تقريبا ل 12 الف صف فا لو عملت المعادله هيبقى الشيت تقيل جدا 

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

اكون شاكره لحضرتك جدا

وجزاك الله خير

[سليم حاصبيا]

الماكرو اللازم (تم تغيير اسم الصفحة الى  salim لسهولة نسخ الكود  و لصقه دون ظهور أحرف غريبة وغير مقروئة)

Option Explicit

Sub Ijraat_By_Code()
Dim R%
With Sheets("salim")
    R = .Cells(1, "A").CurrentRegion.Rows.Count
    .Range("E1").CurrentRegion.Offset(1).ClearContents
    
    With .Range("E2").Resize(R - 1, 9)
    .Formula = "=IF(ISNUMBER(FIND(E$1,$C2)),E$1,"""")"
    .Value = .Value
    End With
End With
End Sub

الملف مرفق

Ijraat.xlsm

[OmHamza]

متشكرة جدا لحضرتك الف الف شكر

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

مرسي قوي قوي 

هو ده بالظبط ال انا عيزاه

السلام عليكم ورحمه الله 

ازي حضرك يا استاذ   سليم حاصبيا

معلش انا اسفه جدا بس ممكن حضرتك تعدلي الكود على الملف المرفق انا مش عارفه اظبطه خالص انا اسفه جدا لتعب حضرتك 

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

Ijraat1.xlsm

[سليم حاصبيا]

تم معالجة الامر

 

Ijraat_new.xlsm

[OmHamza]

متشكرة جدا لحضرتك وبجد جزاك الله خير استاد سليم حاصبيا