AutoFilterについて

質問

AutoFilterについて、下記のコードを作成しました。
シート：部品表のE列：testで抽出 →
オートフィルタで抽出された件数を
シート：部品数抽出のセル(2,6)に表示→
シート：部品表のE列：test1で抽出→
シート：部品数抽出のセル(4,6)に
表示するようにしましたが、
セル(2,6)の値が表示されてしまいます。
コードのどこに問題があるでしょうか。

Sub 部品数抽出オートフィルタ()

Dim r As Long 　'最終行用
Dim r1 As Long　 '表示されているデータの最終行を取得
Dim countdata As Long 　'データ数カウント用

'●[E列 モデル名:test]
'最終行を取得
r = Cells(Rows.Count, 1).End(xlUp).Row

'E列が[test]のものを抽出
Range("A1").AutoFilter Field:=5, Criteria1:="test"

'表示されているデータの最終行を取得
r1 = Range("A1").SpecialCells(xlCellTypeLastCell).Row

'実行時エラー:1004(該当するデータがありません)が出た場合に
’この行より下ではエラーを無視する
On Error Resume Next

If r1 = 1 Then
countdata = 0
Else
　'表示されているデータ数を取得
countdata = Range(Cells(2, 1), Cells
(r, 1)).SpecialCells(xlCellTypeVisible).Count

End If

'オートフィルタで抽出された件数を別のシートのセルに表示
Sheets("部品数抽出").Cells(2, 6).Value = countdata

'この行より下ではエラー無視が解除される
On Error GoTo 0

'絞り込み結果のみクリア
ActiveSheet.ShowAllData

'●[E列 モデル名:test1]

r = Cells(Rows.Count, 1).End(xlUp).Row

Range("A1").AutoFilter Field:=5, Criteria1:="test3"

On Error Resume Next

r1 = Range("A1").SpecialCells(xlCellTypeLastCell).Row

If r1 = 1 Then
countdata = 0
Else

countdata = Range(Cells(2, 1), Cells(r, 1)).SpecialCells(xlCellTypeVisible).Count

End If

Sheets("部品数抽出").Cells(4, 6).Value = countdata

On Error GoTo 0

ActiveSheet.ShowAllData

End Sub

回答No.4

kkkkkm · ベストアンサー

あと

If r1 = 1 Then
countdata = 0
Else

countdata = Range(Cells(2, 1), Cells(r, 1)).SpecialCells(xlCellTypeVisible).Count

End If

を

countdata = 0

If r1 <> 1 Then

countdata = Range(Cells(2, 1), Cells(r1, 1)).SpecialCells(xlCellTypeVisible).Count

End If

にするとかもありだと思います。

お礼

問題を解決することができました。
有り難う御座います。

回答No.5

kkkkkm

それと
On Error Resume Next
を、いったん外してみたらいかがでしょう

回答No.3

kkkkkm

> test3は該当するデータがない結果です。

実行してみましたがセル(4,6)は0になりますよ。

r1もA列だったのですね

r1 = Range("A1").SpecialCells(xlCellTypeLastCell).Row
を
r1 = Range("E1").SpecialCells(xlCellTypeLastCell).Row
にしてみるとか

ActiveSheet.ShowAllData
をブレークポイントにして実際のフィルターされた状態を確認してみるとかしてみてはいかがですか。

回答No.2

kkkkkm

あと

A列の最後とE列の最後が同じでなければ

countdata = Range(Cells(2, 1), Cells(r, 1)).SpecialCells(xlCellTypeVisible).Count
の
Cells(r, 1)
は
Cells(r1, 1)
じゃないでしょうか。

回答No.1

kkkkkm

> test1で抽出

コードは
> Range("A1").AutoFilter Field:=5, Criteria1:="test3"

testとtest3が同じ数だけあったということではないのですか。

お礼

説明が不足していて申し訳ありません。
test3は該当するデータがない結果です。
セル(4,6)に0が表示されればよいのですが
セル(2,6)の値が表示されてしまいます。