Delete

Söz dizimi​

ifade.Delete(Shift)   ' Range nesnesi için
ifade.Delete            ' Worksheet, Shape, Comment, Name vb. için

• ifade: Silinecek nesne; örneğin Range, Worksheet, Shape, ChartObject, Comment, Name, ListRow, ListColumn. Zorunludur.
• Shift: Yalnızca Range.Delete için geçerlidir; silinen hücrelerin yerini dolduracak kaydırma yönünü belirler. İsteğe bağlıdır. Verilmezse Excel şekle göre kendisi karar verir: aralık yatay ise sola, değilse yukarı kaydırır. Tam satır ya da tam sütun silinirken kullanılmaz.

Shift sabitleri ve kullanım alanları​

• xlShiftUp: Silinen hücrelerin altındaki hücreler yukarı kayar (sayısal değeri -4162).
• xlShiftToLeft: Silinen hücrelerin sağındaki hücreler sola kayar (sayısal değeri -4159).

• Range: Hücre, satır ya da sütun silme. Tam satır için Rows(5).Delete ya da Range("A5").EntireRow.Delete yazılır.
• Worksheet: Çalışma sayfasını siler. Excel varsayılan olarak onay sorar.
• Shape, ChartObject, Comment, Name, ListRow, ListColumn: İlgili nesneyi kaldırır.

Delete, Clear ve ClearContents farkı​

• Delete: Hücreyi yapısından çıkarır; sağdaki ya da alttaki hücreler kayarak boşluğu doldurur. Formüllerdeki başvurular etkilenir, silinen hücreye başvuranlar #BAŞV! (#REF!) hatası verir.
• ClearContents: Yalnızca değeri ve formülü siler; biçim ve hücre konumu aynı kalır.
• Clear: Değer, biçim, not ve diğer her şeyi temizler, ama hücreleri kaydırmaz.

1. İptal edilen sipariş satırlarını silme​

Option Explicit

Sub IptalSatirlariniSil()
    Dim ws As Worksheet
    Dim i As Long
    Dim son As Long

    Set ws = ActiveSheet
    ' A sütunundaki son dolu satırı bulur
    son = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    ' Sondan başa doğru gidilir; böylece silinen satır sıradakini etkilemez
    For i = son To 2 Step -1
        If ws.Cells(i, 5).Value = "İptal" Then
            ws.Rows(i).Delete
        End If
    Next i
End Sub

2. Hücre aralığını Shift ile silme​

Option Explicit

Sub NotHucreleriniSil()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    ' C3:C4 silinir, sağdaki hücreler sola kayar
    ws.Range("C3:C4").Delete Shift:=xlToLeft
End Sub

3. Çalışma sayfasını onaysız silme​

Option Explicit

Sub GeciciSayfaSil()
    Dim ws As Worksheet
    Dim gecici As Worksheet

    ' Sonuçların yazılacağı sayfa, Add işleminden önce saklanır
    Set ws = ActiveSheet

    Set gecici = ThisWorkbook.Worksheets.Add
    gecici.Name = "Gecici"

    ' Onay penceresini kapat, sayfayı sil, uyarıları tekrar aç
    Application.DisplayAlerts = False
    gecici.Delete
    Application.DisplayAlerts = True

    ws.Activate
    ws.Range("B2").Value = ThisWorkbook.Worksheets.Count
    ws.Range("B3").Value = SayfaVarMi("Gecici")
End Sub

Function SayfaVarMi(ad As String) As Boolean
    Dim s As Worksheet
    SayfaVarMi = False
    For Each s In ThisWorkbook.Worksheets
        If s.Name = ad Then SayfaVarMi = True
    Next s
End Function

Kullanırken dikkat edin​

• Silme geri alınamaz: VBA ile yapılan silme işlemleri Ctrl+Z ile geri alınamaz; makro çalışınca Geri Al yığını da temizlenir. Önemli dosyalarda makroyu çalıştırmadan önce çalışma kitabının yedeğini alın.
• Döngüde silerken sondan başa gidin: Satır ya da sütun silen döngülerde sayacı Step -1 ile sondan başa doğru ilerletin. Baştan sona giderseniz silinen satırın yerine gelen satır atlanır.
• DisplayAlerts ayarını geri açın: Sayfa silerken onay penceresini kapatmak için Application.DisplayAlerts = False yazılır. İşlem bitince mutlaka True yapın. Aksi durumda sonraki işlemlerde Excel uyarı vermez ve beklenmedik silmeler sessizce gerçekleşebilir. Kodda hata oluşma ihtimali varsa True ataması hata yakalama bölümünde de bulunmalıdır.
• Silinemeyen durumlar: Çalışma kitabındaki son görünür sayfa silinemez; en az bir görünür sayfa kalmalıdır. Korumalı sayfalarda ve korumalı hücre aralıklarında silme hata verir. Çalışma kitabı yapısı korumalıysa sayfa silinemez. Tabloların (ListObject) tam satırını silerken tablo dışındaki hücrelerin de etkilendiğini unutmayın.
• Formüllere etkisi: Silinen hücrelere başvuran formüller #BAŞV! (#REF!) hatası verir. Hücreyi kaydırmadan yalnızca değerini boşaltmak istiyorsanız ClearContents yöntemini kullanın.
• İlgili konular:
  • Clear: Hücredeki her şeyi kaydırmadan temizler.
  • ClearContents: Yalnızca değerleri ve formülleri temizler.
  • Insert: Hücre, satır ya da sütun ekleyen karşıt yöntem.
  • EntireRow ve EntireColumn: Tam satır ve sütun silmek için kullanılan özellikler.
  • Application.DisplayAlerts: Excel uyarılarını açıp kapatan özellik.
  • Worksheets.Add: Yeni çalışma sayfası ekleyen yöntem.
  • SpecialCells: Boş ya da hatalı hücreleri bulup toplu silmeye yarar.
  • EĞERSAY (COUNTIF) ve SATIRSAY (ROWS): Silme öncesi kontrol amacıyla kullanılabilecek işlevler.