Multi-Column Combo Box

[Don Lloyd]

Hi all,

On a worksheet I have a comobox that displays four columns of data from
another sheet.
How would I code the Combobox Change change to transfer the 4 columns in the
combobox to 4 columns on the spreadsheet ?

At the moment I'm getting nowhere !

Thanks and regards,
Don

 

[Patrick Molloy]

Private Sub ComboBox1_Change()

Dim index As Long
Dim col As Long
With ComboBox1
index = .ListIndex
For col = 0 To .ColumnCount - 1
Selection.Offset(0, col).Value = .List(index, col)
Next
End With
Selection.Activate
End Sub

 

[Don Lloyd]

Patrick,

Excellent, both in quality and promptness.

Regards,
Don