|
オートフィルタでデータを抽出する場合、抽出したいデータがないときは
その後の処理を実行させないようにするにはどうすればよいでしょうか?
今まで、データがあるのを前提にしか考えていなかったため、データ抽出データがないときに余計なものがコピーされてしまいます。
宜しくお願い致します。
Selection.AutoFilter Field:=1, Criteria1:="MOS"
Range("B4:AZ65536").Select
Worksheets("製品管理表").Range("D4").Resize(Range("D" & Rows.Count).End(xlUp).Row, 53).Copy
Sheets("MOS").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
myR = Cells(65536, 8).End(xlUp).Row + 1
Cells(myR, 6).Select
Worksheets("製品管理表").Select
Range("H3:H65536").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="MOS"
Range("B4:AZ65536").Select
Worksheets("製品管理表").Range("D4").Resize(Range("D" & Rows.Count).End(xlUp).Row, 53).Copy
Worksheets("MOS").Select
Worksheets("MOS").Cells(myR, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B4").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
|
|