Makro ile sayfa silmek

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
441
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
Aşağıdaki kodda sil onayını vermesini istemiyorum
nasıl yapabilirim
Teşekkürler



Kod:
Sub Sayfa_Sil()

    Dim sil As String
    
    sil = ActiveSheet.Name
    
    Sheets.Add
    Sheets(sil).Select
    ActiveWindow.SelectedSheets.Delete
        
End Sub
 
Katılım
7 Temmuz 2004
Mesajlar
327
Excel Vers. ve Dili
office xp pro türkçe
Kod:
Sub Sayfa_Sil() 
    Dim sil As String 
    Application.DisplayAlerts = False
    sil = ActiveSheet.Name 
    
    Sheets.Add 
    Sheets(sil).Select 
    ActiveWindow.SelectedSheets.Delete 
    Application.DisplayAlerts = True
End Sub
şeklinde deneyin
 

mozdem

Altın Üye
Katılım
11 Kasım 2005
Mesajlar
441
Excel Vers. ve Dili
Windows 2011 TR
MS Office 2019 TR - 32bit

VBA, Selenium ve VBS
Altın Üyelik Bitiş Tarihi
08-04-2026
Çok Teşekkürler :mutlu:
 
Üst