|
▼瑠璃 さん:
>私の質問の仕方が悪かったようです^^;
>
>>抽出結果が一つでもあれば、うまく動いてるのです。でも、抽出結果で何もない時はエラーと出てしまうので、マクロが中断されてしまいます。
>>空白の時は、つぎのマクロに進むようにするには、
>>どうすればよいのでしょうか?
>
>じゃなく、抽出結果で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
Else
.AutoFilterMode = False
Call オートフィルタハガキ
> End If
> .AutoFilterMode = False
> End With
> Application.CutCopyMode = False
>End Sub
|
|