Hücre aralığı seçimi

[oguzka]

Merhabalar;

Sayfa2 de bulunan bir butona sayfa 1 deki bir aralığı seçtirip, o aralıkta yazanları silmek ve aralığın dolgu rengini "dolgu yok" yapmak istiyorum.

Kullandığım kod :

Private Sub CommandButton1_Click()

Sheets("Sayfa1").Select
Range("G17:ABW317").Select
Selection.ClearContents

With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With

End Sub

Ancak kırmızı ile işaretlediğim satırda seçme işlemi hatası veriyor. Nerde yanlış yapıyorum??

 

[Ömer]

Merhaba,

Bu şekilde denermisiniz.

Private Sub CommandButton1_Click()
    With Sheets("Sayfa1").Range("G17:ABW317")
        .ClearContents
        .Interior.ColorIndex = xlNone
    End With
End Sub

.

 

[oguzka]

Ömer Bey teşekkür ederim.