Sayfadan veri silmek

[kontto]

Arkadaşlar, Bir excel çalışma sayfasında butona tıkladığım zaman "Yazdır Sayfasında ki C1:Z100 arasında ki verilerin silinmesini istiyorum.
Yardımlarınız için şimdiden teşekkür ederim.

 

[asi_kral]

Merhaba
Kodu boş bir module kopyalayın ve deneyin.

Option Explicit
Sub sil()
Dim S1 As Worksheet
Set S1 = Sheets("yazdır")
S1.Range("C1:Z100").Clear
End Sub

Not Butona atamak için butona sağ tuş tıklayın ve makro ata deyin. Makroyu seçip tamam deyin.

 

[kontto]

Sayın asi_kral çok teşükkür ederim. Emeğine sağlık

 

[asi_kral]

Sayın asi_kral çok teşükkür ederim. Emeğine sağlık

Kolay Gelsin.

 

[kontto]

Sayın asi_kral çok teşükkür ederim. Emeğine sağlık yalnız tablo çizgilerini ve Ayarlamış olduğum yazı punto büyüklüklerinide siliyor. Sayfa eski haline geliyor. Örnek olarak Arial Yazı tipini seçiyorum. Karekter büyüklüğünüde 8 yapıyorum ve kenarlık çiziyorum. Ama kodu çalıştırınca tüm bu özellikler kayboluyor. Excel ilk haline dönüyor. Benim atamış olduğum özellikler kalması şartı ile silebilirmi. Yardımcı olursanız sevinirim.

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Sheets("Yazdır").[c1:z100] = ""

 

[Orion1]

ilgili satırı aşağıdaki ile değiştiriniz.

S1.Range("C1:Z100").Clearcontents