Formdaki bazı hücrelerin içeriğini buton ile silme

[abormen]

Merhaba,

Öncelikle yardımlarınız için teşekkür ederim, başlığı açmadan önce arama yaptım ancak işime yarayacak bilgiye ulaşamadım. Excel de kod yazmayı ve detaylı olarak uygulamayı pek bilmiyorum ancak öğrenmekte fayda var. Sorum şu olacak:

Basitçe 3 satır 7 sütunlu form yaptık B4, B5, B6 ya yazılan sayı ile sabit bir sayıyı çarpıp C4,C5, C6 ya yazıyor. Form sayfasının hemen altına yazdır butonu yaptım forumdan bulduğum Sayfa1.PrintOut , 1 kodu ile çalışıyor.

Şimdi ikinci bir buton yapıp buna tıklandığında B4, B5, B6 ya yazdığımız sayıların silinmesini istiyorum yada yazdıktan sonra otomatik olarak silinmesini.
Sayfa1.Cells(3, 1) = "" şeklinde bir kod buldum ama çalıştıramadım bir türlü bunu nasıl yapabilirim.

Vereceğiniz bilgiler için şimdiden teşekkürler...

 

[Necdet]

Merhaba,

Örnek olması açısından A1:F13 arasını silen kodlar

Sub Sil()
Range("B2:F13").ClearContents
End Sub

 

[abormen]

Merhaba,

Örnek olması açısından A1:F13 arasını silen kodlar

Sub Sil()
Range("B2:F13").ClearContents
End Sub

çok teşekkür ederim sabahtan beri bayağı uğraşmıştım 5 saniyede hallettiniz.

peki şöyle bişey nasıl olabilir yazdırdıktan sonra kendisi silse tek buton ile yani...

 

[Necdet]

Merhaba,

Aşağıdaki kod önce yazdırır sonra siler.

Sub Sil()
ActiveSheet.PrintOut
Range("B2:F13").ClearContents
End Sub

 

[grdlsv]

peki bunu farklı hücreler için nasıl uygularız?

Sub Sil()
Range("L9:L108";"N9:N108";"P9: P108").ClearContents
End Sub

bu şekilde hata verdi.

 

[grdlsv]

faklı hücrelerde
Sub Sil()
Range("L9:L108,N9:N108,P9: P108").ClearContents
End Sub

olmalıymış.