I am using code that lets me use the first column of data to the right of a
partID.
I need the TWO columns to the right. Afraid I am new to the list, count
function in the userform. Here is what I have:

For Each cPart In ws.Range("PartIDList")
With Me.cboPart
.AddItem cPart.Value
.List(.ListCount - 1, 1) = cPart.Offset(0, 1).Value
End With
Next cPart


Then it writes to another page with this:
..Cells(lRow, 4).Value = Me.cboPart.Value
..Cells(lRow, 5).Value = Me.cboPart.List(lPart, 1)

I need the next column, 6, to have the next column of data for the same
part.value and part.list.

I tried:
Cells(lRow, 6).Value = Me.cboPart.List(lPart, 2), but that did not work.

Thanks for any help!!

David

How about just keep adding those values:

With Me.cboPart
.AddItem cPart.Value
.List(.ListCount - 1, 1) = cPart.Offset(0, 1).Value
.List(.ListCount - 1, 2) = cPart.Offset(0, 2).Value
.List(.ListCount - 1, 3) = cPart.Offset(0, 3).Value
'etc
End With

then

..Cells(lRow, 4).Value = Me.cboPart.Value
..Cells(lRow, 5).Value = Me.cboPart.List(lPart, 1)
..Cells(lRow, 6).Value = Me.cboPart.List(lPart, 2)
..Cells(lRow, 7).Value = Me.cboPart.List(lPart, 3)
'etc

You can use the .columncount to specify the number of columns you want and
..columnwidths to hide the ones you don't want to see.


David wrote:

I am using code that lets me use the first column of data to the right of a
partID.
I need the TWO columns to the right. Afraid I am new to the list, count
function in the userform. Here is what I have:

For Each cPart In ws.Range("PartIDList")
With Me.cboPart
.AddItem cPart.Value
.List(.ListCount - 1, 1) = cPart.Offset(0, 1).Value
End With
Next cPart

Then it writes to another page with this:
.Cells(lRow, 4).Value = Me.cboPart.Value
.Cells(lRow, 5).Value = Me.cboPart.List(lPart, 1)

I need the next column, 6, to have the next column of data for the same
part.value and part.list.

I tried:
Cells(lRow, 6).Value = Me.cboPart.List(lPart, 2), but that did not work.

Thanks for any help!!

David

--

Dave Peterson

Thanks a bunch...I see where I went wrong. Many thanks again!

David

"Dave Peterson" wrote:

How about just keep adding those values:

With Me.cboPart
.AddItem cPart.Value
.List(.ListCount - 1, 1) = cPart.Offset(0, 1).Value
.List(.ListCount - 1, 2) = cPart.Offset(0, 2).Value
.List(.ListCount - 1, 3) = cPart.Offset(0, 3).Value
'etc
End With

then

..Cells(lRow, 4).Value = Me.cboPart.Value
..Cells(lRow, 5).Value = Me.cboPart.List(lPart, 1)
..Cells(lRow, 6).Value = Me.cboPart.List(lPart, 2)
..Cells(lRow, 7).Value = Me.cboPart.List(lPart, 3)
'etc

You can use the .columncount to specify the number of columns you want and
..columnwidths to hide the ones you don't want to see.


David wrote:

I am using code that lets me use the first column of data to the right of a
partID.
I need the TWO columns to the right. Afraid I am new to the list, count
function in the userform. Here is what I have:

For Each cPart In ws.Range("PartIDList")
With Me.cboPart
.AddItem cPart.Value
.List(.ListCount - 1, 1) = cPart.Offset(0, 1).Value
End With
Next cPart

Then it writes to another page with this:
.Cells(lRow, 4).Value = Me.cboPart.Value
.Cells(lRow, 5).Value = Me.cboPart.List(lPart, 1)

I need the next column, 6, to have the next column of data for the same
part.value and part.list.

I tried:
Cells(lRow, 6).Value = Me.cboPart.List(lPart, 2), but that did not work.

Thanks for any help!!

David

--

Dave Peterson