別シートのデータをクリア

解決

菜菜 2005-05-24 23:24:05 No: 121879

Activateシートのボタン押下、別のシートの指定されたRANGEのデータを削除したいです。下記のように書いたですが、エラーが出てきて、だめみたいです。ピカピカな新人なんですが。助けって！！
Private Sub CommandButton1_Click()
Sheets("1test").Range(Cells(2, 1), Cells(L, 200)).ClearContents
End Sub

36NET 2005-05-24 23:37:44 No: 121880

Cells(2, 1)とCells(L, 200)がActivateシートのセルを参照してしますので

Sheets("1test").Range(Cells(2, 1), Cells(L, 200)).ClearContents

を

Sheets("1test").Range(Sheets("1test").Cells(2, 1), Sheets("1test").Cells(L, 200)).ClearContents

個人的には

with Sheets("1test")
.Range(.Cells(2, 1), .Cells(L, 200)).ClearContents
end with

かな？

菜菜 2005-05-24 23:55:44 No: 121881

36NET さんへ
ありがとうございました。（＝＾▽＾＝）
これから、もっともっと頑張ります。