Copy Non Blank Data from Sheet1 to Sheet2 

Hi Dinesh, I'm not sure if you are still monitoring this page but I've tried to execute this code and am getting an error: Run-time error '9': Subscript out of range. The line in Question is Sheets("sheet5").range(Cells(i, 1), Cells(i, 2))).Copy Note: My sheet # is 5. When I hover over the Cells(i, 1) and Cells(i, 2) i do see the correct values of those cells in the other sheet.

Thank you for your all efforts. Excel is easy with your modules.

Thank you for help! Simle and magnificent sollution for my problem.

Thanks Dinesh. Great job.

Thanks a lot Sir

Sir I ve one excel sheet, in which i dont want copy option enabled. (Means not allow to copy and paste by any method), is it possible?

Thank u sooo. Much sir. Could u pls help to get data from the serial com port a sheet.

Hi Dinesh, Thanks for your tutorial. I am having some issues. I get a - run time error '9', Subscript out of Range. When I try to run this code. What is the issue? I have made sure it is referencing the right sheets but i don't understand the issue. Please help

Hi Dinesh. Thank you for your step by step video. I'd like some clarification on a 424 error I'm getting. I'm clueless about VBA so I've copied your formula exactly as you wrote it. The only difference is my first sheet is called "All" and the second sheet is called "Secular". The error highlights the 3rd line (lastrow=etc...) as erroneous. I can't figure out what's wrong. I saved the code as a xlsm file in order to enable macros. I inserted the button as you suggested and when I ran the macro, it gave me the error listed above. Here's my code. Sub copyNonBlankDataSecular() Dim erow As Long, lastrow As Long, i As Long lastrow = All.Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To lastrow If All.Cells(i, 1) “” Then Sheets("All").Range(Cells(i, 1), Cells(i, 2)).Copy Sheets("Secular").Activate erow = Secular.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ActiveSheet.Paste Destination:=Sheets("Secular").Range(Cells(erow, 1), Cells(erow, 2)) Sheets(“All”).Activate End If Next i Application.CutCopyMode = False End Sub

hi Dinesh i tried you code and it works. but i have more than 2 columns of data to copy and paste, when i added the other columns, i'm getting run time error 450 for the below line: For i = 3 To lastRow If Sheet1.Cells(i, 2) "" Then Sheets("sheet1").Range(Cells(i, 2), Cells(i, 3), Cells(i, 4)).Copy >>>> (run time error 450 when I added the Cells(i,4)) Sheets("sheet2").Activate erow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ActiveSheet.Paste Destination:=Sheets("sheet2").Range(Cells(erow, 1), Cells(erow, 2), Cells(erow, 3)) >>>>added Cells(erow,3) Sheets("sheet1").Activate End If I added the Cells(i,4) since i have 3 columns of data. how to write this properly?

i have a question i notice when you define the Lastrow you type ( lastrow=sheet1.cells(rows.count,1).end(xlup).row ) when i type that statement i get a compile error in VBA stating --> Compile Error: Expected: ( can you help resolve?

how to copy more then two column data.. Worksheets("Audits").Range(Cells(i, 1), Cells(i, 2), Cells(i, 3)).Copy -----> given Error

Thank you. Could you please help me if using pastespecial?

Dear sir, First o all, I would like to say thank you for your help. I have copied the same code from the link given, but I got an error 1004 saying " Application defined or object defined error" One point more, can I use this formula with rows with formulas? I need only the rows that has a result (Not "") to be copied and pasted. Thank you sir Thamer

Hi Sir, What is the code ? If I want to copy empty cells of column A as well. Plz help me. Or views also help me plz

Sir, thank you! Sir, if I could get your email ID I had some work process would like to learn.

sir plz make a video for how to tranasfer last entry row data automatically to onther workbook master sheet blank row . only data not formula . our header same two workbook. plz help sir