مختار حسين محمود قام بنشر نوفمبر 20, 2014 قام بنشر نوفمبر 20, 2014 السلام عليكم المطلوب فى المرفق وهو حذف الصفوف الفارغة بين اسماء الاناث واسماء الذكور مع اعادة الترتيب علما بأن عدد صفوف الاناث = عدد صفوف الذكور وأن عدد الاناث قد يزيد أو ينقص من عام الى عام حذف الصفوف الفارغة.rar
ياسر خليل أبو البراء قام بنشر نوفمبر 20, 2014 قام بنشر نوفمبر 20, 2014 حضرتك عايز الترتيب على أي أساس . ترتيب أبجدي ذكور ثم إناث ولا إناث ثم ذكور ولا ترتيب أبجدي بصرف النظر عن النوع ولا الترتيب مش مهم والمهم حذف الصفوف الفارغة فقط حدد طلبك أكثر
سليم حاصبيا قام بنشر نوفمبر 20, 2014 قام بنشر نوفمبر 20, 2014 استاذ مختار اكتب هذا الكود في الصفحة المعنية يجب تصحيح غلطة في هذا السطر (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
مختار حسين محمود قام بنشر نوفمبر 20, 2014 الكاتب قام بنشر نوفمبر 20, 2014 السلام عليكم أستاذ ياسر وأستاذ سليم أولا شكرا على مروركم الكريم ثانيا أقصد يا استاذ ياسر بترتيب التلاميذ التسلسل العادى 1 2 3 4 5 وهكذا كل ما أريده أن الصفوف الفارغة التى بين البنات وبين الاولاد تخذف لأن ببعت ملف للأدارة التعليمية مماثل للملف المرفق فيه أول 150 صف للبنات وتانى 150 صف للأولاد وأنا عايز أخلى الكشف بدون فاصل بين البنات والأولاد ثالثا أستاذى سليم جارى التنفيذ
مختار حسين محمود قام بنشر نوفمبر 20, 2014 الكاتب قام بنشر نوفمبر 20, 2014 أستاذى الفاضل سليم شكرا لمجهودك الكريم لكن لم يفِ الكود بالمطلوب الكود ترك صف فارغ وكمان تسلسل التلاميذ ماكنش سليم استفسار الصفوف الفارغة المطلوب حذفها فيها معادلة جمع والجمع ده طبعا بيظهر لما أدخل بيانات تلميذة (الاسم والدرجات ) فهل الصفوف دى التى بها معادلات تعتبر فارغة أم لا ؟ وعلى كلٍ أنا أريد حذف تلك الصفوف بكود بدل الحذف اليدوى ملحوظة هناك فى الملف معادلة تسلسل للبنات ومعادلة تسلسل أخرى للأولاد وكمان لا تنسى أن عدد البنات يختلف من سنة الى اخرى ولحضراتكم جزيل الشكر
ياسر خليل أبو البراء قام بنشر نوفمبر 20, 2014 قام بنشر نوفمبر 20, 2014 أخي الفاضل مختار أنت لم توضح هل تريد المسلسل يكون منفصل أم متصل؟ التفاصيل مهمة يا جماعة عشان اللي يقدر يساعد يشتغل على بصيرة والموضوع ميطولش ... عموما جرب المرفق أنا اعتمدت على سيريال منفصل لكل من الذكور والإناث .. عشان كدا فيه عمود أنا ضفته للنوع تم إخفاء العمود Delete Empty Rows New Serial.rar
سليم حاصبيا قام بنشر نوفمبر 20, 2014 قام بنشر نوفمبر 20, 2014 يجب تصحيح غلطة في هذا السطر (Set movrange = Cells(i + 1, 2 لتصبح (Set movrange = Cells(i , 2
مختار حسين محمود قام بنشر نوفمبر 20, 2014 الكاتب قام بنشر نوفمبر 20, 2014 (معدل) أستاذ ياسر مجهود أكثر من رائع التسلسل مطلوب أنه يكون متصل يصير 1 2 3 4 وهكذا من أول بنت الى اخر ولد ولحضرتك تم تعديل نوفمبر 20, 2014 بواسطه مختار حسين محمود
سليم حاصبيا قام بنشر نوفمبر 20, 2014 قام بنشر نوفمبر 20, 2014 تم التعديل على الملف كي يناسب الترقيم المطلوب انظر الى الورقة (sheet 1 (2 حذف الصفوف الفارغة 1.rar
ياسر خليل أبو البراء قام بنشر نوفمبر 20, 2014 قام بنشر نوفمبر 20, 2014 أستاذ ياسر مجهود أكثر من رائع التسلسل مطلوب أنه يكون متصل يصير 1 2 3 4 وهكذا من أول بنت الى اخر ولد ولحضرتك بس دا مكانش واضح في المشاركة رقم 5 لما قلت هناك فى الملف معادلة تسلسل للبنات ومعادلة تسلسل أخرى للأولاد بالله عليكم يرجى دائما مراعاة توضيح الأمور كما ينبغي حتى لا تصعبوا علينا المساعدة اعذرني أخي .. ..فقد سألت التوضيح وحتى لما وضحت وضحت بشكل غير صحيح .. الكلام متناقض !! عموما تفضل المرفق والطلب الآن أسهل لأن التسلسل متصل Delete Empty Rows New Serial.rar
مختار حسين محمود قام بنشر نوفمبر 20, 2014 الكاتب قام بنشر نوفمبر 20, 2014 (معدل) أستاذ سليم شكرا على مجهودكم الكريم تم المطلوب ولحضرتك وللأستاذ ياسر كل الشكر والتقدير عذرا أستاذ ياسر على اللبس وسوء الايضاح تم تعديل نوفمبر 20, 2014 بواسطه مختار حسين محمود
مختار حسين محمود قام بنشر نوفمبر 21, 2014 الكاتب قام بنشر نوفمبر 21, 2014 طلب أخير من حضراتكم تطبيق الكود على المرفق التالى فى نتيجة تصف العام حاولت بنفسى فلم أعرف تطبيق جديد.rar
ياسر خليل أبو البراء قام بنشر نوفمبر 21, 2014 قام بنشر نوفمبر 21, 2014 تفضل أخي الفاضل تطبيق جديد.rar 1
مختار حسين محمود قام بنشر نوفمبر 21, 2014 الكاتب قام بنشر نوفمبر 21, 2014 بارك الله لك فى نفسك وأهلك ومالك استاذ ياسر استاذ سليم وجعله فى ميزان حسناتكم اللهم آمين
ياسر خليل أبو البراء قام بنشر نوفمبر 21, 2014 قام بنشر نوفمبر 21, 2014 الحمد لله أخي الفاضل أن تم الموضوع .. يرجى النقر على كلمة تحديد كأفضل إجابة لإعلام الأعضاء بأن الموضوع منتهي..
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.