Makronun döngü ile tüm sayfalarda çalışması

[dedenet]

bir excel çalışma kitabı içinde, Birbirine benzer çok sayıda sayfaları var.
bir sayfa için Yazdığım makroyu çalıştırdığımda Sayfa1, sayfa2..... tüm sayfalarda çalışmasını istiyorum.
yani for next döngüsü. Sayfa1 sayfa2 şeklinde sayfa adlarını yazarak yapabiliyorum.
Ancak herhangi bir sayfa adı belirtmeden tüm sayfalarda çalışmasını ve
Sayfa adı değiştiğinde veya yeni bir sayfa eklediğimde kodda herhangi bir değişiklik yapmadan çalışmasını istiyorum.
Örnek dosya ektedir.

 

[muratb06]

Sub abc()
On error resume next
Dim ws as Worksheet
ws(1).select 'birinci sayfayı seçer gerek yoksa silebilirsiniz.
For Each ws In ActiveWorkbook.Worksheets
'kodunuzu buraya yazınız veya
'Call xyz
Next
End Sub



ASUS_Z00LD cihazımdan Tapatalk kullanılarak gönderildi

 

[dedenet]

Yazdığım kod aşağıdaki gibi. BİLGİ-2, BİLGİ-3.... BİLGİ-10 ŞEKLİNDE SAYFALAR VAR.
Makro BİLGİ sayfasında tekrar tekrar çalışıyor, BİLGİ-2, BİLGİ-3 sayfalarına geçmiyor
BİLGİ sayfasında dolanıp duruyor. Nerede hata yapıyorum?

Sub Makro1()
Dim sayfa As Worksheet
Set sayfa = Sheets("BİLGİ")

On Error Resume Next
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets

Dim i As Integer
For i = 4 To 4 + 4
bolge = Cells(i, 2)
If bolge <> sayfa.[M3] Then
Range("C" & i & ":" & "D" & i).Select
Selection.ClearContents
End If
Next i

Range("A1").Select

Next
End Sub

 

[muygun]

Merhaba;
Eki deneyin. (kendinize uyan makroyu kullanın)
İyi çalışmalar.

 

[dedenet]

teşekkür ederim.