How to paste Array into range

[Whistler]

Hi,

I have a range saved in Array called Phase1, I would like to paste this array into cell C4 in Activesheet. The array is a column of 10 cells.

How I can do that using VBA, any help much apreciated

thanks

 

[Whistler]

When I use this code:

ws.Range("C4:C16") = WorksheetFunction.Transpose(All)

Only the first element of Array is pasted in to all cells.

Any Idea?

 

[tusharm]

Try without the transpose.

But for more help you have to share some more information...

How is your array declared?

What is All? How does it relate to the Phase1 in your original post?

When I use this code:

ws.Range("C4:C16") = WorksheetFunction.Transpose(All)

Only the first element of Array is pasted in to all cells.

Any Idea?

 

[Whistler]

Thanks for replay tusharam,

I have 4 Arrays declared As:

Dim All As Variant
Dim Phase1 As Variant
Dim Phase2 As Variant
Dim SP3 As Variant
Set All = ws.Range("B4:B16")
Set Phase1 = ws.Range("B19:B22")
Set Phase2 = ws.Range("B25:B31")
Set SP3 = ws.Range("B33:B35")

All is one of it.

 

[tusharm]

If you use Set X=... then X is not an array but an object that references the range on the RHS.

Depending on what it is you want to do try

ws.range("destination range").value=phase1.value.

Alternatively, try

All=Range(...).value
Range(...).value = All

Thanks for replay tusharam,

I have 4 Arrays declared As:

Dim All As Variant
Dim Phase1 As Variant
Dim Phase2 As Variant
Dim SP3 As Variant
Set All = ws.Range("B4:B16")
Set Phase1 = ws.Range("B19:B22")
Set Phase2 = ws.Range("B25:B31")
Set SP3 = ws.Range("B33:B35")

All is one of it.