ClearContents

Söz dizimi​

ifade.ClearContents

' Örnekler
Range("B2:D6").ClearContents
Selection.ClearContents
Cells.ClearContents

• ifade: Zorunlu. Bir Range nesnesini veren ifade. Tek hücre, çok hücreli aralık, birden çok alan (Union ile birleştirilmiş) ya da SpecialCells sonucu olabilir.
• Parametre: Yoktur; yönteme argüman verilmez.
• Dönüş değeri: Variant döner; uygulamada bu değer kullanılmaz, yöntem tek başına bir deyim olarak yazılır.

Neyi siler, neyi korur​

• Silinenler: Sayılar, metinler, tarihler ve formüller.
• Korunanlar: Sayı biçimi, yazı tipi, dolgu rengi, kenarlıklar, hizalama, veri doğrulama kuralları ve koşullu biçimlendirme.
• Birleştirilmiş hücreler: Aralık birleştirilmiş bir alanın tamamını kapsıyorsa işlem çalışır. Alanın yalnızca bir bölümünü kapsıyorsa 1004 numaralı çalışma zamanı hatası oluşur.
• Dizi formülleri: Çok hücreli bir dizi formülünün yalnızca bir kısmı temizlenemez; dizinin tamamı aralığa dahil edilmelidir.
• Korumalı sayfa: Kilitli hücreler içeren aralıkta sayfa korumalıysa yöntem hata verir.

Benzer temizleme yöntemleriyle karşılaştırma​

• Clear: İçeriği, biçimleri, notları ve hemen her şeyi siler; hücre ilk haline döner.
• ClearContents: Yalnızca değer ve formülleri siler.
• ClearFormats: Yalnızca biçimleri siler, içerik kalır.
• ClearComments: Yorumları ve notları siler. Notlar için ClearNotes da kullanılabilir.
• ClearHyperlinks: Köprüleri kaldırır, hücre metni kalır.
• ClearOutline: Gruplama (anahat) yapısını kaldırır.
• Delete: Hücreleri siler ve komşu hücreleri kaydırır; içerik temizleme değildir.

1. Veri giriş alanını temizleme​

Option Explicit

Sub GirdileriTemizle()
    ' Etkin sayfadaki aylık adet girdilerini sil
    ActiveSheet.Range("B2:D6").ClearContents
End Sub

2. Yalnızca sabit değerleri temizleme​

Option Explicit

Sub SabitleriTemizle()
    Dim hedef As Range

    ' Sabit değer içeren hücre yoksa SpecialCells hata verir
    On Error Resume Next
    Set hedef = ActiveSheet.Range("B2:C6").SpecialCells(xlCellTypeConstants)
    On Error GoTo 0

    ' Hücre bulunduysa yalnızca onları temizle
    If Not hedef Is Nothing Then
        hedef.ClearContents
    End If
End Sub

3. Koşula göre satır içeriğini temizleme​

Option Explicit

Sub TamamlananlariTemizle()
    Dim ws As Worksheet
    Dim sonSatir As Long
    Dim i As Long

    Set ws = ActiveSheet

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

    For i = 2 To sonSatir
        If ws.Cells(i, 5).Value = "Tamamlandı" Then
            ' Sipariş bilgilerini sil, Durum sütunu kalsın
            ws.Range(ws.Cells(i, 1), ws.Cells(i, 4)).ClearContents
            ws.Cells(i, 6).Value = "Temizlendi"
        End If
    Next i
End Sub

Kullanırken dikkat edin​

• Clear ile karıştırmayın: Clear biçimleri de sildiği için tablonuzun renk, kenarlık ve sayı biçimi kaybolur. Yalnızca verileri boşaltmak istiyorsanız ClearContents kullanın.
• Başlık satırını aralığa katmayın: Tüm sütunu temizleyen Columns("A").ClearContents gibi ifadeler başlık hücresini de siler. Veri alanını B2 gibi ilk veri hücresinden başlatın ve son satırı End(xlUp) ile bulun.
• Formülleri silmemeye dikkat edin: ClearContents hem sabit değerleri hem formülleri siler. Yalnızca girdileri temizlemek istiyorsanız SpecialCells(xlCellTypeConstants) ile aralığı daraltın ya da yalnızca girdi sütunlarını belirtin.
• Hata durumları: Korumalı sayfadaki kilitli hücrelerde, birleştirilmiş hücrelerin bir bölümünde ve dizi formülünün bir kısmında 1004 numaralı hata oluşur. Gerekirse sayfa korumasını kaldırın ya da aralığı birleşik alanın ve dizinin tamamını kapsayacak biçimde genişletin.
• Geri alma yok: Makro ile temizlenen içerik Ctrl+Z ile geri getirilemez. Kritik çalışma kitaplarında makroyu çalıştırmadan önce dosyanın kopyasını alın.
• Geniş aralıklarda performans: Tüm sayfaya Cells.ClearContents uygulamak mümkündür ancak genellikle gerekmez. Yalnızca kullanılan alanı temizlemek için UsedRange.ClearContents ya da belirli bir aralık kullanın.
• İlgili konular:
  • Range.Clear: İçerik ve biçimlerin tamamını siler.
  • Range.ClearFormats: Yalnızca biçimleri siler.
  • Range.ClearComments: Yorum ve notları siler.
  • Range.Delete: Hücreleri silip kaydırır.
  • Range.SpecialCells: Sabit ya da formüllü hücreleri seçer.
  • Range.End: Son dolu hücreyi bulmak için kullanılır.
  • Worksheet.UsedRange: Sayfadaki kullanılan alanı verir.
  • TOPLA: Örneklerdeki Toplam sütunu gibi hesaplamalarda kullanılan işlev.