B2’den İtibaren Tüm Alanın Silinmesi

[hakki83]

Merhaba

Örnek dosyada RAPOR adlı sayfada bir buton vardır.
Bu butonla, ÇALIŞMA sayfasının B2’den itibaren tüm alanını silecek kodu yazabilir miyiz?

Gerçek dosyada hem ThisWorkbook kısmında hem de Çalışma sayfasında bir çok kod vardır, Veri Doğrulama vardır, Koşullu Biçimlendirme vardır.

Umarım kodlar çakışmaz.

 

[1Al2Ver]

Merhaba,

Dosyanızın yedeğini aldıktan sonra deneyiniz !

Kodu, bir düğmeye atayınız !

Kodu, Çalışma Sayfası'nın Kodu'na, tüm sayfalarda çalışsın isterseniz de Modül'e kopyalayınız !

Kod, B2:S65 arası işlem yapar, bu aralığı kendinize göre düzenleyebilir siniz !

Option Explicit

'SADECE RAKAMLARI SİL

Sub RakamSil()
On Error GoTo son
[b2:s65].SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
son:
End Sub

'FORMÜLLER HARİÇ SİL

Sub FormulsuzSil()
On Error GoTo son
[b2:s65].SpecialCells(xlCellTypeConstants, 23) = vbNullString
son:
End Sub

 

[Necdet]

Merhaba,

Private Sub CommandButton1_Click()

    Sayfa2.Range("A1").CurrentRegion.Offset(1, 1).ClearContents
    
End Sub

 

[hakki83]

Merhaba,

Private Sub CommandButton1_Click()

    Sayfa2.Range("A1").CurrentRegion.Offset(1, 1).ClearContents
   
End Sub

Necdet hocam teşekkürler.