In his blog, Dick Kusleika gives this code for populating a listbox. It
assumes the listbox has been set to to have a column count of 3, and
that there is data in columns A, B and C of Sheet 1. I've checked the
code and it works fine. However, I've tried using the same code to
populate a combobox, but it doesn't seem to work. Anyone any idea why?

Thanks, G

Private Sub UserForm_Initialize()
Dim cell As Range
Dim Rng As Range

With ThisWorkbook.Sheets(”Sheet1″)
Set Rng = .Range(”A2″, .Range(”A2″).End(xlDown))
End With

For Each cell In Rng.Cells
With Me.ListBox1
..AddItem cell.Value
..List(.ListCount - 1, 1) = cell.Offset(0, 1).Value
..List(.ListCount - 1, 2) = cell.Offset(0, 2).Value
End With
Next cell

End Sub


--
Gromit
------------------------------------------------------------------------
Gromit's Profile: http://www.excelforum.com/member.php...nfo&userid=928
View this thread: http://www.excelforum.com/showthread...hreadid=503936

Option Explicit
Private Sub UserForm_Initialize()
Dim cell As Range

With ComboBox1

For Each cell In Range("MyData").Columns(1).Cells
.AddItem cell.Value
.List(.ListCount - 1, 1) = cell.Offset(0, 1).Value
.List(.ListCount - 1, 2) = cell.Offset(0, 2).Value
Next cell

End With

End Sub

"Gromit" wrote:


In his blog, Dick Kusleika gives this code for populating a listbox. It
assumes the listbox has been set to to have a column count of 3, and
that there is data in columns A, B and C of Sheet 1. I've checked the
code and it works fine. However, I've tried using the same code to
populate a combobox, but it doesn't seem to work. Anyone any idea why?

Thanks, G

Private Sub UserForm_Initialize()
Dim cell As Range
Dim Rng As Range

With ThisWorkbook.Sheets(€�Sheet1€³)
Set Rng = .Range(€�A2€³, .Range(€�A2€³).End(xlDown))
End With

For Each cell In Rng.Cells
With Me.ListBox1
.AddItem cell.Value
.List(.ListCount - 1, 1) = cell.Offset(0, 1).Value
.List(.ListCount - 1, 2) = cell.Offset(0, 2).Value
End With
Next cell

End Sub


--
Gromit
------------------------------------------------------------------------
Gromit's Profile: http://www.excelforum.com/member.php...nfo&userid=928
View this thread: http://www.excelforum.com/showthread...hreadid=503936

Thanks Patrick,

This works fine, thanks. I tried Dick's again for the 5th time, and
this time it works also. I must have been doing something stupid.

Thanks again,

Graham


--
Gromit
------------------------------------------------------------------------
Gromit's Profile: http://www.excelforum.com/member.php...nfo&userid=928
View this thread: http://www.excelforum.com/showthread...hreadid=503936