Makroyu biden fazla sayfada çalıştırma

[Beytur35]

Arkadaşlar, Bir excel dosyasındaki üç çalışma sayfasından aynı sutunları siliyoruz. Çalışma sayfaları: "N1- 3", "N1- 2" ve "N1- 1" dir. Ben bunları silen makroyu yaptım. Ancak döngü ile bu makroyu nasıl kısaltabiliriz. Çünkü işlemler aynı, sayfalar farklı.


Sub SutunSil1()

Sheets("N1- 3").Activate
Range("A1,B11,E1,F1:G1").Select
Selection.EntireColumn.Delete

Sheets("N1- 2").Activate
Range("A1,B11,E1,F1:G1").Select
Selection.EntireColumn.Delete

Sheets("N1- 1").Activate
Range("A1,B11,E1,F1:G1").Select
Selection.EntireColumn.Delete
End Sub

 

[Beytur35]

Arkadaşlar cevap bekliyorum.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Sil()
 
    Dim i As Byte, syf As Worksheet, dizi()
 
    dizi = Array("N1- 3", "N1- 2", "N1- 1") 'sayfalar
 
    Application.ScreenUpdating = False
 
    For i = 0 To UBound(dizi)
        Set syf = Sheets(dizi(i))
        syf.Range("A1,B1:D1,E1,F1:G1").EntireColumn.Delete
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

Not: Konu başlıklarınızı sorunun içeriğini ifade edecek şekilde belirlemenizi rica ederim.

 

[Beytur35]

Ömer Bey...

Emekleriniz için teşekkür ediyorum.