Solved

copying data from current workbook to another different ranges

Posted on 2011-03-23
5
267 Views
Last Modified: 2012-05-11
excel 2003
need a vba sub
to be placed behind a command button


2 workbooks
1.  workingcopy.xls
1st workbook can be placed and used from anywhere
sheet name =  sheet1


2.
C:\PROGRAM FILES\DATA1\FINAL.XLS
always in this location
sheet name =  sheet1

Column Headers in BOTH worksheets
A1:AU1

The data will always start on row2 in  workingcopy.xls

THE amount of rows will always vary...

copying data from  workingcopy.xls  to final.xls




Thanks
fordraiders





0
Comment
Question by:fordraiders
  • 2
  • 2
5 Comments
 
LVL 7

Accepted Solution

by:
Jignesh Thar earned 500 total points
ID: 35204649
Use below in workingcopy

Sub CopyData()
    Range("A2:AU65536").Copy
    Workbooks.Open Filename:= _
        "D:\Documents and Settings\jignesh.thar\My Documents\FINAL.xls"
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
    Range("A1").Select
End Sub

Open in new window

0
 
LVL 7

Expert Comment

by:Jignesh Thar
ID: 35204651
Replace path "D:\Documents and Settings\jignesh.thar\My Documents\FINAL.xls" with C:\PROGRAM FILES\DATA1\FINAL.XLS
0
 
LVL 6

Expert Comment

by:TinTombStone
ID: 35205273
Assuming that the headers in both Working and Final are the same

Run this from workingcopy.xls

Sub CopyToFinal()

Dim rng As Range

    Set rng = Range("'[C:\PROGRAM FILES\DATA1\FINAL.XLS]Sheet1'!A1")

    Range("A1").CurrentRegion.Copy rng

End Sub
0
 
LVL 6

Expert Comment

by:TinTombStone
ID: 35205288
Sorry, scrub the above.  I'm just not thinking straight, jigneshthar has it right
0
 
LVL 3

Author Closing Comment

by:fordraiders
ID: 35208237
Thanks
0

Featured Post

3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
This tutorial explains how to create a series of drop-down lists that are dependent upon prior selections to guide (“force”) the user to make the correct selection and reduce data errors within Microsoft Excel. Excel 2010 was used for this tutorial;…
The viewer will learn how to use a discrete random variable to simulate the return on an investment over a period of years, create a Monte Carlo simulation using the discrete random variable, and create a graph to represent the possible returns over…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

773 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question