Border Macro

[coolhit]

Hi,

Can someone assist me. I have recorded a macro which will create the border for me when the file is opened, but it turned out too long. if someone can show me how to reduce the codeing. I have the attached file.

Range A5 to E20 thin Border all sides and thick border allround (16 rows)
Range A21 to E36 thin border all sides and thick border allround (16 rows)

end range is A356.

If someone can guide me much appricated.

[mudraker]

Tru this macro

Please Login or Register  to view this content.

[Leith Ross]

Hello coolhit,

Here is more compact version of Mudrakers's code. Place this in a standard VBA Module in your workbook's VBA project.

Please Login or Register  to view this content.

[coolhit]

Hello coolhit,

Here is more compact version of Mudrakers's code. Place this in a standard VBA Module in your workbook's VBA project.

Please Login or Register  to view this content.

Hi Above code worked but only bit of it.

i.e Set Rng = Range("A5:E36") i changed it to E356 as this was may last row.
Macro did put thick border around A5toE20 and then it did A21toE356 as one hold block insted of next16 row A21 to E36.

Thick border is round every 16 rows and start row is A5 and end row is E356.

I do like the short version. how do i make it do every 16 rows thick border.

Many thanks

[Leith Ross]

Hello coolhit,

The macro has been annotated to show what is happening and gain a better understanding of the code. I expanded the macro to automatically find the end of the data range using the second column of defined data range. The start of your range is from "A5:E5". The second column is then "B". If the range were "F5:J5" then the macro would use column "F". You only need to enter the first row the range in the code. It is marked in red.

Please Login or Register  to view this content.

[coolhit]

Hi

Thankyou

Last codeing worked a treat and gave me better understanding of the codeing.

Many Thanks once again.