Copy if match - offset

[emukiss10]

Hello!

VBA needed.

In sheets(5) column "A" every 3rd row (A3, A6, A9 and so on) I have some numbers.
I'd like to search for those numbers in column "F" of sheets(3). (F2:F)
If match I would like to copy contains of cells from column "DG" and "DI" sheets(3) to columns "M" and "N" sheets(5) to the rows that was matched.

Best Regards
W.

 

[emukiss10]

Bump

 

[emukiss10]

Bump

 

[My Aswer Is This]

We are dealing with 3 sheets here.
So if the number 687 is found on row 9 of sheet(5) does 687 also have to be on row(9) of sheet (3) and then copied to row 9 of sheet(5)

 

[emukiss10]

2 sheets.

If value of A15 Sheets(5) is found in F544 Sheets(3) than copy contains of DG544 and DI544 to Sheets(5) M15 and N15.

 

[emukiss10]

Bump

 

[My Aswer Is This]

I'm still confused.
I said:

We are dealing with 3 sheets here.​

You said in post 5:

2 sheets. ​

 

[emukiss10]

Sir

Sheet number 3 and Sheet number 5
- only those two (Sheets(5) and Sheets(3)).
Mayby Im not getting it English is not my native language so I might mess something up from time to time

 

[My Aswer Is This]

Try this:
Checks every 3rd cell in column "A" sheet(3) against same cell in column "F"
Starts in row(3) then row(6) then (9) etc.

Sub My_Sub()
'Modified 2-28-18 1:45 PM EST
Application.ScreenUpdating = False
Dim i As Long
Dim c As Range
Dim Lastrow As Long
Dim Lastrowa As Long
Sheets(3).Activate
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Lastrowa = Cells(Rows.Count, "F").End(xlUp).Row
    For i = 3 To Lastrow Step 3
        
        For Each c In Range("F2:F" & Lastrowa)
        If c.Value = Cells(i, 1).Value Then
            Sheets(3).Cells(i, "DG").Copy Sheets(5).Cells(i, "M")
            Sheets(3).Cells(i, "DI").Copy Sheets(5).Cells(i, "N")
        End If
        Next
Next
Application.ScreenUpdating = True
End Sub

 

[emukiss10]

mayby it could work but I dont know how to remodel it. Could you make it work for my case?

"If value of A15 Sheets(5) is found in F544 Sheets(3) than copy contains of DG544 and DI544 to Sheets(5) M15 and N15."

Check every 3rd cell in column "A" sheet(5) against column "F" Sheet(3)

Starts in row(3) then row(6) then (9) etc.