Tek bir makroyla birden çok sayfa silmek

[bravo64]

Merhaba arkadaşlar,
sorum şöyle;65 adet farklı adda sayfam var.her sayfadaki örneğin a5:f25,i3:j4 aralıklarını(her sayfada aynı) anagiriş sayfasında çalışan tek bir kodla silmek istiyorum..Tek tek silmek için kodum var..Ancak hepsini silmeyi beceremedim..
yardımcı olacak arkadaşlara şimdiden teşekkür ederim..

 

[Haluk]

    Sheets.Select
    Range("A5:F25,J3:J4").Select
    Selection.ClearContents

 

[Serpily]

Haluk beyin yazdığı kod ile kitabın tüm sayfalarında seçilen aralığı silersiniz.

Ben baştan bir iki sayfanın muaf olabileceği kabulu ile for-next li yapmıştım. Göndermezsem başım ağrır sonra.

 

[bravo64]

sayın serpily ve haluk ikinizede çok teşekkürler,
iyilik ve sevgiyle

 

[bravo64]

birden çok sayfada silmek

sayın serpily ve sayın haluk 'un kodlarını denedim ama hata veriyor(400)
a5:f25 ve ı3:j4 ve k23 yada farklı aralıkları 1-64 arası sayfa numaralı sayfalarda aynı anda silmek istiyorum..kitapta ayrıca başka isimlerdede sheets ler var,bensadece sheets("1") ile sheets("64")arasındaki sayfalarda silme yapacağım..
Teşekkürler yardımlarınıza..

 

[zafer]

Merhaba

Niçin ayrı bir başlık seçtiniz.Cevap vermek isteyenler eski başlığınızın ne olduğunu bilemiyebilirler.
Yeni yazdığınız metni konudan kopmamak için eski yerine taşırsanız iyi olur.

Saygılarımla

 

[bravo64]

haklısınız,yeni başladığım için prosedürü tam anlamamışım,aynı sayfaya mesajı aktardım..teşekkür ederim..

 

[Serpily]

Ã?rnek dosya çalışıyor, değil mi?

Sizin sayfalarınız 1'den 64'e kadarsa kodu şöyle değiştirin. Aralıkları da kendinize göre tanımlayın.

For aa = 1 To 64
   Worksheets(aa).Range("a5:f25").ClearContents
   Worksheets(aa).Range("I3:J4").ClearContents
Next

 

[bravo64]

sevgili serpily,önce teşekkür ederim.
Kod,çalıştırdığımda aa nın üzerinde debug veriyor..yazdığınız kodu aynen kopyaladım sadece aralığı değiştirdim..Ama hata veriyor..birde 1-64 olarak adlandırdığım sayfalar dışında 1.sayfadan önce isimlendirilmiş 7 sayfa daha var.
mesela "anaterminal" gibi.ben bu sayfalardaki 1 64 ü sileceğim..

 

[bravo64]

Düzeltme:1 ile 64 arasındaki tüm sayfalardaki aynı aralıkları silmek istiyorum..

 

[Serpily]

Sanırım şu andan itibaren biraz saçmalayacağım.

eğer 7+1 yani 8. sayfadan itibaren döngü başlayacaksa bu sorun değil.

for aa=8 to 72 yazılarak bu sağlanabilir.

aa=8 iken Worksheets(aa).Range("a5:f25").ClearContents

8. sayfanın belirtilen aralıklarının içeriğini silmesi gerekir.

 

[bravo64]

tamamen hakl1s1n1z.
Kod çalisiyor..minnettar1m size..
iyilikler dilerim..