エクセルマクロVBA コピーで値がうまく取得できない

Question

エクセルマクロVBAの初心者です。

あるシート（名前をGLとします）のE2セルからK列の最終行までのデータをコピーして、別のシート（名前をworkとします）のA2セルに貼り付けたいと思っています。

GLシートが前面にある状態でマクロを実行すると下記でもうまくいくのですが、
他のシートが前面にある状態ですと、うまくいかず、GLシートのE2：K2までがコピーされてしまいます。

初心者ゆえ根本的な間違いもあるかと思います。
どうぞご回答をよろしくお願いいたします。

Dim ws1 As Worksheet
Dim ws2 As Worksheet

Set ws1 = Sheets("GL")
Set ws2 = Sheets("work")

With ws1
.Range("E2:K" & Cells(Rows.Count, 1).End(xlUp).Row).Copy
ws3.Range("A2").PasteSpecial Paste:=xlPasteValues

End With

※実際には他の命令文も書いていますが、省略しています。

Answer 1

下記でどうですか。

    Dim ws1 As Worksheet
    Dim ws2 As Worksheet

    Set ws1 = Sheets("GL")
    Set ws2 = Sheets("work")

    With ws1
        .Range("E2:K" & .Cells(Rows.Count, 1).End(xlUp).Row).Copy
        ws2.Range("A2").PasteSpecial Paste:=xlPasteValues
    End With

Cells(Rows.Count, 1)だとActiveSheet.Cells(Rows.Count, 1)という意味になるので、ws1のCellsだと明確に指定する。

ws3という変数は宣言されていないので、ws2の間違いだと推測。

Comments

[Tommy]

ありがとうございます。解決しました！
ピリオド一つで、まったく意味が変わってしまうのですね。とても勉強になりました。