كيفية حذف صفوف أو أعمدة

[mohsen mohamed]

السادة الأـساتذة الكرام/

السلام عليكم ورحمة الله وبركاته

في استفسار هل ينفع حذف صفوف أو أعمدة معينه من أكثر من شيت وقت واحد؟ وهل ينفع إضافة صف 
أو عمود معين في أكثر من شيت مرة واحدة؟

يعني عندي في الجدول المرفق (محمد محمد نوفل) عاوز أحذفه من الملف بالكامل ومن جميع الشيتات داخله مرة واحدة.

وكذلك لو حبيت أضيف بعد (ممدوح محمد عبد المجيد) صف في أكثر من شيت في الملف.

الإكسل يوفر ذلك.

وجزاكم الله خيراسجل مراجعة فرع الإسكندرية (3).xlsx

[محمد هشام.]

اخي الفاضل لحذف (محمد محمد نوفل) من جميع أوراق العمل   

هناك طرق تقليدية تغنيك عن الاكواد .لاكن في حالة
إختلاف مكان وجود الإسم أي( رقم الصف من ورقة لأخرى) يكون الكود أسرع وأدق.

  الكود التالي  يقوم بالبحث عن الإسم الهدف في عمود الأسماء  كله ويحذف الصف كاملا عند وجوده

Sub Delete()
    Dim ws As Worksheet
    Dim LastRow As Long, i As Long
    For Each ws In ThisWorkbook.Worksheets
        With ws
            LastRow = .Cells(.Rows.Count, 4).End(xlUp).Row
            For i = LastRow To 1 Step -1
                
                If .Cells(i, 4).Value = "محمد محمد نوفل" Then
                    .Rows(i).EntireRow.Delete
                End If

            Next i

        End With



اما بالنسبة لاضافة صف استخدم الكود التالي مع تغيير الرقم 14 بالصف المطلوب    


Sub insertRow()
    Dim insertBeforeRow
    insertBeforeRow = 14
    ActiveSheet.Rows(insertBeforeRow).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
     
End Sub


    Next ws

End Sub

تمت اضافة الاكواد للملف المرفق

 

سجل مراجعة فرع الإسكندرية (3)M-H.xlsm

[حسين مامون]

عليكم السلام

يمكنك تحديد اكثر من شيث عن طريق:

  اولا تفعيل الشيت الاول ثم حدد الصف  ثم الضغط باستمرار على شيفت ثم تفعيل الشت الاخير  سترى ان مجموعة من الشيتات محددة

ثم بزر الايمن في الماوس اضغط على الصف الذي تريد حدفه ثم حدف

[mohsen mohamed]

شكرا جزيلا أساتذتي الكرام

وجزاكم الله خيرا على هذه المعلومات وزادكم الله تعالى علما ونفعا