Sayfadaki Verileri Silme

[ANTALYA 01]

Merhaba

Ekteki örnekte Sarı Renkli Yerleri Yani C-D-E-J-K-L-M-N Sütunlarındaki Sarı boyaları yerleri silen makroya ihtiyacım var.Makro kaydetle yapıyorum uzun zaman alıyor.Tek tek silmek

 

[Haluk]

Sub Test()
    Dim MyRng As Range
    For Each MyRng In ActiveSheet.UsedRange
        If MyRng.Interior.Color = vbYellow Then MyRng = Empty
    Next
End Sub

 

[ANTALYA 01]

C

Pardon yanlış anlattım galiba sarı renkli yerdeki hücrelerdeki değerleri verileri silmek istiyorum.Ben silenecek alanı sarıya boyadım.

 

[Haluk]

Bu kod o işi yapıyor zaten.

Sizin istediğinizi ben anlayamadım ...

 

[Ali]

Sub temizle()
Range("C3:E135,J3:N16,M20:M27,M30:M33,M36:M38,M42:M56").ClearContents
End Sub

 

[Merhum İdris SERDAR]

Sub sil()

Range("C3:E135,J3:N16,M20:M27,M30:M33,M36:M38,M42: M56").Clear

End Sub

Herhalde böyle bir şey isteniliyor.

??

 

[ANTALYA 01]

G

Merhaba

Ali bey İstediğim gibi olmuş ben anlatamadım galiba ilk başta kusura bakmayın.

Teşekkür ederim