Defining Arrays by Cell Borders

[jordan2322]

Hi guys,

just need some help with defining arrays using cell borders.

I need to write a macro that starts in cell A3.
If cell has a TOP border then set variable rowTop = ActiveCell.Row
go down to next row
if cell has bottom border set rowBottom = ActiveCell.Row
else go down to next row & LOOP previous steps

Array = the range between these rows and column H

Cheers

[JBeaucaire]

One way:

Please Login or Register  to view this content.

[jordan2322]

Thanks Jerry,

Works well! i've got to use these values found as the boundaries of my array

& there is also multiple cells in column A that i want to find the Top and Bottom row for and also define them as the boundaries of other arrays.
The name for each array is the value found in the top left cell of the array

cheers

[JBeaucaire]

Give me an example of you declaring an array if the top cell were A2 and the bottom cell were A10, then A15 and A17.

[snb]

If you post a sample workbook perhaps this can be done much simpler.

[jordan2322]

Heres a copy of the data as received from an external program.

This is how the Macro needs to operate:
* Macro creates arrays of all data sets
* Create New Worksheet
* Look at Manifest data located on an external worksheet in the same folder
* Paste the arrays on new worksheet in order found on the manifest worksheet
(Note: the data received from external program is specific to each 'fld coordinator' who is the manager of the Crew Members below them.)
* Delete the original Worksheet
* Rename the new worksheet with the value found in cell B2 on that worksheet

I've attached 3 files, 2 are reports (TB_31_10_2011 & RR_31_10_2011) the Manifest workbook should be referred to by the macro run from the reports to 'paste' the arrays into the order found on the manifest file

cheers

[jordan2322]

Please Login or Register  to view this content.

How to I save each one of these ranges as an array as they are found? with the name of each array = to the value found in the first cell

regards

[jordan2322]

***Bump***

Any help would be appreciated

Thnx