|
申し訳ありません。整理して書き直します。
VBAのフォームのコンボボックスのリストに1.sheetの
C列の機種番号を範囲名指定し
Private Sub UserForm_Initialize()で
Combo機種.List = Range("機種番号").Valueで
代入しています。質問は2.なのです。
1.EXCEL------------------------------------------
C | D | E | F |
2 機種番号| |機種番号 |エラー番号 |
3 BS12 | |BS12 |4551 |
4 DF55 | |BS12 |4552 |
5 | |BS12 |4553 |
6 | |DF55 |1553 |
7 | |DF55 |1553 |
8 | |DF55 |1553 |
9 | |DF55 |1553 |
10 | |BS12 |4554 |
-----------------------------------------------
Sheetの【F列は 範囲名 エラー番号】としてあり
以下のVBAで1.のコンボボックスで選んだ機種番号で
SheetのE列でフィルターし、E列:機種番号に
合うF列:エラー番号だけを選択し、フォームの
下記VBAComboエラー番号.Listにエラー番号を
代入したいと思っています。
しかし、下記問題箇所なのですがフィルターはシート上
上手く選択させているにもかかわらず全てのエラー番号が
代入されてしまっています。つまりフィルターの効果が
反映さていないのです。下記問題箇所をどう書き換えたらいいか
教えていただけませんか?宜しくお願いします。
2.-------------------------------------------------------------
Private Sub Comboエラー番号_Enter()
Worksheets("エラー項目").Select
Range("E2").AutoFilter
Range("E2").AutoFilter Field:=4, Criteria1:=Text機種番号.Value
Comboエラー番号.List = Range("エラー番号").Value <----★問題箇所
End Sub
-------------------------------------------------------------ー
|
|