Belirli Sayafalarda ki Belirli Aralıkları Silme

[ozlem.solmaz]

Merhabalar,

1'den 31' e kadar sayfalarım var, ayrıca veri ve parametre sayfalarım var.

Yapmak istediğim işlem, 1,2,3,4,5,6,7,8,9,10... 31'e kadar olan sayfalarım içinde ki D2 ile K15 ve D20 ile K35 arası hücrelerdeki verileri temizlemek istiyorum.

Yardımcı olur musunuz.

 

[uzmanamele]

Merhaba

Dosyanıza göre düzenleyiniz.

Sub sil()
For i = 1 To Sheets.Count
Sheets(i).Range("D2:K15").ClearContents
Sheets(i).Range("D20:K35").ClearContents
Next
End Sub

 

[uzmanamele]

Merhaba
Sayfa adları 1,2,3... gibiyse sırası önemli olmadan silme işlemini yaparsınız, diğer sayfalara da dokunmaz.

Sub sil_2()
For i = 1 To 31
Sheets(CStr(i)).Range("D2:K15").ClearContents
Sheets(CStr(i)).Range("D20:K35").ClearContents
Next
End Sub