• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Copy data from sheet5 to sheet7

vletm Sir this question is different from that i have checked my all post and after that i have posted this question
see sheet7
sheet7 has already row1 with data(it can be more than that or sheet7 will be blank sheet it can be anything)
see sheet5
sheet5 has data now it can be a blank sheet or it will have more or less data
whatever it is we have to copy the data from sheet5 and we have to paste the data in sheet7(if sheet7 is a blank sheet then from starting we have to paste the data or if it has data then below that data we have to paste the data see sheet7 )
So it is my request vletm sir plz look into it and do needful
 
Leonardo1234
As You wrote 'copy data from sheet5 to sheet7' then
that would mean also as written.
You didn't ask to take care nor notice old data ... or did You?
 
Try
Code: 
Sub Belle()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Sheet5")
    For i = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    .Range("A" & i & ":T" & i).Copy Sheets("Sheet7").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    .Cells(i, 1).EntireRow.Delete
    Next
End With
Sheets("Sheet7").Range("A1").EntireRow.Delete
End Sub
 
We dont have to delete the old data of sheet7
we have to copy sheet5 data and paste to sheet7 , if sheet7 has data then paste the data below sheet7 data or if it is a blank sheet then from starting of sheet7
in this post we dont have to delete the data nor we have to transfer the data from one sheet, Simply copy and paste the data
 
Code: 
Sub Belle()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Sheet5")
    For i = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    .Range("A" & i & ":T" & i).Copy Sheets("Sheet7").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    Next
End With
End Sub
 
Thnx Belleke and vletm for giving ur precious time and great support to this post
Problem Solved
yes vletm sir it will paste the data many times in sheet7 :)
 
You must log in or register to reply here.
Back
Top