Renkli satırları silmek!

[alfa&omega]

renklı hucrelerı yada satıları tek tek crtl ıle secıp sılıyorum makro yazmadan baska yontem ıle bu satırları sılebılır mıyız?[/B]

 

[zafer]

Merhaba

300 olan satır sayınızı değiştirebilirsiniz
Interior.ColorIndex = 3 kırmızı 41 mavi için siz hangi renkleri silecekseniz
o rengi ilave ediniz.

Sub renklisatirsil1()
Dim hucre, a As Integer
For hucre = 300 To 1 Step -1
If Cells(hucre, 1).Interior.ColorIndex = 3 Or Cells(hucre, 1).Interior.ColorIndex = 41 Then
Cells(hucre, 1).EntireRow.Delete
End If
Next
End Sub

 

[Ali]

Zafer Bey'in koduna küçük bir ilave

If Cells(hucre, 1).Interior.ColorIndex = 3 Or Cells(hucre, 1).Interior.ColorIndex Cells(hucre, 1).Interior.ColorIndex = 41 Then

olan satırı

If Cells(hucre, 1).Interior.ColorIndex <> xlNone Then

olarak değiştirirseniz tüm renkli satırlar silinecektir.

 

[zafer]

Çok doğru:kafa: :kafa:

Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Sn. zafer beyin çözümüne alternatif olarak aşağıdaki koduda kullanabilirsiniz. Gerçi siz makro olmadan demişsiniz ama bu işlemi makro kullanmadan CTRL+H (Değiştir) menüsü ile renkleri değiştirerek yapabilirsiniz. Bu menüdeki aranan kısmındaki biçim bölümüne değiştireceğiniz dolgu rengini seçip yeni değer kısmındaki biçim bölümünede dolgu rengi yok seçimini yapıp tümünü değiştir derseniz. Renkleri silmeden sadece dolgu rengini değiştirebilirsiniz.

Aşağıdaki kod A sütunundaki hücreleri kontrol eder ve dolgu rengi varsayılan (xlNone) olmayan satırları siler.

Sub RENKLİ_SATIRLARI_SİL()
    For X = 1000 To 1 Step -1
    If Cells(X, 1).Interior.ColorIndex <> xlNone Then Cells(X, 1).EntireRow.Delete
    Next
    MsgBox "Renkli sat&#305;rlar silinmi&#351;tir.", vbInformation
End Sub