VBA Move data from one sheet to multiple sheets

Share

Facebook
Twitter
LinkedIn

This is a guest post by Vijay, our in-house VBA Expert.

Suresh sent an email with interesting problem.

There is one data entry sheet where all the data needs will be entered, however once done we want the data to be stored separately in multiple sheets designated by the Employee code.

In this article we will learn how to use VBA to help in resolving the problem Suresh was facing at work.

We will do this using VBA and the below procedure illustrates how this was done.

Sub copyPasteData()
Dim strSourceSheet As String
Dim strDestinationSheet As String
Dim lastRow As Long

strSourceSheet = "Data entry"

Sheets(strSourceSheet).Visible = True
Sheets(strSourceSheet).Select

Range("C2").Select
Do While ActiveCell.Value <> ""
strDestinationSheet = ActiveCell.Value
ActiveCell.Offset(0, -2).Resize(1, ActiveCell.CurrentRegion.Columns.Count).Select
Selection.Copy
Sheets(strDestinationSheet).Visible = True
Sheets(strDestinationSheet).Select
lastRow = LastRowInOneColumn("A")
Cells(lastRow + 1, 1).Select
Selection.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets(strSourceSheet).Select
ActiveCell.Offset(0, 2).Select
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Let’s understand the code

We start by defining 2 variables which will hold the Source and destinations sheet names, source will be one sheet only however there will be multiple destinations sheets.

A simple Do While loop is utilized to complete this data transfer from one sheet to the others.

However the most interesting line in the code is :

ActiveCell.Offset(0, -2).Resize(1, ActiveCell.CurrentRegion.Columns.Count).Select

Since we start our work on Column C in the loop, we need to ensure the data from Column A and B is also selected to be copied and pasted on the relevant sheets, this is accomplished using the above line.

Once we have selected the entire data set on the current row, we copy the same and select the relevant sheet and then paste the data as values on the same.

At the end of the code once we switch back to the Source sheet, we need to ensure that we select Column C again. The reason for that is, when we select the entire data set we activate the first column and we need to come back to column C for our loop and the rest of the code to work.

 

Download Excel File

Click here to download the file & save it on your system and use it to understand this technique.

More on VBA & Macros

If you want to learn more about using VBA to automate reporting & email tasks, read these:

Join our VBA Classes

If you want to learn how to develop applications like these and more, please consider joining our VBA Classes. It is a step-by-step program designed to teach you all concepts of VBA so that you can automate & simplify your work.

Click here to learn more about VBA Classes & join us.

Facebook
Twitter
LinkedIn

Share this tip with your colleagues

Excel and Power BI tips - Chandoo.org Newsletter

Get FREE Excel + Power BI Tips

Simple, fun and useful emails, once per week.

Learn & be awesome.

Welcome to Chandoo.org

Thank you so much for visiting. My aim is to make you awesome in Excel & Power BI. I do this by sharing videos, tips, examples and downloads on this website. There are more than 1,000 pages with all things Excel, Power BI, Dashboards & VBA here. Go ahead and spend few minutes to be AWESOME.

Read my storyFREE Excel tips book

Overall I learned a lot and I thought you did a great job of explaining how to do things. This will definitely elevate my reporting in the future.
Rebekah S
Reporting Analyst
Excel formula list - 100+ examples and howto guide for you

From simple to complex, there is a formula for every occasion. Check out the list now.

Calendars, invoices, trackers and much more. All free, fun and fantastic.

Advanced Pivot Table tricks

Power Query, Data model, DAX, Filters, Slicers, Conditional formats and beautiful charts. It's all here.

Still on fence about Power BI? In this getting started guide, learn what is Power BI, how to get it and how to create your first report from scratch.

22 Responses to “Master Excel 2007 Ribbon with this Free Learning Guide”

  1. Finnur says:

    Thank you, kind sir. Well done with the baby making.

  2. doug churchill says:

    I cannot get signed up for your newsletter. I tied both this email address and churchill2001@hotmail.com. never a response.

  3. doug churchill says:

    I cannot get signed up for your newsletter. I tied both this email address and churchill2001_at_hotmail_dot_com. never a response for either attempt.

    • Chandoo says:

      @Doug, it shows that your email address is pending verification. Can you check your inbox (and may be spam folder too) for an email from me? The subject will be "Activate Subscription to Get your Free Excel Tips E-book"

  4. ajay says:

    Very Useful Info..Keep it up..

  5. Chandoo says:

    @Ajay.. you are welcome 🙂

  6. [...] Excel 2010 UI looks considerably better and less stressful than 2007. The colors are dull and subtle. The icons don’t call for attention unless you want to do something. The menus / ribbons feel smoother and slicker. [Learn to use Excel Ribbon with this Free e-Book] [...]

  7. Mark says:

    I can't open this pdf. I get the error message:

    You do not have the required license to open this file.

    Please request a license from the creator of the file, and add it using the license manager and they try opening it again.

    What gives??

  8. Mark says:

    I downloaded the file again and it worked this time. Strange. (First file was 116 KB, second was 1644 KB... ???)

  9. Michael says:

    Hi Chandoo,
    thanks for sharing your Excel 2007 learning experience with us; unfortunately the link to the pdf of the free Excel 2007 learning guide seems broken: my Acrobate Readers flags: "Unkown file type or corrupte data".
    Have a nice day
    Michael

  10. anja says:

    well done this is great

  11. Fabian says:

    Can somebody just provide a link the classic TAB exportedUI files for MS Office 2003 for us to use in office 2007/2010?. searching online, everybody just wnats to make a buck online with silly Classic Tab installers which do nothing more than inport exportedUI files for you.

    Don't give me a ribbon how to guide, just give me free exportedUI files. I should not have to pay anyone for this, it is free XML, MS should have included this to begin with.

  12. rocky says:

    thanks

  13. kartik says:

    Dear.
    There are a set of debit values and a set ot credit values in a column. I want a vba code by whcich the debit value plus a single / multiple credit value is zero that needs to be marked .
    finally i will come to know out of the avaibale debits which cannot be used the with avilable credits either single or multiple values.
    If multiple matching sets are available let it take the 1st or the 2nd one its not an issue.
    Column A Ref
    -1000 A
    -5000 B
    -8000 C
    800 A
    100 A
    100 A
    2000 B
    3000 B
    13000
    15000

  14. ridwan says:

    hi...
    how to make this add-ins and display in ribbon... check this sample : http://www.cprsoft.com/GCDemo01.htm
    thank you sir...
     

  15. Aleem Qamar says:

    Please tell me format painter short cut key In excel ?
    Thanks In Advance

  16. mano says:

    thankfully.likeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee

  17. Gift Miag Mentor says:

    I am very much happy for such a great opportunity given to excel learners to advance their skills for the betterment of the future. I am a great user of this site and feel proud to have come across this web site.
    I appreciate this, because I didn't do much works in my project management studies using gantt chart. As of now are have now learned some advancement.

Leave a Reply