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

الردود الموصى بها

قام بنشر

اريد ادرج صف فارغ تحت كل صف به بيانات

والصف الذي ليس به بيانات يتوقف الكود عنده

قام بنشر

أخي الكريم أبو صلاح

جرب الكود التالي

Sub Copy_Specific_Row()
    Dim I As Long
    
    Application.ScreenUpdating = False
        For I = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
            Range(Cells(I, "A"), Cells(I, "D")).Insert Shift:=xlDown
        Next I
    Application.ScreenUpdating = True
End Sub

نفس فكرة الكود موجودة في الموضوع على الرابط التالي (مع تعديلات بسيطة جداً ليناسب طلبك)

الرابط من هنا

  • Like 1
قام بنشر

في هذا الكود (هو كود رائع) لكنه لا يضيف سطر فارغ تحت اخر صف به بيانات

وهذا المرفق

اضافة وحذف الصفوف.rar

قام بنشر

جرب الكود التالي

Sub Add_Rows()
    Dim I As Long

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
        With ActiveSheet
            I = ActiveSheet.UsedRange.Rows.Count
            For I = .Cells.SpecialCells(xlLastCell).Row To 6 Step -1
                If Len(Trim(Cells(I, 2))) <> 0 Then Rows(I).Insert
            Next I
            Rows(.Cells.SpecialCells(xlLastCell).Row).Copy
            Rows(.Cells.SpecialCells(xlLastCell).Row + 1).PasteSpecial Paste:=xlPasteFormats
        End With
    Application.CutCopyMode = False
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

Sub Delete_Rows()
    Dim I As Long
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
        I = ActiveSheet.UsedRange.Rows.Count
        For I = Cells.SpecialCells(xlLastCell).Row To 6 Step -1
            If Len(Trim(Cells(I, 2))) = 0 Then Rows(I).Delete
        Next I
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

  • Like 1
قام بنشر

يا سلام استاذ ياسر دائما حاضر بالرد تسلم تسلم

بارك الله فيك وجعله الله في ميزان حسناتك

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information