Renkli Satırları Temizleme

[kemalist]

Arkadaşlar renkli satırları temizlemek istiyorum.İlgili dosya ektedir.İlginiz için şimdiden teşekkür ederim.

 

[Orion1]

Buyurun.

Sub temizle59()
Dim sonsat As Long, i As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 6 To sonsat
    If Cells(i, "A").Interior.Color = vbYellow Then
        Range("A" & i & ":D" & i).Clear
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Veriler temizlendi." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[kemalist]

sayın evren çok teşekkür ederim bu mübarek gecede banada vakit ayırdınız Allah razı olsun.Miraç geceniz mübarek olsun...

 

[xternet]

Buyurun.

Sub temizle59()
Dim sonsat As Long, i As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 6 To sonsat
    If Cells(i, "A").Interior.Color = vbYellow Then
        Range("A" & i & ":D" & i).Clear
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Veriler temizlendi." & vbLf & "evrengizlen@hotmail.com"
End Sub

Sayın Orion;

Ben yukarıdaki makroyu renge göre değilde, belirlediğim bir kelimeye göre uygulamak istesem nasıl bir değişiklik yapmalıyım?
Mesela A1 hücresine yazdığım kelimenin olduğu satırlar temizlenecek?

 

[askm]

Sub temizle59()
Dim sonsat As Long, i As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 6 To sonsat
    If Cells(i, "A") = Cells(1, "A")  Then
        Range("A" & i & ":D" & i).Clear
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Veriler temizlendi." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[xternet]

Sayın Orion;

Az önce koddaki ifadeyi yanlış değerlendirdiğim için çözemem diye düşünmüştüm ama yanıtı beklerken biraz daha dikkatlice inceleyince;

If Cells(i, "A").Interior.Color = vbYellow Then

yerine

If Cells(i, "A") = Range("E2") Then

yazınca E2 deki kelimeye göre satırları temizledi.

Yeterince incelemeden soruyu sorduğum için üzgünüm.
Çok teşekkür ediyorum kod için.
İyi çalışmalar.

 

[xternet]

Sayın askm;

Aynı anda yazmışız sanırım. Şimdi gördüm düzenlemenizi.

Sizin yaptığınız düzenleme ile benim yazdığım arasında fark varmı?
Hangisini kullanmak daha doğru olur?

 

[askm]

Sizin yazdığınız gibi sadece renk yerine hücreyi getirdim.

 

[xternet]

Teşekkür ederim Sayın askm.

İyi çalışmalar.