Vba: hücre belirli bir değer içeriyorsa içerik nasıl temizlenir?

Bir Excel çalışma sayfasındaki her hücrenin içeriğini belirli bir değere eşit olarak temizlemek için aşağıdaki temel sözdizimini kullanabilirsiniz:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

Bu özel makro, “Mavs” değerine eşit olan A2:A11 aralığındaki her hücrenin içeriğini temizleyecektir.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: Hücre belirli bir değer içeriyorsa içeriği temizlemek için VBA’yı kullanın

Diyelim ki farklı basketbolcular hakkında bilgiler içeren bir Excel sayfamız var:

Diyelim ki Takım sütunundaki her hücrenin içeriğini “Mavs” e eşit olarak temizlemek istiyoruz.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

Bu makro çalıştırıldığında Takım sütununda “Mavs” değerine sahip tüm hücreler temizlenecektir:

Bunun yerine, Ekip sütununda “Mavs” değerine sahip her satırdaki tüm hücreleri temizlemek istiyorsanız aşağıdaki sözdizimini kullanabilirsiniz:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.EntireRow.ClearContents
    Else
    End If
Next cell

End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

Takım sütununda “Mav’leri” içeren her satırdaki tüm hücrelerin temizlendiğini unutmayın.

Not : VBA’daki ClearContents yönteminin tam belgelerini burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Son kullanılan satırı nasıl bulabilirim?
VBA: Son kullanılan sütun nasıl bulunur?
VBA: Tüm sayfalar nasıl görüntülenir?