ComboBox Filling

[klnp_mysore]

Dear Sir,
How to fill combobox with values from another workbook in VBA

Regards

 

[cooper645]

Found elsewhere on the web:

Private Sub Workbook_Open()
Sheet1.Combobox1.List=Getobject("ListWorkbook.path & name.xlsx").sheets("sheet1").Range("B2:B6").Value
End Sub

The full path an name of the workbook that contains the list
The sheet name that the list resides upon
The range on that sheet the list sits in

 

[MickG]

Perhaps:-

Sheets("Sheet1").ComboBox1.List = GetObject(ThisWorkbook.Path & "\Test.xlsm").Sheets("sheet1").Range("B2:B6").Value

 

[cooper645]

on Mac I had to amend it slightly, just incase you or anyone who stumbles by with the same question needs it to work on Mac:

Sheet1.DropDowns(1).List = GetObject("/Users/Cooper645/Desktop/list.xlsx").Sheets("sheet1").Range("B2:B6").Value

 

[klnp_mysore]

Perhaps:-

Sheets("Sheet1").ComboBox1.List = GetObject(ThisWorkbook.Path & "\Test.xlsm").Sheets("sheet1").Range("B2:B6").Value

Dear Sir

I am using this code in vba to load the combobox2 with values in another workbook book1

Private Sub ComboBox2_Change()
Dim wb As Workbook
Dim ws As Worksheet
Dim wbsource As Worksheet
Dim i As Integer
Dim j As Integer
Dim rngSource As Range
On Error Resume Next
'ComboBox2.Clear
wb = Workbooks.Open("C:\users\MAC\New folder\Book1\ProductCode")
Sheets("CodeMaster").Select
Worksheets("Sheet1").Activate
Set rngSource = Range("B1:B" & Sheets("CodeMaster").Cells(Rows.Count, "B").End(xlUp).Row)
Sheet1.ComboBox2.Clear
j = 2
For i = 1 To rngSource.Rows.Count
Sheet1.ComboBox2.AddItem (rngSource.Item(j))
j = j + 1
Next i
End Sub

I it not showing any error, but values are not getting loaded

 

[MickG]

Try something like this:-

[COLOR="Navy"]Sub[/COLOR] MG07Apr03
[COLOR="Navy"]Dim[/COLOR] Wb [COLOR="Navy"]As[/COLOR] Workbook, Rng [COLOR="Navy"]As[/COLOR] Range
'[COLOR="Green"][B]WB = Workbook to get Data from Including File Name[/B][/COLOR]
[COLOR="Navy"]Set[/COLOR] Wb = Workbooks.Open(ThisWorkbook.Path & "\test.xlsm")
[COLOR="Navy"]With[/COLOR] Wb.Sheets("Sheet1")
    [COLOR="Navy"]Set[/COLOR] Rng = .Range(.Range("B1"), .Range("B" & Rows.Count).End(xlUp))
[COLOR="Navy"]End[/COLOR] With

'[COLOR="Green"][B]Workbook with combobox:-[/B][/COLOR]
[COLOR="Navy"]With[/COLOR] Workbooks("MyWkBook.xlsm").Sheets("Sheet4").ComboBox1
    .Clear
    .List = Rng.Value
[COLOR="Navy"]End[/COLOR] With
Wb.Close SaveChanges:=False

Regards Mick