【Excel】 マクロをチェックして頂けないでしょうか。
こんにちは
毎月更新するシートを追加する
コマンドボタンを設置したいと思います。
シートをコピーし、名前を付けた範囲「翌月繰越」を F6にコピペ。
名前を付けた範囲「クリア範囲」をクリアし、カーソルをG6に置く
という、マクロを記録しました。
コマンドボタンをクリックすると、記録したマクロを
実行するようにしましたが、
Range("F6").Select
の、ところで止まってしまいます。
どのように修正したら良いでしょうか。
Private Sub CommandButton2_Click()
ActiveSheet.Copy Before:=ActiveSheet
Application.Goto Reference:="翌月繰越"
Selection.Copy
Range("F6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Goto Reference:="クリア範囲"
ActiveWindow.SmallScroll Down:=-48
Application.CutCopyMode = False
Selection.ClearContents
Range("G6").Select
End Sub
また、これを実行するとコピー元シートの左側にシートが追加されますが、
コピー元シートの右側に追加するにはどうしたら良いでしょうか。
Excelは2003です。
よろしくお願いいたします。
補足
はい、その通りです、すいませんでした。 分かれば回答お願いします。