Moving multiple rows of different data to a single sheet

**280ZXT** · 11-02-2011, 09:04 AM

12345678910

**klis** · 11-02-2011, 09:07 AM

Could you please upload a sample

**280ZXT** · 11-02-2011, 09:13 AM

Thank you so much! As always anu direction is appreciated!

**arlu1201** · 11-02-2011, 11:11 AM

So if i am not mistaken, if a row has Modifications needed as "Y" in column N, it has to go to the "Modifications Needed" section in the Summary tab. And if it shows as "Open", it should go under "Leases Needed", right?

**280ZXT** · 11-02-2011, 12:22 PM

Yes, that's exactly what I am looking for. Below is the code I have come up with (Frankenstein style using everyone elses codes) which may help. I believe we are not declaring the ranges correctly but not sure where our mistake is. If there is an easier way please let me know.

Option Explicit
Sub MoveShapes()
Dim LR As Long, SLR As Long, TLR As Long, i As Long
Application.ScreenUpdating = False
With Sheets("data")
  LR = .Cells(Rows.Count, 1).End(xlUp).Row
  SLR = Sheets("Need Mod").Range("A" & Rows.Count).End(xlUp).Row
  TLR = Sheets("Need Leased").Range("A" & Rows.Count).End(xlUp).Row
  With .Range("A1:R" & LR)
    .AutoFilter Field:=1, Criteria1:="Y"
    .Offset(1).Resize(LR).EntireRow.Copy Sheets("Need Mod").Range("A" & SLR + 1)
    .AutoFilter
    .AutoFilter Field:=1, Criteria1:="OPEN"
    .Offset(1).Resize(LR).EntireRow.Copy Sheets("Need Leased").Range("A" & SLR + 1)
    .AutoFilter
  End With
End With
Application.ScreenUpdating = True
End Sub

**arlu1201** · 11-02-2011, 12:26 PM

Please put your code within code tags before the moderators get you. In the meantime, i will look through it and revert.

**arlu1201** · 11-03-2011, 07:37 AM

Your code suggests that there are separate sheets "Need Mod", "Need Leased", however your sample workbook just has 1 summary sheet with 2 sections.
So what is the final output you need? Do you need it in 2 separate sheets as per your code ? Or do you need 2 separate sections in the summary sheet?

**280ZXT** · 11-03-2011, 01:11 PM

I need the output to be all on one page with 2 different sections. The reason my code is written with 2 summary pages is because I dont know how to create it with just one summary page. If there is a way to take my code and then create another final summary page with both 'mod needed' and 'need leased' I would want that... but I'm not sure how to do that.

Thanks!