مساعدة فى حذف الصفوف الفارغة مع اعادة الترتيب

[مختار حسين محمود]

السلام عليكم

المطلوب فى المرفق وهو حذف الصفوف الفارغة بين اسماء الاناث واسماء الذكور مع اعادة الترتيب

علما بأن عدد صفوف الاناث = عدد صفوف الذكور

وأن  عدد الاناث  قد يزيد أو ينقص من عام الى عام

حذف الصفوف الفارغة.rar

[ياسر خليل أبو البراء]

حضرتك عايز الترتيب على أي أساس . ترتيب أبجدي ذكور ثم إناث ولا إناث ثم ذكور ولا ترتيب أبجدي بصرف النظر عن النوع

ولا الترتيب مش مهم والمهم حذف الصفوف الفارغة فقط

حدد طلبك أكثر

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

استاذ مختار 

اكتب هذا الكود في الصفحة المعنية 

يجب تصحيح غلطة في هذا السطر (Set movrange = Cells(i + 1, 2

لتصبح (Set movrange = Cells(i , 2

Sub remove_and_sorte()
Dim ws As Worksheet
Dim myrange As Range
Dim movrange As Range
Dim lr As Integer
Dim lr1 As Integer
'''''''''''''''''''''''''''''
Set ws = ActiveSheet
lr = Cells(Rows.Count, 1).End(xlUp).Row
If lr < 2 Then lr = 2
Set myrange = Range("a1:e" & lr)
For i = 2 To lr

 If Cells(i, 2) <> "" Then GoTo 1
  If movrange Is Nothing Then
 Set movrange = Cells(i + 1, 2)
 Else
 Set movrange = Union(movrange, Cells(i, 2))
 End If
 
1:
 Next

movrange.EntireRow.Delete

''''''''''''''''''''''''''
lr1 = ws.Cells(Rows.Count, 1).End(xlUp).Row
    ActiveWorkbook.Worksheets("Sheet1 (3)").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1 (3)").Sort.SortFields.Add Key:=Range("B2") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1 (3)").Sort
        .SetRange Range("A2:E" & lr1)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

End Sub

[مختار حسين محمود]

السلام عليكم أستاذ ياسر وأستاذ سليم

أولا شكرا على مروركم الكريم    

ثانيا أقصد يا استاذ ياسر بترتيب التلاميذ التسلسل العادى 1 2 3 4 5 وهكذا

كل ما  أريده  أن  الصفوف الفارغة التى بين البنات وبين الاولاد تخذف لأن ببعت ملف للأدارة التعليمية مماثل للملف المرفق فيه أول 150 صف للبنات وتانى 150 صف للأولاد

وأنا عايز أخلى الكشف بدون فاصل بين البنات والأولاد

ثالثا أستاذى سليم جارى التنفيذ

[مختار حسين محمود]

أستاذى الفاضل سليم شكرا لمجهودك الكريم

لكن لم يفِ الكود بالمطلوب

الكود ترك صف فارغ وكمان تسلسل التلاميذ ماكنش سليم

استفسار       الصفوف الفارغة المطلوب حذفها     فيها  معادلة جمع  والجمع ده طبعا بيظهر لما أدخل بيانات تلميذة (الاسم والدرجات ) 

فهل الصفوف دى التى بها معادلات تعتبر فارغة أم لا ؟   وعلى كلٍ أنا أريد حذف تلك الصفوف بكود بدل الحذف اليدوى

ملحوظة      هناك فى الملف معادلة تسلسل للبنات  ومعادلة تسلسل أخرى للأولاد

                وكمان لا تنسى أن عدد البنات يختلف من سنة الى اخرى  ولحضراتكم جزيل الشكر

[ياسر خليل أبو البراء]

أخي الفاضل مختار

أنت لم توضح هل تريد المسلسل يكون منفصل أم متصل؟

التفاصيل مهمة يا جماعة عشان اللي يقدر يساعد يشتغل على بصيرة والموضوع ميطولش ...

عموما جرب المرفق أنا اعتمدت على سيريال منفصل لكل من الذكور والإناث .. عشان كدا فيه عمود أنا ضفته للنوع

تم إخفاء العمود

 

Delete Empty Rows New Serial.rar

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

يجب تصحيح غلطة في هذا السطر (Set movrange = Cells(i + 1, 2

لتصبح (Set movrange = Cells(i , 2

[مختار حسين محمود]

أستاذ ياسر مجهود أكثر من رائع

 

 التسلسل مطلوب أنه يكون متصل يصير 1 2 3 4 وهكذا من أول بنت الى اخر ولد

ولحضرتك

تم تعديل نوفمبر 20, 2014 بواسطه مختار حسين محمود

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

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

انظر الى الورقة (sheet 1 (2

حذف الصفوف الفارغة 1.rar

[ياسر خليل أبو البراء]

أستاذ ياسر مجهود أكثر من رائع

 

 التسلسل مطلوب أنه يكون متصل يصير 1 2 3 4 وهكذا من أول بنت الى اخر ولد

ولحضرتك

بس دا مكانش واضح في المشاركة رقم 5 لما قلت

هناك فى الملف معادلة تسلسل للبنات  ومعادلة تسلسل أخرى للأولاد

بالله عليكم يرجى دائما مراعاة توضيح الأمور كما ينبغي حتى لا تصعبوا علينا المساعدة

اعذرني أخي .. ..فقد سألت التوضيح وحتى لما وضحت وضحت بشكل غير صحيح ..

الكلام متناقض !!

 

عموما تفضل المرفق والطلب الآن أسهل لأن التسلسل متصل

Delete Empty Rows New Serial.rar

[مختار حسين محمود]

أستاذ سليم  شكرا على مجهودكم الكريم  تم المطلوب ولحضرتك وللأستاذ ياسر كل الشكر والتقدير

 

                                                             عذرا أستاذ ياسر على اللبس وسوء الايضاح

 

                                         

تم تعديل نوفمبر 20, 2014 بواسطه مختار حسين محمود

[مختار حسين محمود]

طلب أخير من حضراتكم

تطبيق الكود على المرفق التالى فى نتيجة تصف العام

حاولت بنفسى فلم أعرف

تطبيق جديد.rar

[ياسر خليل أبو البراء]

تفضل أخي الفاضل

 

تطبيق جديد.rar

[مختار حسين محمود]

بارك الله لك  فى نفسك وأهلك  ومالك   استاذ ياسر       استاذ سليم

 

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

[ياسر خليل أبو البراء]

الحمد لله أخي الفاضل أن تم الموضوع ..

يرجى النقر على كلمة تحديد كأفضل إجابة لإعلام الأعضاء بأن الموضوع منتهي..

[ابوانس2013]

تسلم يدكم

انا استفيد من ملف