2018/04/17(Tue) 09:48:28 編集(投稿者)
ファイルが開いていないか、シートの参照がうまくできていないのでは?
という推測で 以下のようにコードを変えたらいかがでしょう。
↓のページに追記していますので参照してください。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_listbox.html
変更する部分の一部分を書き出しています。
最初に別ファイルを開くために、Openします。
検索するデータは ファイル名 kensaku.xlsm 、シート名 meibo にあるとしています。
Private Sub UserForm_Initialize()
Dim lastRow As Long
Dim myData, myData2()
Dim i As Long, j As Long
'----ここから
Dim myBook As Workbook
Set myBook = Workbooks.Open("c:\users\ファイルを保存している場所\kensaku.xlsm")
With myBook.Worksheets("meibo")
' ----ここまで
開いたファイルのデータのあるシートを指定します。
Private Sub CommandButton1_Click()
Dim lastRow As Long
Dim myData, myData2(), myno
Dim i As Long, j As Long, cn As Long
'----ここから
Dim myBook As Workbook
Set myBook = Workbooks("kensaku.xlsm")
With myBook.Worksheets("meibo")
' ----ここまで
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'----ここから
Dim myBook As Workbook
Set myBook = Workbooks("kensaku.xlsm")
With myBook.Worksheets("meibo")
' ----ここまで
以上です。