Hi, I am needing to populate some textboxes with a combobox from another workbook I can populate the combobox but can not work out how to populate the textboxes using a Sub ComboBox_Change change can anyone help.
Private Sub UserForm_Initialize()
Dim wbExternal As Workbook
Dim wsExternal As Worksheet
Dim lngLastRow As Long
Dim rngExternal As Range
Set wbExternal = Application.Workbooks("PriceSheet.xls")
Set wsExternal = wbExternal.Worksheets("ALL")
lngLastRow = wsExternal.Range("Q" & wsExternal.Rows.Count).End(xlUp).Row
Set rngExternal = wsExternal.Range("A3:A" & CStr(lngLastRow))
ComboBox1.RowSource = rngExternal.Address(External:=True)
End Sub
Regards
Private Sub UserForm_Initialize()
Dim wbExternal As Workbook
Dim wsExternal As Worksheet
Dim lngLastRow As Long
Dim rngExternal As Range
Set wbExternal = Application.Workbooks("PriceSheet.xls")
Set wsExternal = wbExternal.Worksheets("ALL")
lngLastRow = wsExternal.Range("Q" & wsExternal.Rows.Count).End(xlUp).Row
Set rngExternal = wsExternal.Range("A3:A" & CStr(lngLastRow))
ComboBox1.RowSource = rngExternal.Address(External:=True)
End Sub
Regards