Making a macro with random placement.
I get a report each week. where the data will not be in order and you can not filter by name
Example Jellybeans Early10Days Early6-10Days Early1-5Days Early/Late0Days Late1-5Days Late6-10Days Late10Days EarlyTotal Data Data Data Data Data Data Data Data Dat Data Data Data Data Data Data Data Data Dat Data Data Data Data Data Data Data Data Dat Data Data Data Data Data Data Data Data Dat Soap Early10Days Early6-10Days Early1-5Days Early/Late0Days Late1-5Days Late6-10Days Late10Days EarlyTotal Data Data Data Data Data Data Data Data Dat Data Data Data Data Data Data Data Data Dat Data Data Data Data Data Data Data Data Dat Data Data Data Data Data Data Data Data Dat So, Sometimes Jelly beans and the 5 rows of data are A16-I20. Next time the report is run Jellybeans is A34-I38. Is thier a way to macro what I need without selectin a certain row. Where Jellybean is the taget and it will copy 9 colums to the right and 4 rows below it Thanks, DJ |
Making a macro with random placement.
Range("A:A").Find("Jellybeans").Offset(1,0).Resize (4,9).copy _
Destination:=Worksheets("Sheet2").Range("A1") -- Regards, Tom Ogilvy "Duncan J" wrote in message ... I get a report each week. where the data will not be in order and you can not filter by name. Example. Jellybeans Early10Days Early6-10Days Early1-5Days Early/Late0Days Late1-5Days Late6-10Days Late10Days EarlyTotals Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Soap Early10Days Early6-10Days Early1-5Days Early/Late0Days Late1-5Days Late6-10Days Late10Days EarlyTotals Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data Data So, Sometimes Jelly beans and the 5 rows of data are A16-I20. Next time the report is run Jellybeans is A34-I38. Is thier a way to macro what I need without selectin a certain row. Where Jellybean is the taget and it will copy 9 colums to the right and 4 rows below it? Thanks, DJ |
Making a macro with random placement.
Thanks Tom
You put me on the right track... This what worked Range("A:A").Find("Jellybeans").Offset(0, 0).Resize(5, 14).Copy Destination:=Worksheets("Sheet2").Range("A1") |
Making a macro with random placement.
Specification said:
it will copy 9 colums to the right and 4 rows below it Didn't say to copy the row with Jellybeans. Unfortunately mindreading is not a strength. <g so you don't need Offset(0,0). That does nothing. -- Regards, Tom Ogilvy "duncan_J" wrote in message ... Thanks Tom, You put me on the right track... This what worked. Range("A:A").Find("Jellybeans").Offset(0, 0).Resize(5, 14).Copy _ Destination:=Worksheets("Sheet2").Range("A1") |
All times are GMT +1. The time now is 12:05 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com