|
▼あや さん:
実行時エラー'1004':
該当するセルが見つかりません。
というメッセージです。
Msgbox 該当するセルがありません
というようなマクロはどこにも見当たらないです。
Range("A9:CC5000").Select
> Selection.SpecialCells(xlCellTypeVisible).Select←1.
> 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
1.の部分でひっかかるようなので、ここの部分をとばしたいという感じです。
|
|