View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.misc
Jurassien Jurassien is offline
external usenet poster
 
Posts: 24
Default Excel Macro Looping Helps

Indeed, this is what I have been doing. Considering the number of teams
within the reports, proceeding this way seems to be very time consuming.

Thanks,

"ChristopherTri" wrote:

Juarssien,

You could write a macro to step through the data and transfer it, but using
the autofilter function may be quicker and easier.

Select any of the heading cells on your summary sheet. Then select Data...
Filter... Autofilter...
Click on the drop down arrow for the Team ID column and select the team you
are interested in.
Mark the range of data and copy/paste it into the next sheet.
Repeat the process until you have the data parsed.

Regards...

ChristopherTri

"Jurassien" wrote:

Hello,

I desperately need help on creating a macro script that will be moving data
from the summary sheet within a workbook to the next sheet based on team ID
(column E).

Something like if cell E3 = 000 then copy the entire row to sheet 000 else
look for another Team ID within the same column (E) and do the same process
(sheet 001) so on.


I currently do it manually and it seems to be very time consuming. I was
wondering if the script below can be changed to fit what I am trying to
accomplish. Any helps would be greatly appreciated.

Sub DoCopy()
Dim szRange As String
szRange = "E1:V200"

Worksheets("Summary Page").Range(szRange).Copy
Destination:=Worksheets("Team-000").Range(szRange)
Worksheets("Summary Page").Range(szRange).Copy
Destination:=Worksheets("Team-001").Range(szRange)
Worksheets("Summary Page").Range(szRange).Copy
Destination:=Worksheets("Team-002").Range(szRange)

End Sub



Thanks,