excel uyarı mesajı

[du643]

Selam üsdatlar küçük bir kod yadım işlemimde problem yok fakat gelen uyarının gözükmemesi için ne yapmalıyım.veya yapabilinirmi ?

Sub sheet_delete()

Sheets("rapor").Delete
Sheets.Add
ActiveSheet.Name = "rapor"

End Sub

 

[Huseyinkis]

Merhaba kodların başına " Application.DisplayAlerts = False " kodunu sonunada
" Application.DisplayAlerts = True " kodunu yazıp denermisiniz.

 

[dEdE]

Merhaba,

Sub sheet_delete()
   [B] Application.DisplayAlerts = False[/B]    
    Sheets("rapor").Delete
    Sheets.Add
    ActiveSheet.Name = "rapor"
  [B]  Application.DisplayAlerts = True[/B]
End Sub

 

[du643]

Sayın dEdE ve Huseyinkis çok teşekkür ederim