تعديل كود حذف الصفوف الملونة

[هانى محمد]

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

تعديل كود حذف الصفوف الملونة.xlsm

[shreif mohamed]

وعليكم السلام

تفضل

Sub delete_redcells()
With ActiveSheet
If .AutoFilterMode Then
.AutoFilterMode = False
End If
End With
    Range("A1").Select
    Selection.CurrentRegion.Select
    Selection.AutoFilter Field:=1, Criteria1:=RGB(255, 0 _
        , 0), Operator:=xlFilterCellColor
Range("a1").CurrentRegion.Select
Selection.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete

With ActiveSheet
If .AutoFilterMode Then
.AutoFilterMode = False
End If
End With
End Sub

 

[Ali Mohamed Ali]

بارك الله فيك استاذ شريف ولإثراء الموضوع هذا كود اخر:

Sub Delete_Rows()
    Dim cell        As Range
    Dim delRange    As Range
    Application.ScreenUpdating = False
        For Each cell In ThisWorkbook.Sheets(2).Range("A2:G" & Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row)
            If cell.DisplayFormat.Interior.ColorIndex = 3 Then
                If delRange Is Nothing Then Set delRange = cell Else Set delRange = Union(delRange, cell)
            End If
        Next cell
            If Not delRange Is Nothing Then delRange.EntireRow.Delete
    Application.ScreenUpdating = True
End Sub

 

[هانى محمد]

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

جعلة الله فى ميزان أعمالكما