Hücre içeriğini temizleme

[mkstyle]

Değerli arkadaşlar.
Sayfa1'de a51:dd137
sayfa2'de a51:dd32
sayfa3'de a51:za28 hücrelerininin içeriğinin temizlenmesi lazım.Ama öncelikle bu sayfalardaki filitreler kaldırılacak ve bu işlem bir buton aracılığı ile olacak.

Selection.EntireRow.select
Sheets("sayfa1").range(A51D137).ClearContents
Sheets("sayfa2").range(A51D32).ClearContents
Sheets("sayfa3").range(A51:ZA28).ClearContents

Yazdığım bu kod kata veriyor.Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[Orion1]

Değerli arkadaşlar.
Sayfa1'de a51:dd137
sayfa2'de a51:dd32
sayfa3'de a51:za28 hücrelerininin içeriğinin temizlenmesi lazım.Ama öncelikle bu sayfalardaki filitreler kaldırılacak ve bu işlem bir buton aracılığı ile olacak.

Selection.EntireRow.select
Sheets("sayfa1").range(A51D137).ClearContents
Sheets("sayfa2").range(A51D32).ClearContents
Sheets("sayfa3").range(A51:ZA28).ClearContents

Yazdığım bu kod kata veriyor.Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

Eğer alan içinde birleştirilmiş hücre varsa hata verir.
Ya birleştirilmiş hücre kullanmayın yada aşağıdaki gibi kullanın.

Sheets("sayfa1").range(A51:DD137).value=empty