Select and format to end of row

[ashleykelley]

I need help with a macro that will select data to the end of the row. Each sheet has the same basic formatting. A1 contains a name. B1, C1, D1 are column headers. B2:B is data. C2:C is data and always stops at the same row B2:B range does. The only differences between the sheets is that they might not stop at the same row. I want a macro that merges A1 vertically as shown in my spread sheet to the end of column B and C. I want a border around the merged data, as well as around the B data and the C data individually.

I need a macro that selects B2 through the end of the items on B and selects it, then formats it accordingly. Then I need a macro or the same macro that selects C2 through the last row of the C column.

Here's the same spreadsheet with a macro that merges A1. Now I just need it to go from b2 through the end of B and then from c2 through the end of c. I've played with it so much over the past few weeks as well as with help and suggestions from people that got me this far and I'm giving up on it now. Please help.. Thanks in advance

[Paul]

Hopefully you have to use this code more than once!

Please Login or Register  to view this content.

[Paul]

In the code provided above, I have used the same border-setting block of code four times (Range A1:Ax, Range B1:D1, Range B2:Bx, Range D2). In an effort to shorten the code, is there a way to store this block of code separately and call it on those three occasions with one line of code each? Or some other way? It works as is, but it just seems longer than it has to be.

The code section in question is:

Please Login or Register  to view this content.

Thanks!

[mudraker]

Try this

Please Login or Register  to view this content.

[Paul]

Thanks, Mud. I think we'd just have to leave out a few lines from the ApplyFormatting subroutine since they only apply to the merged cells in column A

Just the Border properties needed to be coded in there, since the font sizes and column widths change from range to range. I also added ScreenUpdating = False & ScreenUpdating = True to make it cleaner.

Thanks for your help!

I guess this would be the final code then:

Please Login or Register  to view this content.

[mudraker]

Paul

I new that about the font sizing & I have no idea why I left that part of the code in the ApplyFormatting macro

The amendments you posted back should certainly give you what you want.

Gald to have been able to assist you