NEED HELP - Columns data matching and moving results to another cell

You could use the following assuming SKU's comparing are on same line as per your file

Sub moveData()
Dim k As Long, ws1 As Worksheet
'Change to sheet name
Set ws1 = Worksheets("Sheet1")
For k = 2 To ws1.Cells(Rows.Count, "F").End(xlUp).Row
If ws1.Range("F" & k) = ws1.Range("D" & k) Then
ws1.Range("F" & k).Resize(, 5).Cut
ws1.Range("E" & k).Insert Shift:=xlToRight
End If
Next
End Sub

The reason none of the code worked is because the data type in D is number and the data type in F is text. Try

Sub moveData()
Dim k As Long, ws1 As Worksheet
'Change to sheet name
Application.ScreenUpdating = False
Set ws1 = Worksheets("Sheet1")
For k = 2 To ws1.Cells(Rows.Count, "F").End(xlUp).Row
If CLng(ws1.Range("F" & k)) = CLng(ws1.Range("D" & k)) Then
ws1.Range("F" & k).Resize(, 3).Cut
ws1.Range("E" & k).Insert Shift:=xlToRight
End If
Next
Application.ScreenUpdating = True
End Sub

Do a backup as you cannot undo VBA code. I have assumed if F=D then cut F to H and move to Column E - I hope that's what you mean. Code in module 2

From your example the matching SKU's were in the same row - do you want to match SKU from one row to another row? In last example Row 31 has 10332020 in Column D and and Row 33 has 10332020 = do you want these to match - your example had matches between Column D & F in same row. If you want to match different rows then how is the data to appear - what happens to the data in row 33? Does it get overwritten or does the existing data in row 33 have to be placed elsewhere?
Could you upload a sample of how you want it to appear when matches are on different rows as this I assume is what you are talking about. Will there ever be multiple rows matching? If so how does that get handled. If you want to start matching different rows it would be easier to generate a new sheet with all the matches listed first and all the non matches listed below. Upload a sample based on the last workbook you uploaded. As I say it stopped at row 28 as the other matches are on different rows and you have not explained how you want this to be handled.

That could work however it is a little messy and still requires data to be swapped around. Will there every be more than 1 match? - if there will never be more than 1 match (i.e. the SKU only occurs ONCE in column D and ONCE in column F) then I would just swap the data in the rows. That way there is no spaces/empty rows - this all depends on if there is only ever one match possible. If the data in Column D can match multiple cells in Column F then I would recommend just creating a duplicate sheet with the data.

Try attached workbook - do a backup before running on real data. I am at work so have not had much time to test this well.

In Sheet 2 you will get all the matches so you can copy the matching values easily and Sheet1 will just condense down to the non matching values. The final sheet is just a copy of the data I used for testing.

Could you upload a sample workbook with data where you are getting the error - it is not a complicated bit of code and unless I can see where error is occurring very hard to advise you. Just create a sample workbook with a few lines of data run the code and if the error occurs upload that sample workbook. Do not change the sheet names you are using - make sure everything is the same just make sure there is enough data in it to replicate the error. If you changed the sheet names from Sheet1 then you would get a different error so it will be the data type but it should work with any data as it treats the data as a string. Upload a sample and do not change sheet names or starting lines where data is - make sure you get the error with the sample workbook and upload it and I will fix it for you. If you do it ASAP I will do before I go to bed.

The excel version makes no difference in this case - did you forget to upload a workbook? No - the cells do not need to be formatted in anyway and the copying as you want is not a problem. If you upload a workbook that would be great. As you see I am in Brisbane - about 1000km from Sydney and a long way from Portugal - was in Lisbon about 1 year ago - really nice place.

I have removed the delete at the end - just make sure sheet2 has the data the way you want - as I said in previous post I did it quickly. I have added a routine to find the last row in the workbook as well since your data will vary. I will have to check in morning if there is any problems with this version. I have just created a matching list in Sheet2 for you. I will check in morning if needs adjustment.

Did this do what you require? Do you want the delete section at the end to remove the empty rows after the matches are moved to second sheet? However if your problem is now solved could you please mark the thread as Solved: Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. It would be much appreciated.

That's great - could you please change this thread to Solved - : Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. It would be much appreciated.

So if you have inserted 3 more data columns does that mean you are now comparing Column I value with Column G? ...if then match is found then copy Column A to G to Sheet 2 and copy Column I to Column P to Column H in sheet 2? If my assumptions are incorrect upload small sample with new data structure showing where data is to compare. If my assumptions correct then

If Len(ws1.Range("I" & k)) > 0 Then
Set fnRng = ws1.Columns(7).Find(ws1.Range("I" & k), ws1.Range("G2"), xlValues, xlWhole)
If Not fnRng Is Nothing Then
Set cmpCpy = ws1.Range("I" & k).Resize(, 8)
Set fmCpy = ws1.Range("A" & fnRng.Row).Resize(, 7)
cmpCpy.Cut ws2.Range("H" & ws2.Cells(Rows.Count, "H").End(xlUp).Row + 1)
fmCpy.Cut ws2.Range("A" & ws2.Cells(Rows.Count, "H").End(xlUp).Row)

Based on your description that would be my estimate of the changes required - if does not work then a small sample of data and I will change code for you.