This line works well in a macro dealing with a large amount of data to be transposed into a single cell.

So if it throws an error, then is it safe to assume the receiving cell character limit is exceeded or is it within the code as I have posted here.

..Cells(k, 1).Resize(rowsize:=UBound(arrOut) + 1) = _
WorksheetFunction.Transpose(arrOut)

In either case is there a work-around?

Thanks,
Howard

Assuming this line has an object ref to a wks or rng...

.Cells(k, 1).Resize(UBound(arrOut) + 1, 1) = _
Application.Transpose(arrOut)

...you're 'good-to-go'!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

On Thursday, May 1, 2014 6:30:59 PM UTC-7, GS wrote:
Assuming this line has an object ref to a wks or rng...



.Cells(k, 1).Resize(UBound(arrOut) + 1, 1) = _

Application.Transpose(arrOut)



..you're 'good-to-go'!



--

Garry


Ok, I'll give that a go. Thanks Garry.

Howard

On Thursday, May 1, 2014 6:30:59 PM UTC-7, GS wrote:
Assuming this line has an object ref to a wks or rng...



.Cells(k, 1).Resize(UBound(arrOut) + 1, 1) = _

Application.Transpose(arrOut)



..you're 'good-to-go'!



--

Garry



Free usenet access at http://www.eternal-september.org

Classic VB Users Regroup!

comp.lang.basic.visual.misc

microsoft.public.vb.general.discussion


Yes, it is in a

With Sheets("A Name of sheet")

and also in a

For i = LBound(myArr) To UBound(myArr)

Howard

On Thursday, May 1, 2014 6:30:59 PM UTC-7, GS wrote:
Assuming this line has an object ref to a wks or rng...



.Cells(k, 1).Resize(UBound(arrOut) + 1, 1) = _

Application.Transpose(arrOut)



..you're 'good-to-go'!



--

Garry



Free usenet access at http://www.eternal-september.org

Classic VB Users Regroup!

comp.lang.basic.visual.misc

microsoft.public.vb.general.discussion


Yes, it is in a

With Sheets("A Name of sheet")

and also in a

For i = LBound(myArr) To UBound(myArr)

Howard

But your counter in the line of code is 'k' NOT 'i'!!!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion

On Thursday, May 1, 2014 6:57:11 PM UTC-7, GS wrote:
On Thursday, May 1, 2014 6:30:59 PM UTC-7, GS wrote:

Assuming this line has an object ref to a wks or rng...







.Cells(k, 1).Resize(UBound(arrOut) + 1, 1) = _



Application.Transpose(arrOut)







..you're 'good-to-go'!







--



Garry







Free usenet access at http://www.eternal-september.org



Classic VB Users Regroup!



comp.lang.basic.visual.misc



microsoft.public.vb.general.discussion





Yes, it is in a



With Sheets("A Name of sheet")



and also in a



For i = LBound(myArr) To UBound(myArr)



Howard



But your counter in the line of code is 'k' NOT 'i'!!!



--

Garry


Does this make more sense? I know the entire macro is legit because it is from Claus. Myself and another amateur broadened the data the code was working on and then error. I ran you suggestion on a lesser amount of data and no problem, I don't have the greater data example amount to test with at present. Hoping it will work.

' Original
'.Cells(k, 1).Resize(rowsize:=UBound(arrOut) + 1) = _
WorksheetFunction.Transpose(arrOut)

.Cells(k, 1).Resize(UBound(arrOut) + 1, 1) = _
Application.Transpose(arrOut)
k = k + UBound(arrOut) + 1

' from Garry
' .Cells(k, 1).Resize(UBound(arrOut) + 1, 1) = _
' Application.Transpose(arrOut)

Howard

Does this make more sense? I know the entire macro is legit because
it is from Claus. Myself and another amateur broadened the data the
code was working on and then error. I ran you suggestion on a lesser
amount of data and no problem, I don't have the greater data example
amount to test with at present. Hoping it will work.

' Original
'.Cells(k, 1).Resize(rowsize:=UBound(arrOut) + 1) = _
WorksheetFunction.Transpose(arrOut)

.Cells(k, 1).Resize(UBound(arrOut) + 1, 1) = _
Application.Transpose(arrOut)
k = k + UBound(arrOut) + 1

It looks okay to me! It appears you are transfering data from one sheet
to another, starting 1 row below existing data.

Note my use of
'Application.Transpose'
in place of
'WorksheetFunction.Transpose'
is purely for the purpose of making my code VB^ friendly. It allows me
to use Find/Replace for substituting my object var "appXL" for the ref
to "Application". I'm in the process, though, of just using "appXL"
everywhere I ref "Application" in code and so you may see that in
future postings of code snippets I copy/paste from working projects.

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion