Satır silme makrosunu tüm sayfalarda çalıştırma

[aysays90]

Merhabalar

Sub sil()

Dim syf As Worksheet
For Each syf In Worksheets
For i = 13 To 2 Step -1
Rows(i).Delete
Next
Next
End Sub



Bu şekilde bir makro yazdım amacım aynı kitaptaki tüm sayfalarda 13. satırdan 2. satıra kadar olan aradaki satırları silmek. Makro çalışıyor fakat i tüm sayfalarda uygulamıyor? Nasıl değiştirmem gerek makromu?



Teşekkürler

 

[Erdem Akdemir]

merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Sub dd()
For Each alan In Worksheets
alan.Rows("2:13").Delete Shift:=xlUp
Next

End Sub

 

[aysays90]

Çok teşekkürler elleriniz dert görmesin.

 

[aykokbay]

İstenilen bir bölgeyi silme kodu var mı elinizde? Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Nasil bir silme islemi yapmak istiyor sunuz?

Detayli aciklayiniz.