Create a List box from a sheet in a different workbook

Hi,

I am trying to reference a list in a different workbook but am getting my syntax wrong i believe

Private Sub ListBox2_Click()
   Me.ListBox2.RowSource = '["Match.xls"] Mapping Table'!G2:G" & (j - 1)
End Sub

Can anyone see what i should be doing here

Thanks
Seamus
Seamus2626Asked:
Who is Participating?
 
Pratima PharandeCommented:
Private Sub UserForm_Initialize()
Dim ListItems As Variant, i As Integer
Dim SourceWB As Workbook
    With Me.ListBox1
        .Clear ' remove existing entries from the listbox
        ' turn screen updating off, 
        ' prevent the user from seeing the source workbook being opened
        Application.ScreenUpdating = False 
        ' open the source workbook as ReadOnly
        Set SourceWB = Workbooks.Open("C:\FolderName\SourceWorkbook.xls", _
            False, True)
        ListItems = SourceWB.Worksheets(1).Range("B2:B21").Value 
        ' get the values you want
        SourceWB.Close False ' close the source workbook without saving changes
        Set SourceWB = Nothing
        Application.ScreenUpdating = True
        ListItems = Application.WorksheetFunction.Transpose(ListItems) 
        ' convert values to a vertical array
        For i = 1 To UBound(ListItems)
            .AddItem ListItems(i) ' populate the listbox
        Next i
        .ListIndex = -1 ' no items selected, set to 0 to select the first item
    End With
End Sub

Open in new window


refer
http://www.exceltip.com/exceltips.php?view=print_page&ID=410
0
 
Seamus2626Author Commented:
Thanks pratima_mcs!

Seamus
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.