Macro help to copy specific rows to existing worksheet

[mschiavo]

Hello,

I'm in need of some help to write VBA code in Excel that does the following:

-For each row where the value in column A is a "1", copy the entire row to an existing worksheet (say named "result") in the same row number.

For example, I know how to conditionally copy rows and paste them into a worksheet beginning on row but, however, this request is to paste them in the same row number that they were copied from (e.g. if copied from row 5 on the original sheet, paste to row 5 on the result sheet)

Thanks!!!

 

[JackDanIce]

Try:

Sub MyMacro ()

Dim i a Long
Application.ScreenUpdating = False
For i = 1 to Range("A" & Rows.Count).End(xlUp).Row
  If Range("A" & i) = 1 Then 
     Rows(i).Copy
     Sheets("result").Range("A" & i).Pastespecial Paste:=xlPastevalues
  End If
Next i

Application.ScreenUpdating = True
End Sub

 

[mschiavo]

Thank you sir!

 

[JackDanIce]

You're welcome, glad it helped