ترتيب أبجدى

[كعبلاوى]

أتمنى من اساتذتى فى المنتدى

ترتيب الملف الذى يتكون من  4 شيتات ترتيب ابجدى

من الالف للياء بدرجاتهم

ولكم منا جزيل الشكر

 

الصف الاول.rar

[أ / محمد صالح]

لتنفيذ المطلوب

1. حدد خلية الاسم F5 
2. ثم من تبويب بيانات data اضغط على تصفية filter
3. ستظهر أسهم في كل عنوان
4. اضغط على سهم الاسم واختر أول أمر في القائمة
5. فرز من أ إلى ي sort a to z

 

وهكذا في كل شيت

موفق إن شاء الله

[كعبلاوى]

شكرا استاذى الكبير

أ / محمد صالح

تظهر لى الصورة الاتية

[أ / محمد صالح]

معناها يجب فك الخلايا المدمجة

ثم تحديد الصف السفلي وتنفيذ خطوات الفرز

[كعبلاوى]

هل يمكن حل المشكلة عن طريق الاكواد

[أ / محمد صالح]

إذا كنت تقصد مشكلة الرسالة

فحلها بسيط ولا يحتاج لأكواد

فقط فك دمج العناوين المدمجة مثل الاسم

ثم الوقوف في الصف السفلي للعناوين (أول صف أعلى البيانات مباشرة) والضغط على فلتر

للعلم أستعمل أوفيس ٢٠١٦ ولا تظهر معي رسالة الخطأ هذه ولكن حضرتك مصمم على أن تصعب الحياة على نفسك باستعمال أوفيس ٢٠٠٣

وفقكم الله لكل خير

[كعبلاوى]

كل الشكر والتقدير للاستاذنا الفاضل

أ / محمد صالح ابن محافظتى

وأتمنى الا اكون ازعجتك باسئلتى واود ان اشير الى

اننى قمت فعلا بابجدة الاسماء فقط ولكن المطلوب

هو ابجدة الاسما بدرجاتهم وليس الاسماء فقط

لذا رجاء تنفيذه بالاكواد لاهمية الموضوع 

ملحوظة  كل شيت يختلف عن الاخر فى المدى

 

[كعبلاوى]

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

'
' الاسماء ماكرو
' الماكرو مسجل ‎24/01/2012 بواسطة ‎gharip
'

'
    Range("B4:H1505").Select
    Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("B4").Select
End Sub

 

[كعبلاوى]

كل عام والامة الاسلامية بخير

هل من حل

رمضان كريم

[كعبلاوى]

هل من مجيب