|
説明不足ですみません。
Sheets("(最新)売上明細上期").Select
Selection.AutoFilter Field:=124, Criteria1:=" 上期のみ"
↑ここで抽出したデータが無い場合、
『該当するセルがありません』というエラーメッセージが出ます。
その後、このようなマクロが続くのですが、どのようにすればよろしいでしょうか?
Range("A9:CC5000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("(最新)売上明細年間").Select
Range("H9").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, -7).Select
ActiveSheet.Paste
Sheets("(最新)売上明細上期").Select
Range("CM9:DT5000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Sheets("(最新)売上明細年間").Select
ActiveCell.Offset(0, 121).Select
ActiveSheet.Paste
Sheets("(最新)売上明細上期").Select
Rows("8:8").Select
Range("DE8").Activate
Selection.AutoFilter
Selection.AutoFilter
EXCEL2003を使用しています。
|
|