UBound coll error after converting macro. Runtime error 13. Type mismatch.

A guess: the For Each rng loop may produce some ranges with only 1 cell. If rng.Cells.Count = 1, then rng.Value will not be an array. Ensure it's ALWAYS and array.

Please Login or Register  to view this content.

Hi, hrlngrv

Thanks for the suggestion!

I just tried implementing that code, but now I get an error here and it does not seem to run the first copy module either:

ReDim res(1 To coll.Count, 1 To UBound(ar, 2))

Sorry. The new error happens because of the Erase statement in the code fragment I provided.

Would the For Each rng loop only run once? If not, ar changes on every iteration. However, since the Range collection over which iteration proceeds is

ActiveWorkbook.ActiveSheet.ListObjects(1).DataBodyRange.Columns(R).SpecialCells(xlCellTypeVisible).Rows

and since .Columns(R). is common to all rng references which would occur, no need to rely on ar for this. Indeed, doesn't .Columns(anything) return a single column reference? If so, wouldn't UBount(ar, 2) always be 1? Assuming not, then x.Columns(R) would itself be a multiple column Range, so would have its own .Columns property.

Please Login or Register  to view this content.

Hi, hrlngrv,

Thank you once again!

I just tried implementing that now and the macro runs uninterrupted. Only problem is nothing seems to be copied. But the table I copy to expanded, so something happened...

Elijah

Hi again,

I'm putting this as solved. I now discovered the problem. I had some of the columns hidden using "Group". This caused issues. Ungrouping those columns took care of the problem.

Thanks for the help, hrlngrv!

Best regards,

Elijah