DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
merhabaarkadaşlar birden fazla sayfanın silinmesi için basit bir yol varmı yada makroyla yapılabilirmi*
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
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