satır silerken uyarı

[igultekin2000]

iyi günler; sık sık kullandığım makrolarda silme ve kayıt gibi işlemlerde uyarı mesajı çıkıyor. Kullandığım makro

Private Sub Cmd3_Click()
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
Selection.Rows.Copy
 a = WorksheetFunction.CountA(Sheets("AKTAR").Columns(1))
Sheets("AKTAR").Cells(a + 1, 1).PasteSpecial
Selection.Delete
Application.CutCopyMode = False
Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = False
End Sub

Zorunlu olarak Selection.Delete' yi kullanıyorum , her işlemde seçili satır silinirken excel uyarı veriyor, bu uyarıyı almak istemiyorum. epey karıştırdım ama çözemedim. Teşekkürler

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Application.DisplayAlerts = False

 

[igultekin2000]

Kod sorunu çözmüyor

Bu şekilde deneyebilirsiniz.

Application.DisplayAlerts = False

Kullandığım makronun sonunda o kod mevcut. ama sorunu çözmüyor.

 

[Korhan Ayhan]

Sonuna değil başına eklemeniz gerekiyor.

 

[igultekin2000]

sorun çözüldü

Sonuna değil başına eklemeniz gerekiyor.

Teşekkürler, bu şekilde sorun çözüldü.