birden fazla sayfa nasıl silinir?

kemalist

Altın Üye
Katılım
4 Haziran 2008
Mesajlar
795
Excel Vers. ve Dili
Excel 2021 TÜRKÇE
Altın Üyelik Bitiş Tarihi
24-01-2026
arkadaşlar birden fazla sayfanın silinmesi için basit bir yol varmı yada makroyla yapılabilirmi*
 

konas06

Altın Üye
Katılım
27 Kasım 2007
Mesajlar
661
Excel Vers. ve Dili
ofis 2016 Türkçe
Altın Üyelik Bitiş Tarihi
01-07-2025
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

Misafir
arkadaşlar birden fazla sayfanın silinmesi için basit bir yol varmı yada makroyla yapılabilirmi*
merhaba
Kod:
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

Uzman
Uzman
Katılım
26 Eylül 2007
Mesajlar
9,421
Excel Vers. ve Dili
excel 2010
merhaba

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

Kod:
Sub sayfasil()
For i = 2 To Sheets.Count
Cells(i, 1) = Worksheets(i).Name
Next
End Sub
Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sheets(Target.Text).Delete
Target.Delete
End Sub
 

kemalist

Altın Üye
Katılım
4 Haziran 2008
Mesajlar
795
Excel Vers. ve Dili
Excel 2021 TÜRKÇE
Altın Üyelik Bitiş Tarihi
24-01-2026
sayın konas06;sayın ihsan tank;sayın uzman amele ilginize çok teşekkür ederim sayenizde işlem tamam.
 
Üst