tek butonla 10 sayfanın içeriğinin temizlenmesi

[baron07]

aşağıdaki makro ile sayfa1 deki D9:AK36 aralığındaki hücrelerin içeriğini temizliyorum ve bu makroyu sayfa1 de bir butona bağlamak istiyorum.
10 sayfalık bir tahsilat bordrosu var ve hergün bu bordro sayfalarından aynı aralıktaki bilgiler silinip yeni tahsilat bilgileri girilecek
bende sayfa1 e bir buton eklesem ve tüm sayfalardaki aynı aralığı temizlese diyorum olabilirmi acaba?
yardımlarınız için şimdiden teşekkür ederim

Sub Makro1()
Range("D9:AK36").Select
Selection.ClearContents
End Sub

 

[danersin]

Asıl dosyanızda çalıştırmadan önce ne yaptığını deneyin kodların.
Sayfa1'i 1 numaralı sayfanız olarak kabul edip onun sağındaki tüm sayfalarda aynı alanı temizliyor. eğer sayfa1 dışındada silinmeyecek sayfa varsa bu sayfaları kitapta en sola alıp kaçıncı sayfadan itibaren silinecekse i=2 yi o sayfanın indisinden başlatabilirsiniz. kitabınızın yapısına uymazsa başka şekilde de çözüm bulunur.

[vb:1:4b1fe39f37]
Sub Makro1()
For i = 2 To Worksheets.Count
Sheets(i).Range("D9:AK36").ClearContents
Next i
End Sub
[/vb:1:4b1fe39f37]

 

[Levent Menteşoğlu]

Ayrıca aşağıdaki linkide inceleyin.

http://www.excel.web.tr/viewtopic.php?t=4492&highlight=sheets+clearcontents

 

[baron07]

sayın danersin
bu kodlar işimi fazlasıyla gördü
teşekkürler saygılar