أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الترقيم بشرط معين اكسيل اسئله واجابات


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





ادراج صف جديد بشرط

الصفحة مليئة بالبيانات اريد ان افصل بين الصفوف وبعضها بصف جديد قائم على الشرط . الشرط فى عمود التاريخ العمود B . =: وهو ..


موضوع مغلق


subject icon تمت الإجابة ادراج صف جديد بشرط
28-10-2020 04:03 مساء
عبدالرحمن صبحى
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-10-2018
رقم العضوية : 8466
المشاركات : 118
الجنس : ذكر
تاريخ الميلاد : 21-4-1996
الدعوات : 3
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 165
 offline 

الصفحة مليئة بالبيانات اريد ان افصل بين الصفوف وبعضها بصف جديد قائم على الشرط .
الشرط فى عمود التاريخ العمود B .
=: وهو اذا تغيير التاريخ فى الصف عن الصف الذى بعده يقوم الكود بعمل صف جديد

البيانات فى الصفحة عاملة كده  Fm1b4_لقطة الشاشة 2020-10-28 160200





وكنت عايزها تبقى كده bNZhw_لقطة الشاشة 2020-10-28 155712
 
 
 



أفضل إجابة مقدمة من salim وهي:
كان من الواجب وضع ملف للعمل عليه
جرب هذا الماكرو على الملف النموذج الذي انشأته لك

Option Explicit
Sub Insert_rows()
Dim Ro%, i%

del_empty_Rows
With Sheets("Salim")
    Ro = .Cells(Rows.Count, 1).End(3).Row
    i = 1
    Do Until i > Ro
         If .Cells(i, 1) <> .Cells(i + 1, 1) Then
            Ro = Ro + 1
            .Cells(i + 1, 1).EntireRow.Insert
            i = i + 1
        End If
      i = i + 1
    Loop
End With
End Sub
'+++++++++++++++++++++++++++++++++++
Sub del_empty_Rows()
With Sheets("Salim")
    Dim Lst%
        On Error Resume Next
          Lst = .Cells(Rows.Count, 1).End(3).Row
          .Range("A1:A" & Lst).SpecialCells(4).Delete
        On Error GoTo 0
    End With
End Sub

الملف مرفق
عرض الإجابة




28-10-2020 06:04 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif ادراج صف جديد بشرط
كان من الواجب وضع ملف للعمل عليه
جرب هذا الماكرو على الملف النموذج الذي انشأته لك

Option Explicit
Sub Insert_rows()
Dim Ro%, i%

del_empty_Rows
With Sheets("Salim")
    Ro = .Cells(Rows.Count, 1).End(3).Row
    i = 1
    Do Until i > Ro
         If .Cells(i, 1) <> .Cells(i + 1, 1) Then
            Ro = Ro + 1
            .Cells(i + 1, 1).EntireRow.Insert
            i = i + 1
        End If
      i = i + 1
    Loop
End With
End Sub
'+++++++++++++++++++++++++++++++++++
Sub del_empty_Rows()
With Sheets("Salim")
    Dim Lst%
        On Error Resume Next
          Lst = .Cells(Rows.Count, 1).End(3).Row
          .Range("A1:A" & Lst).SpecialCells(4).Delete
        On Error GoTo 0
    End With
End Sub

الملف مرفق
 
 
  Insert_empty_rows.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(25.717) KB


28-10-2020 06:48 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif ادراج صف جديد بشرط
بارك الله فيك أخي سليم وجزيت خيراً.



الكلمات الدلالية
بشرط ، ادراج ، جديد ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:38 صباحا