Tüm sayfalarda belirli hücre aralığını silmek

[Korhan Ayhan]

Selamlar,

Arkadaşlar bir çalışma kitabındaki tüm sayfalarda belirli bir hücre aralığının içeriğini silmek ve bir hücrenin değerinide 1 arttırmak istiyorum.
Tüm sayfalarda D110 ve F1:F10 aralığındaki değerleri silmek ve A1 hücresindeki değeride 1 arttırmak istiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:c27de5c5fc]Sub sil()
For a = 1 To Sheets.Count
Sheets(a).[D110,F1:F10].ClearContents
Sheets(a).[a1] = Sheets(a).[a1] + 1
Next
End Sub
[/vb:1:c27de5c5fc]

 

[Korhan Ayhan]

Teşekkür ederim.