Farklı Farklı Range Selection Seçimler ve Toplu Clear Contents Makro Hk.

[u.L.a.s]

Merhabalar.
Elimde form sayfası var.
Bu form sayfasında belirli hücreleri
Range("").Select komutuyla seçip ardında Selection.ClearContents ile hücre içeriğini sildiriorum

Fakat benim bu form sayfamda ayrı ayrı çok fazla seim ve Clearcontents komutum var

Örnek bir kod aşağıdaki gibi olup bu kod içerisinde Range Selectler bi hayli fazladır.

Ben istiyorum ki her range select ten sonra Selection.ClearContents olmasın
seçilecek hücrelerimi ben range selectlerle seçili hale getirmiş olayım ardından hepsine birden ClearContents uygulatayım yani kod kalabalığını biraz ortadan kaldırmak istiyorum. With end With ile bu olur diye ddüşündüm denedim ama olmadı

Bilgi ve yardımlarınızı rica ederim

Sub Hucresil ()
Range("W4:AI4").Select
Selection.ClearContents

Range("O5:AI5").Select
Selection.ClearContents

Range("F6:O6").Select
Selection.ClearContents

Range("H23:R23").Select
Selection.ClearContents


End Sub

 

[mesutaygun70]

Sub Hucresil()
Range("W4:AI4,O5:AI5,F6:O6,H23:R23").Select
Selection.ClearContents
End Sub

 

[u.L.a.s]

teşekkürler üstadım bilgine sağlık

 

[Ömer BARAN]

Merhaba.

Kodların çalışacağı belgede tek bir sayfa yoksa sayfa adı belirtmeye gerek yok ama
kural olarak Range.... Cells gibi hücre/alan işlemlerinde sayfa adını belirtmenizi öneririm.

Böylece işlem yapılacak sayfa aktif olmasa da kod işlemi gerçekleştirir.
Sayfa adı belirtilmezse, kod aktif sayfada işlem yapacaktır.

Ayrıca hücre/alan içeriğini temizlemek için SELECT işlemine de gerek yok.

Neticede aşağıdaki gibi tek satır olarak kullanmanızı öneriyorum.
.

Sheets("[COLOR="Red"]...SAYFA ADI...[/COLOR]").Range("W4:AI4,O5:AI5,F6:O6,H23:R23").ClearContents