VBA Error -2147024809 (could not get the Column property. Invalid argument)

[jaycee66]

Hello,

I am a newbie to VBA. I have a phone list that I have added column. when I double click on a selected contact and it displays the contact information I receive the following error " Error -2147024809 (could not get the Column property. Invalid argument)". I have reviewed the code but am not able to find where its going off the rails.

Any and all assistance is appreciated

[jindon]

There's no "Column" Property in ListBox.

Please Login or Register  to view this content.

[jaycee66]

Jindon
Thanks for the reply and offered solution. However, I am not quite sure how to apply this (I am new to VBA). Am I not already declaring this under "Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)"
*

Please Login or Register  to view this content.

*

or should that be changed to

*

Please Login or Register  to view this content.

*

Thanks
Jaycee66

[jaycee66]

I will try to clarify my issue. when I go to my phone book form select last name Search "ca" my contacts are displayed. When I double click to get the data I receive the error box "VBA Error -2147024809
(could not get the Column property. Invalid argument". It seems that I have an error in the double click instructions but can not what is causing it.

[jindon]

Thanks for adding code tags.

[Tinbendr]

The problem is RowSource. (It always gets you in the end.) If memory serves, this is a long know problem.

If you comment out the Rowsource line in cmdContact, and manually populate the Listbox1:

Please Login or Register  to view this content.

The error is gone now, however, since you aren't using Rowsource anymore, the Headings for the listbox aren't populated. You'll have to manually add labels to replace them.

Hope this helps.

[jindon]

Your named range needs to be edited.
Go to [Formulas] - [Name manager] - Select "outdata",

Now you see the formula
=OFFSET(phonelist!$Q$9,0,0,COUNTA(phonelist!$Q$9:$Q$10000),7)

Change 7 to 10
=OFFSET(phonelist!$Q$9,0,0,COUNTA(phonelist!$Q$9:$Q$10000),10)

This should solve the problem.

P.S.

I didn't know Column works, so ignore my post #2...

[jindon]

jaycee66, thanks for the rep.