Belirli sütun aralığı verilerini toplu temizleme

[EKREM1661]

Değerli Arkadaşlar..! (önce selam ve hayırlı günler dileğiyle)

Şöyle bir makro koduna ihtiyacım var.. Elimde bir Excel dosyasında (İsim.01, İsim.02, İsim.03 ....) diye devam eden 40 sayfa mevcut..

Bir buton aracılığı ile; bu sayfalara gitmeden, yani sayfaları seçmeden, belirtilen her sayfanın (B9:B39 ile F9:F39) aralıklarında yer alan verilerin temizlenmesi..

 

[alicimri]

Sub Makro1()
For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 5) = "İsim." Then
    Sheets(i).Range("B8:B39,F8:F39").ClearContents
    End If
Next
End Sub

 

[EKREM1661]

Yalnız Ali bey..! bir şeyi belirtmeyi unutmuşum.. Dosyada başka isimde sayfalar da var. Sadece İsim.01, İsim.02, İsim.03 .... diye devam eden sayfaları temizleyecek..

 

[alicimri]

#2 mesajdaki kodları değiştirdim.

 

[EKREM1661]

Ali bey.. Çok çok teşekkürler.. Elinize sağlık.. (Hayırlı ramazanlar dileğiyle..)