birden fazla sayfa nasıl silinir?

[kemalist]

arkadaşlar birden fazla sayfanın silinmesi için basit bir yol varmı yada makroyla yapılabilirmi*

 

[konas06]

Aklıma ilk gelen çözümü söylüyorum ama sanırım bunu sormuyorsunuzdur.
Excel de en altta bulunan sayfa isimlerinin üstüne gelip ctrl tuşuna basılı tutarak ve mouse ile gelip tek tek basarsanız ve seçiminiz bittikten sonra ctrl den elinizi çekip mouse sağ klik yaptığınızda sil seçeneği gelecektir. bu tuş ile silebilirsiniz.

 

[İhsan Tank]

arkadaşlar birden fazla sayfanın silinmesi için basit bir yol varmı yada makroyla yapılabilirmi*

merhaba

Sub sayfasil()
excelwebtr = MsgBox("Sayfaları Sileyim Mi", vbYesNo + vbInformation, "Onay")
If excelwebtr = vbNo Then Exit Sub
Application.DisplayAlerts = False
Sheets("[COLOR="Red"]Sayfa5[/COLOR]").Delete
Sheets("[COLOR="red"]Sayfa6[/COLOR]").Delete
MsgBox "Sayfalar Silindi", vbInformation, "Onay"
End Sub

bu kod işinizi görür sanırım
kırmızı yerleri kendiniz belirleyin

 

[uzmanamele]

merhaba

çeşitli alternatifler üretilebilir. mesela olaya görsellik katacaksanız userform üzerine listbox ekleyip buradan da bilebilirsiniz.

Sub sayfasil()
For i = 2 To Sheets.Count
Cells(i, 1) = Worksheets(i).Name
Next
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets(Target.Text).Delete
Target.Delete
End Sub

 

[kemalist]

sayın konas06;sayın ihsan tank;sayın uzman amele ilginize çok teşekkür ederim sayenizde işlem tamam.