Help fixing a code

[Xineq]

Hey mr excel

i'm atm working on this code:

If Sheets("Counting").Range(i, "R").Value = Sheets("Overview 2014-4").Range("Q1").Value Then
        Sheets("Counting").Range("S:W").Row.Copy Destination:=Sheets("Overview 2014-4").Cells(Rows.Count, "Q").End(xlUp).Offset(1, 0)
    End If

• First part of the code, will seach my counting and see if any data in my R column is equal to my overview 2014-4 Q1 data.
• Next up if its a match, it will copy the data from (S to W) in that row and then past it in my overview 2014-4 the last row of

I just cant get it to work any help will be great

 

[AlphaFrog]

Try this...

[color=darkblue]If[/color] Sheets("Counting").Range(i, "R").Value = Sheets("Overview 2014-4").Range("Q1").Value [color=darkblue]Then[/color]
    Sheets("Counting").[B]Rows(i).Range("S1:W1")[/B].Copy Destination:=Sheets("Overview 2014-4").Cells(Rows.Count, "Q").End(xlUp).Offset(1, 0)
End [color=darkblue]If[/color]

 

[Xineq]

Hey AlphaFrog

Sorry for the late feedback, i triede your code, and it gives me the error message 1004, "Application-Defined or object-defined error" in the first line of code.

Thx for the help so far