|
ハトさん・ひげくまさん ご回答誠にありがとう御座いました。
お二方のご回答で見事どちらも成功しました。感謝です。
★でなんですが出来ればもう少しお教えいただければと思います。
フィルターで抽出した結果は見た目ではちゃんと絞り込まれているのに
実際テストしてみるとComboエラー番号.ListにはComboエラー番号.List
の全ての値が表示されてしまいます。つまりフィルターの結果が
反映されていないのです。
『現在』-------------------------------------------------
Private Sub Comboエラー番号_Enter()
Worksheets("エラー項目").Select
Range("E2").AutoFilter
Range("E:E").AutoFilter Field:=1, Criteria1:=Text機種番号.Value
Comboエラー番号.List = Range("エラー番号").Value
End Sub
-------------------------------------------------------------
★F列(F2-F10)には 範囲名 エラー番号としてあります。
そこで自分なりに調べてみて以下のようにしてみたのですが
エラーが出て止まってしまいます。何か良い方法はありませんでしょうか?
宜しくお願い致します。≦(._.)≧
『★の行でエラーで止まってしまいます』---------------------------
Private Sub Comboエラー番号_Enter()
Worksheets("エラー項目").Select
Range("E2").AutoFilter
MsgBox (Combo機種.Value)
Range("E2").AutoFilter Field:=4, Criteria1:=Combo機種.Value
★ Comboエラー番号.List = Range("エラー番号").CurrentRegion.SpecialCells(xlVisible)
End Sub
-----------------------------------------------------------------
|
|