RUN time error 1004 - Unable to match the property

[Murtuz]

Hi All,

Running below code and getting "1004" error "Unable to match the property".

I have below coding to match the headings from a sheet and paste the data in different sheet under same heading. but when it does not find exact match it get stuck at yellow highlighted code.

I just need it to skip the mismatched heading and search for next column heading and paste the data under it.

Kindly help!

Sub CopyHeaders()

LastRow1 = ThisWorkbook.Worksheets("Headers").Range("A" & Rows.Count).End(xlUp).Row
LastRow2 = ThisWorkbook.Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To LastRow1

Set Rng1 = ThisWorkbook.Worksheets("Sheet1").Range("A1:AJ1")
Set Rng2 = ThisWorkbook.Worksheets("Sheet2").Range("A1:AJ1")

[COLOR=rgb(251, 160, 38)]m = Application.WorksheetFunction.Match(ThisWorkbook.Worksheets("Headers").Range("A" & i).Value, Rng1, 0)[/COLOR]

ThisWorkbook.Worksheets("Sheet1").Range("A2:A" & LastRow2).Columns(m).Copy


h = Application.WorksheetFunction.Match(ThisWorkbook.Worksheets("Headers").Range("A" & i).Value, Rng2, 0)

ThisWorkbook.Worksheets("Sheet2").Range("A2").Columns(h).PasteSpecial xlPasteValues

Next i

MsgBox "Data has been pasted successfully"

End Sub

 

[Peter_SSs]

Duplicate to: Error 1004- Unable to get the matched property

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread since the later one already has a reply so please continue in the linked thread.