Create a VBA macro to copy data to Other sheet



Create a VBA macro to copy data to another sheet. Copy data from one sheet to the next using a macro. Auto-populates sheet with data
Visit our website

Code
Sub populate()
Dim lastrow as long
Dim erow as long

lastrow=sheet1.cells(rows.count,1).End(xlUp).row
erow =sheet2.cells(1,1).CurrentRegion.Rows.Count + 1
Sheet2.cells(erow,1) =Sheet1.cells(lastrow,1)
Sheet2.cells(erow,2) =Sheet1.cells(lastrow,2)
Sheet2.cells(erow,3) =Sheet1.cells(lastrow,7)

erow =sheet3.cells(1,1).CurrentRegion.Rows.Count + 1
Sheet3.cells(erow,1) =Sheet1.cells(lastrow,4)
Sheet3.cells(erow,2) =Sheet1.cells(lastrow,1)
End sub

For more help visit my website or email me at easyexcelanswers@gmail.com.

Contact me regarding customizing this template for your needs.

Click for online Excel Consulting

I am able to provide online help on your computer at a reasonable rate.

Check out my next one-hour Excel Webinar

I use a Blue condensor Microphone to record my videos, here is the link

Check out Crowdcast for creating your webinars

If you need to buy Office 2019 follow

I use Tube Buddy to help promote my videos
Check them out

Follow me on Facebook

TWEET THIS VIDEO

Follow me on twitter
easyexcelanswers

IG @barbhendersonconsulting

You can help and generate a translation to you own language

*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I’ve used or have experience with.

Watch more new videos about Excel Office | Synthesized by Mindovermetal English

Rate this post

Bài viết liên quan

Theo dõi
Thông báo của
guest
8 Comments
Cũ nhất
Mới nhất Được bỏ phiếu nhiều nhất
Phản hồi nội tuyến
Xem tất cả bình luận
pkritika1984

This is just copying one row, would you pls help in letting us know how to copy multiple rows? TIA

Bharat Kumar

While we enter any data, then is it automatically copy to other sheets?

Bharat Kumar

It's super, and usable for me.
Pls mail me the file for practice.

Hari Krishna

Thanks for the video.. could you please tell us how to copy specific row to a desired worksheet name.

Lyn Agtoto

How do I code if i put copy button and code to copy
so that I will not keep on doing run on the module?

Cherine Haddad

Thank you this is great. I need help I have this sentence in VBA that is working but it is copying the format as well . I really would appreciate. if you can tell me where to add Value so it will only copy the values. Sheets("Sheet1").cells(i,1).copy Destination:=sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).offset(1)

Artan Gjongeci

Well no one seems to be able to answer the question. How to transfer values only when the original table has formulas?

Srikanth Kasala

Dear Sir, you did great explanation Sir/ Madam. This video very useful to me. I tried but not getting correctly output to me……. I need your help… In same way, how can make a Search box and Highlight Data in excel and automatically transfer and save Data programming one sheet to another sheet. If I copy the highlighted data when I paste particular data, that data only paste in columns. And more over I want take print out from that sheet what I searched data will be output print. For example I want to search and highlight data and auto save the data work sheet-1 in excel from What we are entering data should be save in work sheet-2/3/4… If I search the data in worksheet-1 correct display the answer. Can you Sir make a video or send the worksheet.