macro ile benzerleri silme

[semmis]

merhaba elimde 5 adet tablo var ve bu tablolar tek sheete sığamadığı için aynı workbookun farklı sheetlerinde yer alıyor...10 sütun içeriyor ve 1 milyon satır içeriyor.bu tablolarda bazı satırları silerek sheetlerimi azaltmak istiyorum..
mesela bir satır da eğer bir veya birden fazla hücrenin dolgu rengi kırmızı ise o satırın silinmesini istiyorum.. ama bu işlemi tek bir butonlar tüm sheetlerde yapmam lazım.. ne yazmam gerekir?

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle yapıştırıp dener misiniz? Olası bir hatada verilerinizi kaybetmenizi önlemek için önce dosyanızın bir yedeğini almanızı öneririm.
"...bir veya birden fazla hücrenin dolgu rengi kırmızı ise ..." demişsiniz. Kırmızının birçok tonu var. Eğer farklı bir renk tonu kullanmışsanız koddaki 255 sayısı yerine kullandığınız rengin kodunu yazmalısınız.

Sub Bul_Sil()
For i = 1 To Worksheets.Count
Sheets(i).Select
Application.FindFormat.Interior.Color = 255
Set Aranan = Sheets(i).Cells.Find(What:="", SearchFormat:=True)
    If Not Aranan Is Nothing Then
       Do
        Rows(Aranan.Row).Delete Shift:=xlUp
        Set Aranan = Sheets(i).Cells.Find(What:="", SearchFormat:=True)
       Loop While Not Aranan Is Nothing
    End If
Next i
MsgBox "Silme İşlemi Tamamlandı"
End Sub