macro to copy select rows to new worksheet

[rbolen]

I want a macro that will check values in the K column and copy the rows that contain "F" to a new worksheet and the rows that contain "G" to another new worksheet. This seems simple, but I am at a loss.

 

[Andrew Poulsom]

Sounds a bit like this:

http://216.92.17.166/board/viewtopic.php?topic=28189&forum=2

 

[Joe Was]

You will need to change the ranges and sheet names in the code below!

Note, you may also remove the code to copy a range from the "Vendor" sheet as well as it does not apply in your case. JSW

Sub Priority()
'Find all the rows ("A:G") that have a "X" in column "A" copy
'that row to the next blank row on a different sheet.

Application.ScreenUpdating = False
Worksheets("Want_Full").Select
For Each r In Worksheets("Want_Full").UsedRange.Rows
n = r.Row
If Worksheets("Want_Full").Cells(n, 1) = "X" Then
Worksheets("Want_Full").Range(Cells(n, 2), Cells(n, 7)).Copy Destination:=Worksheets("Want_Now").Range("B65536").End(xlUp).Offset(1, -1)
Else
End If
Next r

Worksheets("Want_Full").Columns("A").Replace What:="X", Replacement:="*", SearchOrder:=xlByColumns, MatchCase:=True

ActiveWindow.ScrollRow = 22
ActiveWindow.SmallScroll Down:=19
Range("Vendor").Select
Selection.Copy

Sheets("Want_Full").Select
ActiveWindow.ScrollRow = 1
Range("A1").Select

Sheets("Want_Now").Select
Range("B65536").End(xlUp).Offset(2, -1).Select
ActiveSheet.Paste
ActiveSheet.Range("A1").Select
Application.ScreenUpdating = True

End Sub