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 -