Changing specific Listbox value

[Todd Huttenstine]

Hey

Below is code that populates a listbox using the RowSource property.

Counter = Worksheets("Market IDs All
Regions").Range("A65536").End(xlUp).Row

ListBox1.ColumnCount = 3
ListBox1.ColumnHeads = True
ListBox1.RowSource = Workbooks("B2B Master.xls").Worksheets("Market IDs
All Regions").Range("A2" & Counter).Address


Lets say I need to change the value of row 6 column 2... How would I
specify this?


Thanks
Todd Huttenstine

 

[Tom Ogilvy]

Your question is imprecise as to exactly what you are asking, but here is a
guess:

First change

ListBox1.RowSource = Workbooks("B2B Master.xls").Worksheets("Market IDs
All Regions").Range("A2" & Counter).Address
to

ListBox1.RowSource = Workbooks("B2B Master.xls").Worksheets("Market IDs
All Regions").Range("A2" & Counter).Address(external:=true)

then

set rng = Range(Listbox1.RowSource)
Listbox1.RowSource = ""
rng(6,2).Value = "Dubois"
Listbox1.rowSource = rng.Address(external:=True)

 

[Todd Huttenstine]

Hey

(external:=true)

What does the above part of the code do?

 

[Dave Peterson]

try this in a test sub:

with activesheet.range("a1")
msgbox .address & vblf & .address(external:=true)
end with

And you'll see.

 

[Bob Phillips]

See the response in the other thread.

 

[Bob Phillips]

Tells it to build a full book/sheet/range address against just the range.