You may need to replace:
rmv.Copy Workbooks("Book2").Sheets("Sheet1").Range("A1")
with:
rmv.Copy Workbooks("Book2.xls").Sheets("Sheet1").Range("A1" )

This code depends upon the names Book1, Book2, Sheet1, etc.

--
Gary''s Student - gsnu2007g


"muddan madhu" wrote:

its giving
Run time error 9 :
subscript out of range


On Apr 13, 9:21 pm, Gary''s Student
wrote:
From workbook Book1 to Book2:

Sub moveum()
n = Cells(Rows.Count, "D").End(xlUp).Row
Set rmv = Nothing
For i = 1 To n
If Cells(i, "D").Value = "go" Then
If rmv Is Nothing Then
Set rmv = Cells(i, "D").EntireRow
Else
Set rmv = Union(rmv, Cells(i, "D").EntireRow)
End If
End If
Next
rmv.Copy Workbooks("Book2").Sheets("Sheet1").Range("A1")
End Sub

--
Gary''s Student - gsnu2007h



"muddan madhu" wrote:
Suppose I have some data in Column A to Column D
Column A - names
Column B - score
Column C - result
Column D - stats

There are 100 names in a list
If the column d , row 2 has the word "go" then it should copy entire
row and paste in a new workbook.
If row 3 has the word "no" then it should not copy , move to next
row ..

What code should i write to execute the above condition...

Thanks in advance......- Hide quoted text -

- Show quoted text -