Copy whole column and paste to variable column

[richardcdahlgren]

I need to copy the Data from Column E to paste to column variable by stage number (shown in cell E4) + 7. So Stage 1 would paste to Column H, Stage 2 paste to column I, and so on. In addition, it needs to unhide that column before pasting. Any ideas how to do this?

Thanks in advance for any assistance on this.

 

[DanteAmor]

I need to copy the Data from Column E to paste to column variable by stage number (shown in cell E4) + 7. So Stage 1 would paste to Column H, Stage 2 paste to column I, and so on. In addition, it needs to unhide that column before pasting. Any ideas how to do this?

Thanks in advance for any assistance on this.

Try this

Sub test()
    Range("E5:E" & Range("E" & Rows.Count).End(xlUp).Row).Copy Cells(5, Range("E4").Value + 7)
End Sub

 

[Rick Rothstein]

Try this

Sub test()
    Range("E5:E" & Range("E" & Rows.Count).End(xlUp).Row).Copy Cells(5, Range("E4").Value + 7)
End Sub

A smidgeon more compact...

Range("E5", Cells(Rows.Count, "E").End(xlUp)).Copy Cells(5, Range("E4").Value + 7)

and, if the E4 reference is really fixed and unchanging...

Range("E5", Cells(Rows.Count, "E").End(xlUp)).Copy Cells(5, [E4+7])

Note: I know I could use 5 in place of "E" inside the Cells object call, but I prefer using letters for their self-documenting properties.

 

[DanteAmor]

A smidgeon more compact...


Note: I know I could use 5 in place of "E" inside the Cells object call, but I prefer using letters for their self-documenting properties.

Hi Rick, it had been a while without crossing.
What it means: "Smidgeon"
Thanks again for your contributions!

 

[Rick Rothstein]

What it means: "Smidgeon"

A small amount.

 

[DanteAmor]

A small amount.

Thanks again, there are things that I do not know and others that do not come in the google translator