belirli renkte olan satırları silme

[a.c.uysak]

Selam,

Bu konu hakkında yazılanları inceledim ama anlayamadım daha doğrusu kendi dosyama uyarlayamadım.

120 sayfalık ve hatta gittikçe artan excel dosyam var bazı satırlar sarı renkte.
Bu sarı renkli satırları toplu olarak nasıl silebilirim.

Yardımınızı bekliyorum.

 

[a.c.uysak]

yaptım. cevap yazmanıza gerek yok.

 

[Necdet]

yaptım. cevap yazmanıza gerek yok.

Nasıl yaptığını kendine mi saklıyorsun?

Bizde öğrenseydik, ileride kullanırdık.

 

[teknozof]

Biz de merak ediyoruz...

 

[a.c.uysak]

pardon arkadaşlar ben o şekilde düşünemedim.
burada hazırlanmış olan örnek dosyadan kod çektim.
ama aynı renk olanları silmek değilde aynı isimde başlayanları sildirdim yani renk hala anlatılabilir

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu kullanarak çalışma kitabınızdaki tüm sayfalarda "A" sütununa göre dolu satırlardan sarı renkli olan satırlar komple silebilirsiniz.

Sorgular "A" sütununa ve dolu hücrelere göre yapılmıştır. İhtiyaca göre değiştirebilirsiniz.

Option Explicit
 
Sub SAYFALARDA_SARI_RENKLİ_SATIRLARI_SİL()
    Dim SAYFA As Worksheet, X As Long
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    For Each SAYFA In ThisWorkbook.Worksheets
        With SAYFA
            For X = .Cells(Rows.Count, "A").End(3).Row To 1 Step -1
                If .Cells(X, "A").Interior.ColorIndex = 6 Then
                   .Rows(X).Delete
                End If
            Next
        End With
    Next
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub