Hi,
I have filled a 2 column combo box using an array. I
have changed the properties to allow headers. Is there a
way to fill the column headings with values using VBA
code?
arsname(0, 0) = "first column heading"
arsname(0, 1) = "second column heading"
These elements of the array hold data.
peter
Re: combo box heading
Peter
I don't think it's possible. Can you post the code you already have?
What type of combobox are you using.
Re: combo box heading
Hi Peter,
I run into a simular problem which I handled 3 differant ways.
1. I included the header row in my array so the first items that showed up were the column headers.
2. I simply put labels above my list box to ID the columns. Those can be made visible or not with code depending what mode the list is in at the time.
and I think this is what your looking for
3. do not include the header row in your array yet set your listbox ColumnHeads property to true. This will create column heads using the row directly above the first row.
Hope this helps.
Phil
Re: combo box heading
Phil
As far as I know Option 3 will only work if the combobox is populated from a range.
I'm not sure if that is how peter is doing it.
Re: combo box heading
Hi,
here is the code...
'run the sub to build the array
rsname 'client name
'populate the box with the array
ufstart.cmbname.List = arsname
Sub rsname()
Dim allcells As Range
isrsname = True
Range("name").Select
lastrow = Range("f16000").End(xlUp).Row
'add items to variable list
ReDim arsname(lastrow - 2, 2)
Range("f2").Select
Do While ActiveCell.Row <= lastrow
arsname(x, 0) = ActiveCell.Value 'name
arsname(x, 1) = Range("b" & ActiveCell.Row).Value 'lossdate
arsname(x, 2) = Range("e" & ActiveCell.Row).Value 'pol number
x = x + 1
ActiveCell.Offset(1, 0).Select
Loop
isrsname = False
End SubDon’t have an account yet? Register yourself now and be a part of our community!