Userform list for more than one column of data
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 |
Userform list for more than one column of data
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 |
Userform list for more than one column of data
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 |
All times are GMT +1. The time now is 12:28 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com