Soru Sayfada basit bir silme işlemi hata veriyor.

[ptcsite]

Sub alansilme()

Sheets("Alanlar").Range("A2:C110", "E2:G110", "I2:K110", "M2:O110", "Q2:S110", "U2:W110", "Y2:AA110").Select

Selection.ClearContents

End Sub

Aldığım Hata:

Runtime Error of arguments or invalid property assigment

 

[ÖmerBey]

Merhaba,
Hata veren silme kodu değil seçme kodu. Adresi tek tırnak içinde yazmanız gerekiyor.
İlave olarak; seçme yaptırdığınızda ilgili sayfa aktif değilse de hata oluşacaktır. Seçim yaptırmadan doğrudan silme yaptırabilirsiniz.

Sheets("Alanlar").Range("A2:C110, E2:G110, I2:K110, M2:O110, Q2:S110,U2:W110, Y2:AA110").ClearContents