Empty space/gap at end of drop down list selection

[ipbr21054]

Morning,

When i click the drop down arrow on a Combobox i see the only one option to select of which in this case is N/A
But below that option there is a empty space/gap.

Please advise how this can be remove.
Here is some info to assist you.

Code for the Combobox.

'INVOICE NUMBERDim lastroww As Long
lastroww = Sheets("INFO").Cells(Rows.Count, "W").End(xlUp).Row
ComboBox13.List = Sheets("INFO").Cells(2, "W").Resize(lastroww).Value

The table on the worksheet is,
Column W
Header in cell W1
N/A is then in cell W2


If you need more info please advise.

Thanks

 

[steve the fish]

Resize by lastroww-1 rather than lastroww.

 

[ipbr21054]

Hi,
If you mean like the below that gives me an error of,
RTE 31
Could not set the list property, Invalid property array Index.

'INVOICE NUMBERDim lastroww As Long
lastroww = Sheets("INFO").Cells(Rows.Count, "W").End(xlUp).Row
ComboBox13.List = Sheets("INFO").Cells(2, "W").Resize(lastroww - 1).Value

 

[ipbr21054]

Afternoon,

Anybody see why this space / gap is present or why when i enter -1 to the code as advised above throws up the error message.

Thanks

 

[Fluff]

As your list starts in row 2 you need to use Lastrow-1 to remove the blank space, but .List needs an array, so if you only have one value value in col W you get the error.

 

[ipbr21054]

I will check once home but I think I did try it on another list which had plenty in and was the same.

 

[ipbr21054]

Fluff you are correct.
I have checked & added the -1 to those with more than 1 entry

Thanks very much

 

[Fluff]

Glad we could help & thanks for the feedback