|
はじめまして。
初心者ですが、今回使っているマクロでエラーがあり、
原因がわかりません。
どなたか、教えてください。
Sheets("データ").Select
Columns("F:AF").Select
Selection.Copy
Sheets("1").Select
Selection.PasteSpecial Paste:=xlPasteValues, _Operation:=xlNone,SkipBlanks:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
Selection.AutoFilter Field:=31, Criteria1:="売掛金海外"
Cells.Select
Selection.Copy
Sheets("2").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
記述は上記の通りです。
「データ」シートのF:AFのデータを「1」シートに貼り付け
「1」シートで31列目でフィルターをかけたデータを
「2」シートに値と書式だけ貼り付ける
という内容だと思います。
このファイルは毎月使いますが、マクロ記述は一切さわっていません。
「データ」シートの内容は毎月SAPシステムから抽出したデータです。
エラーの内容は「2」シートにデータを貼り付けるときに、
いつもは「1」シートと同じ内容(1回だけ)で張り付くのですが、
今月は、最終行まで繰り返して張り付いてしまいました。
記述はさわっていないので、SAPから取り込んだデータに
何か変化がないかみたのですが、特にこれといってかわっていません。
なぜ今月だけ貼付を最終行まで繰り返してしまうのか、
原因がわかりません。
Sheets("2").Select
Cells.Select ←←
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False
Cells.Select ←←
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone,
_SkipBlanks:=False, Transpose:=False
とりあえず、全セル指定して貼付ているところを、
A1を選択して張り付けることで1回だけ張り付くようにして回避しましたが、
どなたか理由がわかる方、どうか教えてください。
よろしくお願いします。
Sheets("2").Select
Range("A1").Select ←←
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False
Range("A1").Select ←←
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone,
_SkipBlanks:=False, Transpose:=False
|
|