[حل شده] حذف ردیفهای رنگی

[sunstar]

سلام علیکم
فرض کنیددر یک شیت حاوی اطلاعات زیادی می باشیم آیا کدی وجود دارد که در صورت اجرای آن اگرFillcolour سل C ردیف ها ، قرمزباشد آن ردیفها کاملاً delete گردد.
باتشکرازاساتید گرامی
هزارانوسپاس

[iranweld]

با سلام

ان شاالله که چنین کدی وجود دارد

Sub test()

Z = Sheet1.Cells(Sheet1.Rows.Count, "C").End(xlUp).Row
 

For I = 1 To Z

If Range("C" & I).Interior.ColorIndex = 3 Then
Rows(I).Select
    Selection.Delete Shift:=xlUp

End If

Next I


End Sub