Copy certain lines from active sheet and paste it to book 1 and 2

[zone709]

HI,

Trying to do something like this


If "Yards" is in column A then copy and paste all the rows to a new book

If "Grass" is in Column A then copy and paste all the rows to a new book.

The only thing is Grass or Yard wont start in Column A till row 2. Row 1 has my headers and I need to take always row 1 to any new book.

 

[Trebor76]

OK - we need to see the workbook to try and figure out what's happening.

Can you use a file sharing service like www.box.com and post a copy of your workbook (devoid of any sensitive information) there and provide a link to the file here and we'll have a look.

 

[zone709]

Hi Trebor thanks for the reply. I am not signed up for Box.com as of now and I still really want to know why its not working. I think its something new I will learn if it ever happens again. Listen I just made a test sheet right and some fast record and code. I know this is not clean at all, but it works look.

[FONT=Verdana,Arial,Tahoma,Calibri,Geneva,sans-serif]Sub Test200()
 Application.ScreenUpdating = False
 Columns("A:A").AutoFilter
    ActiveSheet.Range("$A$1:$A$1200").AutoFilter Field:=1, Criteria1:="Grass" ' need this to be unlimted
    Rows("1:500").Copy ' need this to be unlimted
    Workbooks.Add
    ActiveSheet.Paste
    Windows("Test.xlsx").Activate
    ActiveSheet.Range("$A$1:$A$1200").AutoFilter Field:=1, Criteria1:="Yards" ' need this to be unlimted
    Rows("1:500").Copy ' need this to be unlimted
    Workbooks.Add
    ActiveSheet.Paste
    Application.DisplayAlerts = False
    Windows("Test.xlsx").Close savechanges:=False
Application.DisplayAlerts = True
 Application.ScreenUpdating = True
End Sub[/FONT]