Sheet Sil

[Kemal Demir]

Arkadaslar Muhakkak Kolaydır ama Olmuyor.

Bir Excel Sayfa İçerisinde;

Atıyorum 85 Adet Sheet Açılmış

Bu 85 Þheet İçerisinde Sadece index isimli Sheet kalsın diğer sheetler silinsin bunun kod mantıgı nedir yardımcı olursanız sevinirim.


Kolay Gelsin.

 

[zafer]

Merhaba

Sub Makro4()
On Error Resume Next
a = Worksheets.Count
For i = 1 To a

Worksheets(i).Select

If ActiveSheet.Name = "index" Then GoTo atla
ActiveSheet.Delete
atla:
Next
End Sub

 

[Kemal Demir]

TEÞEKKUR EDERİM.

Biraz Ayıp Olcak ama Tek Tek Sordurmadan Direkt Seçip silme İmkanımız olabilir mi?


Olmaz ise Yineden Teşşekur Ederim.

 

[zafer]

Merhaba

Sub Makro4()
On Error Resume Next
Application.DisplayAlerts = False

a = Worksheets.Count
For i = 1 To a

Worksheets(i).Select

If ActiveSheet.Name = "index" Then GoTo atla

ActiveSheet.Delete
atla:
Next
Application.DisplayAlerts = True

End Sub

 

[Kemal Demir]

Teşekkur Ederim