column copy

[Guest]

I have code that sorts data worksheet sub (AAAA)
Need code in another procedure that will run sort code first (AAAA) Then
copy columns (A),(D),(E),(G),(L) to worksheet announcer. This builds the
worksheet to be used with a mail merge for printing announcer cards. Have not
tried to copy columns only cells
Help Greatly Appreciated
Thanks

 

[Guest]

Curt,

As an example, to copy column A in the activesheet to column A of a sheet
named Sheet2:

ActiveSheet.Range("A:A").Copy Sheets("Sheet2").Range("A:A")

 

[Guest]

As all ways one does not fully explain the problem. I am trying to do this in
vba code as a sub procedure. Not sure of codeing The procedure will be
acessed from an user form. You will not be on the active sheet. If I follow
data worksheet must be activated first and the run sub AAAA then
ActiveSheet.Range("A:A").Copy Sheets("Sheet2").Range("A:A")
ActiveSheet.Range("D").Copy Sheets("Sheet2").Range("D")
ActiveSheet.Range("E:E").Copy Sheets("Sheet2").Range("E:E")
ActiveSheet.Range("G:G").Copy Sheets("Sheet2").Range("G:G")
ActiveSheet.Range("L:L").Copy Sheets("Sheet2").Range("L:L")
correct
Thanks

 

[Guest]

Hi Curt,

I only used ActiveSheet as an example because I assumed you wanted to work
with the activesheet. But, you don't really have to activate your sheet. For
example, this will also work:

'Copy column A from sheet named "Sheet1" to a sheet named "Sheet2"
Sheets("Sheet1").Range("A:A").Copy Sheets("Sheet2").Range("A:A")

 

[Guest]

call AAAA
worksheet("Data").range.(A:A).copy
worksheet(announcer")range("A:A").paste
worksheet("Data").range.("D").copy
worksheet(announcer")range("D").paste
and so on right
Thanks

 

[Guest]

Close... There is no "worksheet" collection. You use either Sheets() or
Worksheets() and there's some missing dots on your code.. You can also make
your code shorter by passing the destination to the copy method so you don't
have to call Paste. So:

call AAAA
Worksheets("Data").Range("A:A").Copy Worksheets("announcer").Range("A:A")
Worksheets("Data").Range("D").Copy Worksheets("announcer").Range("D")
'... and so on...

 

[Guest]

Thank you so much you are a great help
Thanks again