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

解決


菜菜  2005-05-24 14:24:05  No: 121879  IP: [192.*.*.*]

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

編集 削除
36NET  2005-05-24 14:37:44  No: 121880  IP: [192.*.*.*]

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 14:55:44  No: 121881  IP: [192.*.*.*]

36NET さんへ
ありがとうございました。(=^▽^=)
これから、もっともっと頑張ります。

編集 削除