Vba kullanılarak adlandırılmış bir aralık nasıl silinir (örnekle)

Adlandırılmış aralıkları bir Excel çalışma kitabından silmek için VBA’da aşağıdaki sözdizimini kullanabilirsiniz:

 Sub DeleteNamedRanges()
 
Dim NamedRange As Name

For Each NamedRange In ActiveWorkbook.Names
    If NamedRange.Visible Then NamedRange.Delete
Next NamedRange

End Sub

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

Örnek: VBA Kullanarak Excel Çalışma Kitabındaki Adlandırılmış Aralıkları Silme

Aşağıdaki üç adlandırılmış aralığı içeren bir Excel çalışma kitabımız olduğunu varsayalım:

• Sayfa1’de sayfa1_adı adı verilen adlandırılmış bir aralık
• Sayfa2’de sayfa2_adı adı verilen adlandırılmış bir aralık
• Sayfa3’te sayfa3_adı adı verilen adlandırılmış bir aralık

Bu adlandırılmış aralıkların her birini görmek için çalışma sayfasının sol üst köşesindeki Ad kutusundaki açılır oka tıklamanız yeterlidir:

Diyelim ki bu adlandırılmış aralıkların her birini silmek istiyoruz.

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

 Sub DeleteNamedRanges()
 
Dim NamedRange As Name

For Each NamedRange In ActiveWorkbook.Names
    If NamedRange.Visible Then NamedRange.Delete
Next NamedRange

End Sub

Bu makro yürütüldüğünde çalışma kitabının tamamındaki tüm adlandırılmış aralıklar silinecektir.

Sayfalardan birinin sol üst köşesindeki Ad kutusunu tekrar tıklayarak bunların silindiğini doğrulayabiliriz:

Ad kutusunun artık adlandırılmış aralıkların adlarını içermediğini görebiliriz.

Ek kaynaklar

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

VBA: Değerler yalnızca biçimlendirme olmadan nasıl yapıştırılır
VBA: Görünür satırlar başka bir sayfaya nasıl kopyalanır
VBA: satırları kriterlere göre başka bir sayfaya kopyalayın