|
いつもお世話になってます。
コンボボックス1で選択したデータでシート"aaa"のB2セルでオートフィルタをかけ
コンボボックス2にオートフィルター後のC列のデータがある部分のみ表示させようと
VBAを作ってみました。
しかし、オートフィルター後のデータが1行しかない場合、エラーが出てしまいます。
アドバイスいただけないでしょうか?
宜しくお願い致します。
Private Sub ComboBox1_click()
Dim CT2 As Range
Worksheets("aaa").AutoFilterMode = False
LtW = ComboBox1.List(ComboBox1.ListIndex)
Worksheets("aaa").Range("B1").AutoFilter Field:=2, Criteria1:=LtW
E = Worksheets("aaa").Range("C65536").End(xlUp).Row
Set CT2 = Worksheets("aaa").Range("C2:C" & E).SpecialCells_
(xlCellTypeVisible)
ComboBox2.List = CT2.Value
End Sub
|
|