Copy entire contents of a column 1

[wayneryeven]

Hey all
relatively simple one though i am unsure as to the best design principle to implement it.

I have set my cursor on a cell in row 1. I want to copy from this cell (e.g Current Cell= G1) to the end (i.e. where the last record of data is in column G. I jsut need to know how to best select the data, the copying etc i can go from there. The data always starts in row 1.

Cheers for your help guys,
wayner1980

 

[Loomah]

if your data is contiguous then you could use
lastcell = activecell.end(xldown).address to find the last cell

otherwise lastcell = cells(rows.count,activecell.column).end(xlup).address

with both methods (although i've used activecell in quite a contradictory way!) there is no need for selection.

then range(activecell,lastcell).copy should do the job

;-)

If a man says something and there are no women there to hear him, is he still wrong?
How do I get the best answers?​

 

[SkipVought]

Hi,

with selection
  Range(Cells(1, .Column), Cells(Cells.Rows.Count, .Column).End(xlUp)).Copy
end with

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[wayneryeven]

hey Skip
Thanks for the reply. This copies Column A-i have my cursor in a column and all (it can change) in row 1. How could i adapt this to copy the column i am in rather than Column A?

Thanks

 

[SkipVought]

It already does that.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[Loomah]

you'd change
Range(Cells(1, .Column), etc
to
Range(Cells(.row, .Column), etc

;-)

If a man says something and there are no women there to hear him, is he still wrong?
How do I get the best answers?​

 

[Loomah]

oops

;-)

If a man says something and there are no women there to hear him, is he still wrong?
How do I get the best answers?​

 

[wayneryeven]

Skip- Apologies, my copying and pasting skills have somewhat left me today. Thank you, works a treat my good man.

Loomah- cheers for your input too.

Good work guys.