Makro ile birden çok sayfadaki verileri silmek.

[tufan03]

1,2 3, 80 diye adlandırılmış 80 adet excel sayfası var,sayfalarda yıl içinde giren ve çıkan tüketim malzemelerinin yazıldığı verileri yıl sonunda tek tuşla temizlemek istiyorum. Silinecek alanlar bütün sayfalarda aynı.(D983, B10:B83;I9:I149 ve K9:L149 aralıklarıdır.) acaba mümkünmü?.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub temizle()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Range("D9:D83,B10:B83,I9:I149,K9:L149") = Empty
Next
End Sub

 

[tufan03]

Sayın Hiçdurmaz Deneme imkanım olmadı,zira bütün sayfalar korumalı idi,işlemden önce topluca korumaları kaldırıp, daha sonra da tekrar korumaya alacak ilave yapılabilirmi?

 

[tufan03]

Ayrıca belirttiğim sayfalar dışında başka adla kaydedilmiş sayfalar da mevcut onlardaki bilgilerin silinmesini istemiyorum, sadece Sayılarla belirlenimş 1 ve 80 arası sayfalarda işlem yapılsın istiyorum.

 

[N.Ziya Hiçdurmaz]

Yanıt

Silinmesini istemediğiniz sayfaları ilave edersiniz.

Sub temizle()
Dim i As Integer
For i = 1 To Sheets.Count
If [COLOR="Blue"]Sheets(i).Name <> "Sayfa2" And Sheets(i).Name <> "Sayfa3" [/COLOR]Then
Sheets(i).Unprotect
Sheets(i).Range("D9:D83,B10:B83,I9:I149,K9:L149") = Empty
Sheets(i).Protect
End If: Next
End Sub