Code to Paste an Array

[Ark68]

With this code:

    If rtarget.Name = "CUEALL" Then
        If rtarget.Fill.ForeColor.RGB = RGB(255, 255, 255) Then
            MsgBox "Caller: " & rtarget.Name
            myDocument.Shapes.Range(Array("CUEDR", "CUEDT", "CUEFR", "CUEFT", "CUECR", "CUECT", "CUEALL")).Fill.ForeColor.RGB = RGB(255, 0, 0)
            wshvar.Range("T" & nextrow) = Application.Transpose(Array("CUEDR", "CUEDT", "CUEFR", "CUEFT", "CUECR", "CUECT"))
        Else
            myDocument.Shapes.Range(Array("CUEDR", "CUEDT", "CUEFR", "CUEFT", "CUECR", "CUECT", "CUEALL")).Fill.ForeColor.RGB = RGB(255, 255, 255) 'ON to OFF
            MsgBox "OFF"
        End If
    ElseIf rtarget.Name = "CULALL" Then

The idea is to paste the array or values "CUEDR", "CUEDT", "CUEFR", "CUEFT", "CUECR", "CUECT" starting at the next open cell (nextrow = wshvar.Cells(Rows.Count, "T").End(xlUp).Row + 1) in column T.

This is not happening. Only "CUEDR" is being pasted there. The other values are missing in the column.

 

[Norie]

You don't paste arrays, you put the values from the array in cells.

To do that you need to resize the destination range to the same size as the array.

In this case I think you need to resize by 6 columns, or 6 rows - that isn't really clear.

 

[Ark68]

For lack of better words I used the term pasting ... taking values from one place and putting them where I need them. The array is transposed at the next available cell in column T ... I took transpose as being filling by the row.
How do I resize?

 

[Norie]

For rows.

wshvar.Range("T" & nextrow).Resize(6).Value = ...

For columns.

wshvar.Range("T" & nextrow).Resize(,6).Value = ...

 

[Ark68]

OK ... I got six 6 rows populated of column T, but of just the first value in the array "CUEDR"

wshvar.Range("T" & nextrow).Resize(6).Value = (Array("CUEDR", "CUEDT", "CUEFR", "CUEFT", "CUECR", "CUECT"))

 

[Norie]

Why did you remove Application.Transpose?

 

[Ark68]

Good question ... but your subtle hint Norie resolved the issue. LOL.
Thanks!

Jenn