ترتيب الاسماء أبجديا مع الإبقاء على الخلايا الفارغة

[moh.elmadany]

من فضللكم يا جماعة

أريد طريقة لترتيب الاسماء أبجديا

في نطاق الخلايا من

b5

إلى

b204

مع الإبقاء على الخلايا الفارغة في مكانها دون تحريك

 

وشكرا لكم مقدما

[بن علية حاجي]

السلام عليكم

أين الملف الذي نعمل عليه؟ مع الشرح أكثر بمثال على الترتيب تقوم به يدويا...

بن علية حاجي

[moh.elmadany]

3 hours ago, moh.elmadany said:

اتفضل حضرتك
هتلاحظ ان عمود الاسماء مكتوب اسماء فوق وتحت

والمطلوب أن الاسماء تنتقل من تحت لفوق والعكس

بدون المساس بالخلايا الفارغة في الوسط بنقل مكانها أو أو

 

تجهيز-الكنترول-1-إبتدائي.rar

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

منذ ساعه, moh.elmadany said:

 

تجهيز-الكنترول-1-إبتدائي.rar

لا يمكن تحميل الملف لوجود خطأ ما 

يرجى اعادة الرفع مع الاختصار الى (حوالي 20 سطر)

[moh.elmadany]

اتفضل حضرتك

تجهيز الكنترول - 1 إبتدائي - Copy (4).rar

[بن علية حاجي]

السلام عليكم

هل تريد ترتيب الأسماء فيما بينها على طول العمود أم تريد ترتيبها حسب قائمة كل لجنة؟ 

الشيتات محمية بكلمة سرية...

بن علية حاجي

[moh.elmadany]

أريد ترتيبها على طول العمود 

 مرفق لحضرتك نسخة مختصرة مفتوحة 

تجهيز الكنترول - 1 إبتدائي - Copy (4).rar

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

جرب هذا الملف

تم العمل في الصفحة Salim و ذلك لعدم العبث بالصفحة الرئيسية

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

الماكرو فيما بعد (لبطء النت)

 

 

Salim.rar

[بن علية حاجي]

السلام عليكم

في المثال الذي بعثته توجد لجنتان 3 و 4، في الأولى يوجد 4 طلبة وفي الثانية يوجد طالب واحد، تريد أن نقوم بترتيب أسماء هؤلاء الطلبة أبجديا مع ترك 4 طلبة في اللجنة 3 و طالب واحد في اللجنة 4؟ كما فعلت يدويا في الملف المرفق...

بن علية حاجي

تجهيز الكنترول -1 ابتدائي- تجربة.rar

[moh.elmadany]

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

ايوة يا فندم ده المطلوب

بحيث يرتب العمود كله .. 

لكن يحافظ على الخلايا الفارغة - بحيث تظل الفارغة فارغة كما هي

وتظل الخلايا الممتلئة في كل لجنة ممتلئة كما هي

 

8 minutes ago, سليم حاصبيا said:

جرب هذا الملف

تم العمل في الصفحة Salim و ذلك لعدم العبث بالصفحة الرئيسية

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

الماكرو فيما بعد (لبطء النت)

 

 

Salim.rar

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

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

5 دقائق مضت, moh.elmadany said:

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

ايوة يا فندم ده المطلوب

بحيث يرتب العمود كله .. 

لكن يحافظ على الخلايا الفارغة - بحيث تظل الفارغة فارغة كما هي

وتظل الخلايا الممتلئة في كل لجنة ممتلئة كما هي

 

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

لادراج اللجان يجب ان تلغي الحلايا المدمجة في عامود اللجان

[moh.elmadany]

تمام يا استاذ سالم

لاحظت فقط أن أرقام الجلوس هنا غير مرتبة

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

5 دقائق مضت, moh.elmadany said:

تمام يا استاذ سالم

لاحظت فقط أن أرقام الجلوس هنا غير مرتبة

انت اردت الترتيب على اسم الطالب فقط (يمكن التعديل اذا اردت)

أريد طريقة لترتيب الاسماء أبجديا

 

[moh.elmadany]

تمام يا فندم - ياريت يا فندم يرتب اسم الطلاب وايضا ارقام الجلوس

وبعد إذنك مكان ادخال اسم الطلاب بدال ما هوه هنا العمود 

b , c

هنتخيل انها نفس العواميد بس في صفحة تانية اسمها الترتيب الأبجدي

 

[بن علية حاجي]

السلام عليكم

أخي الكريم سليم الكود الذي وضعته بهذه السرعة رائع جدا جازاك الله خير الجزاء وبارك الله فيك وفي علمك وزاده الله في ميزان حسناتك... بالنسبة لأرقام الجلوس أعتقد أنها تلقائية وتسلسلية مثلها مثل أرقام اللجان (وهي بمعادلات)، من المفروض أن لا يخصها الترتيب تبعا لترتيب الأسماء... قمت ببعض التعديل على كودك الجميل وربطه بالملف على أن يكون الترتيب للأسماء فقط وان تكون النتيجة في العمود الثاني (الخاص بالأسماء)... أرجو أن يفي ذلك المطلوب...

بن علية حاجي

تجهيز الكنترول -1 ابتدائي- مرفق كود الأخ سليم معدل.rar

[moh.elmadany]

إيه الجمال والحلاوة دي

والله يا جماعة - اسعدتموني 

سليم بك

بن علية حاجي

أنتم ناس عباقرة بجد 

أساتذة بجد

أنتم أحييتموني من جديد

وأعدتم لي الثقة في النفس

ربنا يحفظكم 

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

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

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

الكود

Option Explicit
Sub Salim()

 With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With

Sheets("الترتيب الأبجدي").Range("a:c").ClearContents
If Sheets("salim").Visible = False Then Sheets("salim").Visible = True
Sheets("salim").Activate
Sheets("الترتيب الأبجدي").Range("a:c").ClearContents
If ActiveSheet.Name <> "Salim" Then GoTo 1

Range("H4:I1000").ClearContents
Dim My_Rg As Range
Dim lr%, i%, m%, Last_Row%
m = 4
lr = Cells(Rows.Count, 2).End(3).Row
For i = 4 To lr
 If Cells(i, 2) <> "" Then
 Cells(m, "y") = Cells(i, 2)
 Cells(m, "Z") = Cells(i, 3)
 m = m + 1
 End If
 Next
  Range("y4:y" & Cells(Rows.Count, "Z").End(3).Row).Sort key1:=Range("y5"), Header:=1
  Range("z4:z" & Cells(Rows.Count, "Z").End(3).Row).Sort key1:=Range("z5"), Header:=1

m = 4
  For i = 4 To lr
   If Cells(i, 2) <> "" Then
     Cells(i, "H").Resize(, 2).Value = Cells(m, "y").Resize(, 2).Value
     m = m + 1
     End If
     Next
     Last_Row = Sheets("salim").Cells(Rows.Count, "h").End(3).Row
     Set My_Rg = Sheets("salim").Range("h4:i" & Last_Row)
     My_Rg.Copy Sheets("الترتيب الأبجدي").Range("a1")
     Sheets("الترتيب الأبجدي").Range("a:c").Font.Size = 14
     Sheets("salim").Visible = False
1:
    Range("y:z").ClearContents
     With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
End With
End Sub

الملف مرفق

Salim 1.rar

 

[moh.elmadany]

تسلم أستاذي سليم وأستاذي بن عليه

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

بارك الله في علمكم

ملحوظة : حضراتكم لم تحفظوا الملفات على امتداد

xlsm

رغم ذلك .. فالماكرو اشتغل عادي جدا

السؤال - ما الفارق بين امتداد 

xlsm

وامتداد 

xlsb

تم تعديل يناير 21, 2018 بواسطه moh.elmadany

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

تم حفظ الملف بصيغة

Excel 97-2003 Workbook الذي لا يحتاج الى هذا الامتداد( xlsm )

[moh.elmadany]

تسلم يا فندم على المعلومة