sütundaki renksiz hücreleri silme

[muratfix]

arkadaşlar bir sütun içerisindeki renkli hücrelerin kalmasını ama diğer hücrelerdeki bilgilerin silinmesi için nasıl bir formül yazılabilir?

 

[Orion1]

A sütunu için

Sub silrenksiz59()
Dim i As Long, sat As Long
sat = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To sat
    If Range("A" & i).Interior.ColorIndex = xlNone Then _
        Range("A" & i).ClearContents
Next i
End Sub

 

[muratfix]

.ok teşekkürler hocam