copy to range problem

[zpierucci]

Sub checkwood()
Dim i As Integer
Dim r2 As Integer
Dim lastrow1 As Long
Dim woodcoasters As Range


lastrow1 = Cells(Rows.Count, 1).End(xlUp).Row




   For i = 2 To lastrow1
   
    r2 = 2
        If Cells(i, 3).Value = Cells(14, 3).Value Then
           Range("A" & i).Copy Range("j" & r2)
           
          r2 = 2 + 1
           
        End If
           
    Next i
    


End Sub
[code/]

trying to get values to paste into column J if the cells in column C for the criteria. All values are pasting into J2 and not moving down
??

 

[Fluff]

Try it like

R2 = 2
For i = 2 To Lastrow1
   If Cells(i, 3).Value = Cells(14, 3).Value Then
      Range("j" & R2).Value = Range("A" & i).Value
      R2 = R2 + 1
   End If
Next i

 

[zpierucci]

Perfect. What was the main problem with original code? I need to declare r2 value outside of If Loop and?

 

[Fluff]

There were two problems, this line

r2 = 2 + 1

will simply make R2=3 every time through the loop, but that will then be overwritten because the first line line inside the loop set R2 back to 2.

 

[zpierucci]

helpful as always. Thanks

 

[Fluff]

Glad to help & thanks for the feedback