Satırları makro ile silme

[2008model]

Değerli arkadaşlar merhaba.benim bir sorum olacak yardımcı olacak arkadaşlara şimdiden çok teşekkürler.

Excell çalışma sayfam var bu sayfayı her ay sonu siliyorum.bu silme işlemini b sütünu ile m sütunu arasındaki satırları.teşekkürler

 

[Necdet]

Merhaba,

1. satırda başlık olduğu varsayımı ile :

Sub sil()
Range("B2:M65536").ClearContents
End Sub

Başlık Yok Varsayımı ile

Sub sil()
Range("B:M").ClearContents
End Sub

ya da

Sub sil()
Columns("B:B").ClearContents
End Sub

 

[2008model]

Hocam çok teşekkürler işimi görür çok sağol.birde unuttum yazmayı bazı sütunlar formül içeriyor ve formüller gizli korumalı.bu formülleri silmesinde istiyorum hani mümkünse..

 

[Orion1]

[B:M].SpecialCells(xlCellTypeConstants, 23).ClearContents

 

[2008model]

sayın evren bey verdiğiniz kod işimi gördü size ve emek veren tüm değerli dostlarıma çook teşekkür ederim.kolya gelsin..

 

[Orion1]

sayın evren bey verdiğiniz kod işimi gördü size ve emek veren tüm değerli dostlarıma çook teşekkür ederim.kolya gelsin..

Rica ederim.
İyi çalışmalar.