Ad tanımlı hücrelerin içindeki veriyi silme

[kneehot]

Arkadaşlar merhaba. Yapmak istediğim ad_1 ad_2 ad_3 diye her sayfada tanımladığım adların makro ile hücre içi değerlerinin silinmesi. Tabloyu her gün girip tek tek sayfalardaki verileri silmekle uğraşıyorum onu daha kolay hale getirmeye çalışıyorum. Daha anlaşılır olması için; 1.sayfada ad_1 2. sayfada ad_2 3. sayfada ad_3 ve böyle devam ediyor. Tanımlı olan hücrelerin verilerinin silinmesini istiyorum. Toplamda 15 sayfa vardır. Tüm yardımlara şimdiden çok teşekkür ederim.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub temizle()
    For i = 1 To 15
        Sheets(i).Range("ad_" & i).ClearContents
    Next
    Sheets(1).Activate
End Sub

 

[kneehot]

Aşağıdaki makroyu deneyiniz:

Sub temizle()
    For i = 1 To 15
        Sheets(i).Range("ad_" & i).ClearContents
    Next
    Sheets(1).Activate
End Sub

İlginiz için çok teşekkür ederim fakat aşağıdaki satırda hata veriyor

Sheets(i).Range("ad_" & i).ClearContents

 

[YUSUF44]

1. sayfada ad_1 adlı hücre yoksa bu hatayı verir.

 

[YUSUF44]

Kod şu şekilde de çalışıyor (sayfa belirtmeden doğrudan tanımlı hücreyi siliyor):

Sub temizle()
    For i = 1 To 15
        Range("ad_" & i).ClearContents
    Next
    Sheets(1).Activate
End Sub

 

[kneehot]

Kod şu şekilde de çalışıyor (sayfa belirtmeden doğrudan tanımlı hücreyi siliyor):

Sub temizle()
    For i = 1 To 15
        Range("ad_" & i).ClearContents
    Next
    Sheets(1).Activate
End Sub

Bu şekilde çalıştı çok teşekkür ederim