ListBoxでオートフィルター表示

いつもお世話になっております
下記のコード間違っているところおしえてくれませんでしょうか
If myData(i, 2).Value = ListBox2.Value Then
この部部が黄色反転致します。

ListBox2で商品を選択してコマンドボタンを押したら
ListBox1に表示させたいです。
おしえてくれませんでしょうか

Dim lastRow As Long
Dim myData, myData2(), myno
Dim i As Long, j As Long, cn As Long

With Worksheets("Sheet1")
lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
myData = .Range(.Cells(1, 1), .Cells(lastRow, 7)).Value
End With

ReDim myData2(1 To lastRow, 1 To 3)
For i = LBound(myData) To UBound(myData)
If myData(i, 2).Value = ListBox2.Value Then

cn = cn + 1
myData2(cn, 1) = myData(i, 1)
myData2(cn, 2) = myData(i, 2)
End If
Next i

With ListBox1
.ColumnCount = 2
.ColumnWidths = "30;70"
.List = myData2
End With

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2020/07/09 22:48

こんばんは、

＞If myData(i, 2).Value = ListBox2.Value Then　この部部が黄色反転致します。

myDataは配列なのでmyData(i, 2) = ListBox2.Value Then
で行けませんか？

この回答へのお礼

ありがとうございました。
うまく希望通り、実行できました。

お礼日時：2020/07/10 07:57