makroyla satır atlatarak satır silme

[kemalist]

makroyla satır atlatarak satır silmek istiyorum.mavi satırlar dururken sarı satırların silinmesini istiyorum.kalan mavi satırların sayısı 300 olacak.
örnek dosya ektedir.
ilginize şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SARI_RENKLİ_SATIRLARI_SİL()
    Dim X As Long
    
    Application.ScreenUpdating = False
    
    For X = Range("A65536").End(3).Row To 1 Step -1
        If Cells(X, "B").Interior.ColorIndex = 6 Then Rows(X).Delete
    Next
 
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[kemalist]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SARI_RENKLİ_SATIRLARI_SİL()
    Dim X As Long
    
    Application.ScreenUpdating = False
    
    For X = Range("A65536").End(3).Row To 1 Step -1
        If Cells(X, "B").Interior.ColorIndex = 6 Then Rows(X).Delete
    Next
 
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

sayın korhan bey ilginize çok teşekkür ederim.işlem tamam.

 

[polis-53]

Renkler

Merhaba korhan ayhan sarı rengin koddaki numarası 6 dır diğer renklerin numaraları nasıl öğrenebilirim saygılarımla.

 

[kemalist]

buyrun burada