|
▼ponpon さん:
私の質問の仕方が悪かったようです^^;
>抽出結果が一つでもあれば、うまく動いてるのです。でも、抽出結果で何もない時はエラーと出てしまうので、マクロが中断されてしまいます。
>空白の時は、つぎのマクロに進むようにするには、
>どうすればよいのでしょうか?
じゃなく、抽出結果で1つも抽出されなかったら、次の段階の
Sub オートフィルタハガキ進みたいのです。
Sub オートフィルタ切手()
'
' オートフィルタ切手 Macro
' マクロ記録日 : 2007/10/13 ユーザー名 : オートフィルタで切手を抽出するオートフィルタで切手を抽出する
' オートフィルタ切手コピー Macro
' 抽出した切手をsheet2にコピー
'
With Sheets("入力")
If .AutoFilterMode Then .AutoFilterMode = False
.Range("BK71:BU101").AutoFilter Field:=1, Criteria1:=">=1", _
Operator:=xlAnd, Criteria2:="<=4"
If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then
.Range("BM72:BM101").Copy
' ↑
'1から4の抽出結果が出た時 切手の額面の所がコピーされる
Sheets("切手類払込調書").Range("B11").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Range("BQ72:BQ101").Copy
' ↑
'1から4の抽出結果が出た時 販売枚数がコピーされる
Sheets("切手類払込調書").Range("C11").PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
.AutoFilterMode = False
End With
Application.CutCopyMode = False
End Sub
|
|