Error 380 - ListIndex Property

[AlanAnderson]

Hi all,

I am using Excel 2003 running on XP.

I have a routine that allows me to work on data held within a list created from data on a spreadsheet ("Income"). This works perfectly when there is data in the sheet.
If the data sheet is empty (like after month end) then I get the following error relating to the line "ListIndex=1":


"Run time error 380"
"Could not set the ListIndex property. Invalid property value."

The bit of code where this "falls over" is listed below.

With Me.ListBox1
.BoundColumn=2
.ColumnCount=10
.ColumnHeads=True
.TextColumn=True
.RowSource="Income!B13:K" & FinalRow
.ListStyle=fmListStyleOption
.ListIndex= 1
End With

I think I need some form of "if" loop to load up empty lists so that the user can add new items but don't know where to start.

Can anyone please help?

Regards,

Alan

 

[diddi]

note that listindexes start at 0 not 1... so your code will get the second item

With Me.ListBox1
    .BoundColumn=2
    .ColumnCount=10
    .ColumnHeads=True
    .TextColumn=True
    .RowSource="Income!B13:K" & FinalRow
    .ListStyle=fmListStyleOption
    if finalrow>13 then .ListIndex= 1
End With

 

[G2K]

yes, if range does not cantain any data, it would through Error.

check whether the range have data or not, if there is no data execute next line of code.

can use 'On error resume next'

 

[dave3009]

Try removing the line

.ListIndex= 1

And see if you still get your desired result