WOW. Omg, I was reading through forums trying to figure out to copy a range directly underneath a table and was struggling to find clear guidance. THANK YOU SO MUCH!!
PERFECT! Thanks, great 'story' and build up from simple Copy n Paste to ever more complex functionality. A wonderful format, even the 'errors' when compiling (if that's what they were really?) were beneficial, a great ploy to get us to remember stuff! Very many thanks . . .
Thank you SO much for this! I have been trying to figure this out for ages. This is EXACTLY what I've been doing manually for years. So glad to be able to automate it. Very good tutorial. I really like how you let us see your mistakes and how you fix them. (No one gets it exactly right the first time, right?).
Hi there, this is very useful and is almost what I was looking for. Would like to know how to insert the copied data to the table and shift the order data in the table downwards. Thank you.
Great Video! I have workbook template that I copy a range of data from. I then have to paste that range into other workbooks that are generated daily. The file name(s) for the generated workbook(s) are unique. Is there a way to write the code so that I can copy from the template and paste to the active sheet of the generated workbook(s) without having to edit the code each time? Basically to be able to pull data from the clipboard and paste it without having to edit the paste portion each time for new files.
Great video. Is there a way copy and paste out the newly added information to the new workbook depending on a cells date. One of my headers has Date received. This way I don't copy over duplicates.
Thanks for the tutorial especially with Cells.Find. I am currently running into two issues, namely I am getting error Object variable not set (Error 91) could you please advice what am I doing wrong. Secondly how to paste only cell values without format Thanks for your time, much appreciated
Great Video... I hv one query that I have a data in one sheet and i want copy some columns data upto last row and create new file and paste data after some shorting and sum in particular columns and new file should save in particular location ... kindly help
Sir, how to copy selected cell to another cell. Example first i will select B5 and copy paste. Second i will select j4 copy and paste. So what is code for this? Copy cell reference is dynamic and Paste cell reference is fixed. I want to copy selected data by mouse click which should be the range.
Hi - change Activesheet.paste to ActiveCell Then use the macro recorder (ctrl c ctrl v then select Paste method wanted) to find exact code should look something like this. ActiveCell.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _, SkipBlanks:=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False
Thanks a lot ! I have an issue here ..i created two command button in one sheet to execute the above said code. One will copy the table from the first work sheet and second button should copy from the second worksheet...for me second command button is not working. The code under one sheet cannot identify another worksheet.
Well, if the cell you are pasting to is protected, then you will need to unprotect it first, otherwise it won't be able to paste. You could record a macro to unprotect the sheet, copy the data and then protect the sheet again.
@@ExcelGoogleSheets cells i want paste to are unprotected, but some others do. So i cant just copy a whole table and paste. I have to choose certain cells and paste it to certain cells. It so boring and time wasting.
Could you do this same thing but by referencing ever changing columns and rows? So have VBA copy every below row 30, no matter how many columns and rows?
bro i have a sheet which is account related and need to make a separate sheet for some other purpose , but the data which is in the debit column should be automatically entered in the credit column to the other sheet where I will write the functions , so far i am using filter option but it copy and enter the exact data and cant change the column from debit to credit .....any suggestion to this please will be a big help
@@ExcelGoogleSheets There is conditional copy of that data . I.e: if the payment is being made to perticular individual only then that entire row should get copy to other sheet .....so that way only that column cant be copied
Please can you show how to add a command button? To complete the final process of copying the data from one worksheet to another worksheet, or one workbook to another workbook rather than keep clicking on the run feature in excel, thank you. Merry Christmas
Hi, Really helpful video. I have a question, if I want to paste it in the last column which in my case will be column D instead of A how do I do that in the code? Because when the code pasts the data it always starts from column A, how do I make it paste differently for each column? I hope this makes sense?
Amazing video and is 99.9% what I'm trying to do. Instead of counting the last entered cell in column "A" I just need it to perform the lrTarget on column "B". Is there a simple way of discounting column A so it looks at B for last entry? Thank you so much for your help and tutorials!
Hi! Could you make a video like this for google spreadsheet? I want to collect data through the google forms application and then I want to move that data to another google spreadsheet file depending on certain conditions. It's a lot of data that will be sent daily and I need a script that moves them according to certain conditions in several spreadsheets.
Sir i have a data having large number of rows and columns. In this data there is a column having a drop down list of serviceability status i.e serviceable or non serviceable. I want that the moment i select serviceable the entire rows having serviceable text copy into another worksheet i.e sheet 2 and when i select non serviceable the entire rows having non serviceable text copy into another worksheet i.e sheet 3. Sir the third and most important requirements is that there is a column having items quantity no in this data. If items quantity is 10 and there is only 06 items are serviceable then is this possible the same row copy in both sheet 2 and sheet 3 i.e in sheet 2 same row will be copy having 6 serviceable items and in sheet 3 same row will be copy having 4 non serviceable items. Sir if this is possible using VBA or without VBA Please share with me. I will be thankful to you.
Great tutorial! Can you please let me know why the codes i copied from you was not working Excel VBA - Copy Paste Data Range From Another Worksheet or Workbook - Part 5 Sub copydata() Sheets("Excel").Select lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row Range("A1:D" & lr).Copy Sheets("New Excel").Select lr2 = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row Cells(lr2 + 1, 1).Select ActiveSheet.Paste Columns.AutoFit End Sub
I found I had to add .xlsm to the spreadsheet name(s) ie: Workbooks("search.xlsm") Don't know why, maybe because I'm running 2013? But otherwise really really excellent! Many thanks
Hi, great video. I really need some help: This is a code that will enable me to select a range from 1 workbook, copy it then paste it in the last row of another workbook. The only downside I have is pasting only values. I've already spent a few hours trying to solve this but I am stuck. Someone, please help modify the code so that it only paste values. Sub copy_paste_Cell2() Dim wsCopy As Worksheet Dim wsDest As Worksheet Dim LastRow As Long 'Set variables for copy and destination sheets Set selectedRange = Application.Selection Set wsCopy = Workbooks("New-Data.xlsx").Worksheets("Export 2") Set wsDest = Workbooks("Reports.xlsm").Worksheets("All Data")
'1. Select Range to copy Set selectedRange = Application.InputBox("Select the range that you want to copy: ", "CopyOnlyValues", selectedRange.Address, Type:=8)
'2. Find first blank row in the destination range With Workbooks("Reports.xlsm") LastRow = Cells(Rows.Count, "A").End(xlUp).Row End With '3. Copy & Paste Data selectedRange.Copy wsDest.Range("A" & Rows.Count).End(3)(2)
WOW. Omg, I was reading through forums trying to figure out to copy a range directly underneath a table and was struggling to find clear guidance. THANK YOU SO MUCH!!
PERFECT! Thanks, great 'story' and build up from simple Copy n Paste to ever more complex functionality.
A wonderful format, even the 'errors' when compiling (if that's what they were really?) were beneficial, a great ploy to get us to remember stuff!
Very many thanks . . .
Thank You!
Thank you. I was just looking for this code and here it is. Great Explanation just trying to workout and you have explain all in one go.
Thank you SO much for this! I have been trying to figure this out for ages. This is EXACTLY what I've been doing manually for years. So glad to be able to automate it. Very good tutorial. I really like how you let us see your mistakes and how you fix them. (No one gets it exactly right the first time, right?).
Most of the time it's not even right the second time :)
Thank you very much. I was trying to write this code last two days. Finally, I found the way. Very clear instruction. This is very useful.
I wish back in life to be your study buddy when you cracking rocking VBA. Happy New year bro..
Thanks God Bless You i find this type video from 3 year....
Hi there, this is very useful and is almost what I was looking for. Would like to know how to insert the copied data to the table and shift the order data in the table downwards. Thank you.
Thanks for the great tutorial! How can I copy uneven column rows? For instance, column one has 5 rows and column two has 9 rows of data.
Thank you so much for this detailed explanation
You explain it very well. this really helps me who is studying it.
thank you for the explanation you give, this is very useful.
Great Video! I have workbook template that I copy a range of data from. I then have to paste that range into other workbooks that are generated daily. The file name(s) for the generated workbook(s) are unique. Is there a way to write the code so that I can copy from the template and paste to the active sheet of the generated workbook(s) without having to edit the code each time? Basically to be able to pull data from the clipboard and paste it without having to edit the paste portion each time for new files.
You're the one I've been looking for. I love this so much!
Great it helped me a lot.! Thank You so much
Great video and tutorial!
How to set dynamic cells range to copy instead of fixed A1:F15?
Great! Thank you. What if I want to move existing data below & paste new data on top ? header will be remain as it is. Is it possible ?
Great video. Is there a way copy and paste out the newly added information to the new workbook depending on a cells date. One of my headers has Date received. This way I don't copy over duplicates.
It's definitely possible.
Very helpful, great instructions.
Great, very helpful.
great and nice work thanks, if we need to copy just the rows of the year for example (2018) ,so how we can filter this year in VBA ?
Thanks for the tutorial especially with Cells.Find. I am currently running into two issues, namely
I am getting error Object variable not set (Error 91) could you please advice what am I doing wrong.
Secondly how to paste only cell values without format
Thanks for your time, much appreciated
Great Video... I hv one query that I have a data in one sheet and i want copy some columns data upto last row and create new file and paste data after some shorting and sum in particular columns and new file should save in particular location ... kindly help
Hallo sir, what if i wanna copy the specific row information using unique code ?
Sir when I use the same code logic I get an error statement invalid outside type block
Hey sir .
How to do same procedure in Google spreadsheet pls tell me sir.
If any videos have pls send the link thank you sir
Sir, how to copy selected cell to another cell. Example first i will select B5 and copy paste. Second i will select j4 copy and paste. So what is code for this?
Copy cell reference is dynamic and
Paste cell reference is fixed.
I want to copy selected data by mouse click which should be the range.
Does this copy paste method move cell formulas with it?
Very clear instruction. But i have a question, how do i do pastespecial values?
Hi - change Activesheet.paste to ActiveCell
Then use the macro recorder (ctrl c ctrl v then select Paste method wanted) to find exact code should look something like this.
ActiveCell.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False
@@michaelgens4879 great!, thank you
Thanks a lot ! I have an issue here ..i created two command button in one sheet to execute the above said code. One will copy the table from the first work sheet and second button should copy from the second worksheet...for me second command button is not working. The code under one sheet cannot identify another worksheet.
Did you name your sub differently or use he same name for both?
Thanks!
I've faced a situation with pasting in cells which situated in a partly defended worksheet. Would this method help me?
Well, if the cell you are pasting to is protected, then you will need to unprotect it first, otherwise it won't be able to paste.
You could record a macro to unprotect the sheet, copy the data and then protect the sheet again.
@@ExcelGoogleSheets cells i want paste to are unprotected, but some others do. So i cant just copy a whole table and paste. I have to choose certain cells and paste it to certain cells. It so boring and time wasting.
thank you .please tell me how to paste it based on cell value
Thanks.
:)
Could you do this same thing but by referencing ever changing columns and rows? So have VBA copy every below row 30, no matter how many columns and rows?
It's definitely possible, but solution depends on your setup.
Great work... Thank you...if I want to copy 3 rows with highest value to another sheet... what we do..☺️
bro i have a sheet which is account related and need to make a separate sheet for some other purpose , but the data which is in the debit column should be automatically entered in the credit column to the other sheet where I will write the functions , so far i am using filter option but it copy and enter the exact data and cant change the column from debit to credit .....any suggestion to this please will be a big help
Instead of copying the whole data, why not copy the data in the column?
@@ExcelGoogleSheets
There is conditional copy of that data . I.e: if the payment is being made to perticular individual only then that entire row should get copy to other sheet .....so that way only that column cant be copied
@@ExcelGoogleSheets any personal communication will be highly appreciated please
Please can you show how to add a command button? To complete the final process of copying the data from one worksheet to another worksheet, or one workbook to another workbook rather than keep clicking on the run feature in excel, thank you. Merry Christmas
Check out following parts in the playlist.
Hi, Really helpful video.
I have a question, if I want to paste it in the last column which in my case will be column D instead of A how do I do that in the code? Because when the code pasts the data it always starts from column A, how do I make it paste differently for each column? I hope this makes sense?
Amazing video and is 99.9% what I'm trying to do. Instead of counting the last entered cell in column "A" I just need it to perform the lrTarget on column "B". Is there a simple way of discounting column A so it looks at B for last entry? Thank you so much for your help and tutorials!
Watch this video th-cam.com/video/NrYDAEsYcbU/w-d-xo.html
Sub copydata()
Sheets("data").Select
Ir = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
Range("a2:f" & Ir).Copy
Sheets("target book").Select
IrTarget = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
Cells(IrTarget + 1, 1).Select
ActiveSheet.Paste
Columns("a:f").AutoFit
Cells(1, 1).Select
End Sub
same code wrote using button, when i click on the button, am able to see data for one second only, can please help me why it is happening like this.
Hi!
Could you make a video like this for google spreadsheet?
I want to collect data through the google forms application and then I want to move that data to another google spreadsheet file depending on certain conditions. It's a lot of data that will be sent daily and I need a script that moves them according to certain conditions in several spreadsheets.
How to do this automatically? I mean copying data to another sheet automatically without clicking the run botton?
Sir i have a data having large number of rows and columns. In this data there is a column having a drop down list of serviceability status i.e serviceable or non serviceable. I want that the moment i select serviceable the entire rows having serviceable text copy into another worksheet i.e sheet 2 and when i select non serviceable the entire rows having non serviceable text copy into another worksheet i.e sheet 3. Sir the third and most important requirements is that there is a column having items quantity no in this data. If items quantity is 10 and there is only 06 items are serviceable then is this possible the same row copy in both sheet 2 and sheet 3 i.e in sheet 2 same row will be copy having 6 serviceable items and in sheet 3 same row will be copy having 4 non serviceable items. Sir if this is possible using VBA or without VBA Please share with me. I will be thankful to you.
Really useful video, but Sir, helpful if you send the code so that I can paste it into my excel script editor.
keyboard broken?
Great tutorial! Can you please let me know why the codes i copied from you was not working
Excel VBA - Copy Paste Data Range From Another Worksheet or Workbook - Part 5
Sub copydata()
Sheets("Excel").Select
lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
Range("A1:D" & lr).Copy
Sheets("New Excel").Select
lr2 = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
Cells(lr2 + 1, 1).Select
ActiveSheet.Paste
Columns.AutoFit
End Sub
I don't see anything wrong with this code, but at the same time I have no idea what your spreadsheet setup is like. What line gives you the error?
If i am copy the data with formula in it . The value is not pasting in target sheet. The value shows as 0 (zero)
Instead of .Paste use .PasteSpecial Paste:=xlPasteValues
@@ExcelGoogleSheets Hello, I am typing ActiveSheet.PasteSpecial Paste:=xlPasteValues and I receive error 1004. There is anything else I must do?
I found I had to add .xlsm to the spreadsheet name(s)
ie: Workbooks("search.xlsm")
Don't know why, maybe because I'm running 2013?
But otherwise really really excellent!
Many thanks
Yes i had the same problem. Good thing i checked the comments.
Hi, great video. I really need some help:
This is a code that will enable me to select a range from 1 workbook, copy it then paste it in the last row of another workbook. The only downside I have is pasting only values. I've already spent a few hours trying to solve this but I am stuck. Someone, please help modify the code so that it only paste values.
Sub copy_paste_Cell2()
Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim LastRow As Long
'Set variables for copy and destination sheets
Set selectedRange = Application.Selection
Set wsCopy = Workbooks("New-Data.xlsx").Worksheets("Export 2")
Set wsDest = Workbooks("Reports.xlsm").Worksheets("All Data")
'1. Select Range to copy
Set selectedRange = Application.InputBox("Select the range that you want to copy: ", "CopyOnlyValues", selectedRange.Address, Type:=8)
'2. Find first blank row in the destination range
With Workbooks("Reports.xlsm")
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
End With
'3. Copy & Paste Data
selectedRange.Copy wsDest.Range("A" & Rows.Count).End(3)(2)
'wsDest.Activate
End Sub
h
➣
➣
➣
💍👫💕💍پیرۆزه
🎆🎈💖💖🎂💖💖💞🎈🎆
Happy 💋 Birthday
✤✤✤✤✤✤بابهت✤✤✤✤✤✤
💍👫💕💍پیرۆزه