Renkli hücreden veri silmek

[Tores333]

Merhaba,

belirtli bir sutunda 5. satır dan sonsuza giden hücrelerde renkli olanlardaki verileri silmek istiyorum.

örneğin;
A5:Asonsuz arasındaki renklendirilmiş hücredeki verileri silmek istiyorum.

yardımlarınız için şimdiden teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz...

Sub kod()
Application.ScreenUpdating = False
For a = 5 To Cells(Rows.Count, "A").End(3).Row
    If Cells(a, "A").Interior.ColorIndex <> xlNone Then
        Cells(a, "A").ClearContents 'Veriyi siler
        Cells(a, "A").Interior.ColorIndex = xlNone 'Renklendirmeyi kaldırır
    End If
Next
Application.ScreenUpdating = True
End Sub

 

[Muzaffer Ali]

Merhaba.

Ctrl+H tuşlarına basarak "Bul ve Değiştiri" açın.

Aranan kısmında biçim ayarlarından aradığınız rengi seçin.
Yeni Değer kısmını boş bırakın "Tümünü Değiştir" seçin.

 

[Tores333]

Merhaba,

Teşekürler.

 

[Tores333]

Merhaba,
Aşağıdaki kodu deneyiniz...

Sub kod()
Application.ScreenUpdating = False
For a = 5 To Cells(Rows.Count, "A").End(3).Row
    If Cells(a, "A").Interior.ColorIndex <> xlNone Then
        Cells(a, "A").ClearContents 'Veriyi siler
        Cells(a, "A").Interior.ColorIndex = xlNone 'Renklendirmeyi kaldırır
    End If
Next
Application.ScreenUpdating = True
End Sub

teşekkürler

 

[Tores333]

merhaba,

İlave olarak verileri sildikten sonra yerine 0 yazabilir miyiz?

 

[Muzaffer Ali]

Benim önerdiğim çözümde Değer kısmına 0 yazıp Tamama tıklatın.
ÖmerBey in önerdiği çözümü için

Cells(a, "A").ClearContents

satırı yerine

Cells(a, "A")=0

kopyalayın.