Sayfalarda İşlem Yapmak İçin Döngü

[alpay1]

Merhaba Arkadaşlar,
Formun örnek programlar bölümünde de yayınladığım “Personel Maaş Takip” adlı çalışmamda ilk dört sayfa sabit.Personel kaydettikçe personel adına sayfalar açılıyor.Ben yıl sonunda bu sayfalarda kapanış yapmak istiyorum.Sayfa sayısı ve sayfa adı belli olmadığı için bir döngüyle 4.Sayfadan sonraki sayfalarda verileri silmek istiyorum.Yardımcı olacak arkadaşlara teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu bir modüle uygulayın.

Sub Temizle()
For X = 4 To Worksheets.Count
Sheets(X).Range("A2:H65536").ClearContents
Next
MsgBox "İşlem başarıyla tamamlanmıştır.", vbInformation
End Sub

Dosyanızdaki 4. sayfa dahil sonraki sayfalardaki "A2:H65536" hücre aralığının içereğini temizler.

 

[alpay1]

Codlarınız için çok teşekkürler.Gayet güzel çalışıyor.Tek sorun sayfalarda sayfa koruması var."Sayfa Korumalıdır" hatası veriyor.Tüm sayfalarda sayfa korumsını kaldırıp denedim.Kodlar kusursuz çalışıyor.
Teşekkürler.