ListBox Rowsource Limitation??

  • Thread starter Thread starter Dave Baranas
  • Start date Start date
D

Dave Baranas

I need to fill up a listbox with columns that are not next to each
other on a sheet

I have used main.lstbox.rowsource = "Sheet1!A2:R181"

then I tried

main.lstbox.rowsource = "Sheet1!A2:F181,Sheet1!I2:T181"

At least that one got by the compiler but I do not get the expected
results instead I get a blank list

I tried using a post where you make a union of ranges but that didn't
work out either.

I have a sheets with 200 columns across and depending on what page the
user is looking at I am tried to load up a list box with different
columns. If I could load up a listbox rowsource from columns on
diferent sheets that would just be awesome!

Any help on this one would be very appreciated

Regards,

Dave Baranas
 
You can only use the rowsource on a contiguous range.

You will need to add the items using AddItem and then the list or column
commands.
 
Thanks for your reply Tom. I read through several of your posts on
this subject about trying to get this to work and I tried the 3 ways
below.

It seems like they all want to work and when I step throught the code
they all give me a 'Permission Denied' error when they try to read a
cell of the worksheet.

I put this at the very beginning of the initialize procedure and it
still didn't matter.

I don't have anything protected so I don't understand why this is
happening

I have seen other posts on this but never any clear answer to why. All
I know is that this stuff needs to be done in the initialization of
the form and when I make it the first thing the program is going to do
and this happens, I am starting to believe I am on a never ending
journey just to fill up a listbox.

Any help you can give will be very much appreciated,

Regards,

Dave Baranas
----------------------------------------

' With Mn.LstWlInd
' .ColumnCount = 16
' .Top = 0
' .Height = 309
' .ColumnWidths =
"35,35,70,45,45,40,60,60,45,55,55,55,55,55,55,55"
' .List = Union(Range("Wdata!A2:F181"),
Range("Wdata!I2:P181")).Value
' End With


' For Each Cell In worksheets("Wdata").Range("A2:F181")
' Mn.LstWlInd.AddItem Cell.Value
' Next Cell



'IVal = -1
' With Mn.LstWlInd
' .ColumnCount = 16
' .Top = 0
' .Height = 309
' .ColumnWidths =
"35,35,70,45,45,40,60,60,45,55,55,55,55,55,55,55"
' For Each Cell In worksheets("Wdata").Range("A2:F181,I2:P181")
' IVal = IVal + 1
' .AddItem Cell.Value
' For JVal = 1 To 5
' .List(IVal, JVal) = Cell.Offset(0, JVal).Value
' Next
' Next
' End With








----------------------------------------
 
Back
Top