Renklİ HÜcre Sİlme

[ANTALYA 01]

Bu Sayfada 5000 Müşteri Var Makroyla Kırmızı Renkli Satırlar Silinecek Kodu-Ünvanı-Borç-Alacak-Borç Bakiye-Bakiye Alacak-Bakiye Tüm Satır.
Sadece Sıyah Renkli Satırlar Kalacak.Malum Kayıtlar Silinince Arada Boşluklar Çıkacak Boşluklarda Silenecek.

 

[veyselemre]

Sub KirmiziSatirlariSil()
For x = [a65536].End(3).Row To 3 Step -1
    If Cells(x, 1).Font.ColorIndex = 3 Then Rows(x).Delete 3
Next x
End Sub

 

[ANTALYA 01]

C

TeŞekkÜr Ederİm

 

[ileriexcel]

alternatif
Sub test()
For Each sil In Range("a1:g100")
If sil.Font.ColorIndex = 3 Then
sil.Delete
End If
Next
End Sub