tüm sekmeleri sil

[peleryn]

Merhabalar;

Aktif sayfa dışındaki tüm diğer sayfaları nasıl bir kodla silebilirim.

 

[AS3434]

Sayın peleryn

Şöyle deneyebilirsiniz.

Butonu Aktif Sayfanıza koyun...

.

Sub Sayfasil()
  Application.DisplayAlerts = False
   For Each Sheet In Worksheets
   If Sheet.Name <> ActiveSheet.Name Then Sheet.Delete
   Next
End Sub

.

 

[peleryn]

Application.DisplayAlerts = True

Bu satırı sona ekleyerek kullandım.Yardımınız için teşekkür ederim kolay gelsin..