copy and paste area not the same size

tharusha · Dec 28th 2020

when i try to paste i m getting a error called copy and paste area not the same size can some one take a look[xpost][/xpost]

Code

Option Explicit



Sub MoveDuplicates()

Dim rCl As Range, MyRng As Range, rRng As Range

Set rRng = Sheet1.Range("D:E")

Dim wbFrom As Workbook, wbTo

Dim lDestLastRow

Dim sheet



Set wbFrom = Workbooks("Data.xlsx")

Set wbTo = Workbooks("Appendindata.xlsm").Worksheets("Sheet2")



lDestLastRow = wbTo.Cells(wbTo.Rows.Count, "D").End(xlUp).Offset(1).Row + 1



Set rRng = wbFrom.Sheets(1).Range("A1").CurrentRegion.Columns(2)

If rRng Is Nothing Then GoTo exit_proc

For Each rCl In rRng.Cells

If Application.WorksheetFunction.CountIf(rRng, rCl.Value) > 1 Then

If MyRng Is Nothing Then

Set MyRng = rCl

Else: Set MyRng = Union(MyRng, rCl)

End If

End If

Next rCl

With wbTo



MyRng.EntireRow.Copy _

wbTo.Range("D" & lDestLastRow)

End With

Exit Sub



exit_proc:
End Sub

Display More

**royUK** · Dec 28th 2020

You cannot copy the entirerow and paste to part of a row. You must use the whole roe or just copy the actual data.

Code

MyRng.EntireRow.Copy _
wbTo.Range("A" & lDestLastRow)
End With

I need to see the actual workbook to maybe provide better code.

tharusha · Dec 28th 2020

hi royUK
think i have 2 books books with data and i have to check if duplicate available or not based on column "country" id yes need to move to the result sheet both duplicate rows
like wise i have to do to two work sheets and move them to a same workbook same sheet
plz find the attachment

and i need to append the data to result workbook sheet every time i run it
can i help in this

davesexcel · Dec 28th 2020

Quote from tharusha

MyRng.EntireRow.Copy _

wbTo.Range("D" & lDestLastRow)

You can't copy an entire row to column D as that would make the data go outside the worksheet.

Edit: Ha, guess this was already said

tharusha · Dec 28th 2020

can you tell me the code to paste it

**royUK** · Dec 28th 2020

Do you want to paste to column D?

**royUK** · Dec 28th 2020

Cross-posting is when you post the same question in other forums on the web. You'll find people are disinclined to respond to cross-posts because they may be wasting their time solving a problem that has been solved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post. We are here to help so help us help you!

Read this to understand why we ask you to do this

copy and paste area not the same size

Participate now!

Share

Tags