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



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






موضوع مغلق


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

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





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





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

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


أثارت هذه المشاركة إعجاب: YasserKhalil، hassona229، عبدالرحمن صبحى،



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

أثارت هذه المشاركة إعجاب: salim، hassona229، عبدالرحمن صبحى،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
دمج المراسلات-كل قائمة اسمية لوحدها -طريقة جديدة chardoneret
0 16 chardoneret
مدموج :نريد عمل دالة معرفة للدالة الجديدة VSTACK (برمجة الدالة) jjebril
3 274 jjebril
بداية جديدة مع لغة البرمجة : السى شارب C# &سيكوال سيرفر SQL Server & Dev Express عبدالجيد
5 343 السعيد الجزائري
وداعا للدالة vlookup واهلا بالدالة vlookup elsaqr الجديدة emad ghazi
50 14607 jjebril
تصدير ورقة عمل إلى مصنف جديد وحفظها باسم محدد YasserKhalil
17 3045 YasserKhalil

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








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

الساعة الآن 04:45 PM.