Macro Code

[muddan madhu]

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......

 

[Gary''s Student]

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

 

[Don Guillett]

Why not just use data>filter>autofilter>filter on go>copy>paste>unfilter
Record a macro desired

 

[muddan madhu]

its giving
Run time error 9 :
subscript out of range

 

[Gary''s Student]

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.