Renkli Olan Satırları Silme

[japonbaba]

Merhaba Sorunum sayfada renkli olan satırları dolu veya boş olsun silmek silmek . Forumda baktım benzer konular var ama bana uyanı bulamadım rengi ne olursa olsun dolu veya boş olsun silmesini istiyorum yardımcı olursanız sevinirim saygılar...

 

[Korhan Ayhan]

"A" sütunundaki hücrelere göre aşağıdaki kodu deneyebilirsiniz.

Sub Satir_Sil()
    Dim Zaman As Double, Veri As Range, Alan As Range
    
    Zaman = Timer
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    For Each Veri In Range("A1:A1000")
        If Veri.Interior.ColorIndex <> xlNone Then
            If Alan Is Nothing Then
                Set Alan = Veri
            Else
                Set Alan = Union(Alan, Veri)
            End If
        End If
    Next
    
    If Not Alan Is Nothing Then Alan.EntireRow.Delete
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    
    MsgBox "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye"
End Sub

 

[japonbaba]

Teşekkür Ederim Tam istediğim gibi olmuş Ellerine sağlık kardeşim...

 

[japonbaba]

Sadece zaman kodları yazman mümkünmü başka projelerime eklemek isterim.