Macro to edit borders in top and bottom rows in a selection

[Darrell MacDonald]

Hello
I'm hoping to have code suggestions that will find the top row of a selection, make the borders medium, then find the bottom row of the same selection and do the same.

Many thanks for any suggestions.

 

[Peter_SSs]

Is this what you mean?

Sub MediumBorders()
  With Selection
    .Rows(1).BorderAround xlContinuous, xlMedium
    .Rows(.Rows.Count).BorderAround xlContinuous, xlMedium
  End With
End Sub

 

[Darrell MacDonald]

Thanks very much for responding so quickly, Peter

I'll try to describe it better. Here's what I'm hoping to do. Take a non-formatted selection, as per the first image I attached and format its borders as per the second image. The selection of cells will change every time. Thick outline overall, hairline inside where the numbers are, bold font and thin line at the bottom of the top row (where the titles are) and bold font with a thin border on its top for just the bottom row (where the sums are). So, there are actually 3 selections to format within the total selection set (top line, bottom line and middle section).

Many years ago, someone had given me code that did all of this in one macro but I've lost that, and some other similar ones.

 

[Fluff]

How about

Sub Darrell()
   With Selection
      .Borders.Weight = xlHairline
      .BorderAround xlContinuous, xlMedium
      With .Rows(1)
         .Font.Bold = True
         .Borders(xlBottom).Weight = xlThin
      End With
      With .Rows(.Rows.Count)
         .Font.Bold = True
         .Borders(xlTop).Weight = xlThin
      End With
   End With
End Sub

 

[Darrell MacDonald]

Oh, Fluff, you are gooood!! That works perfectly. Thanks a bunch to both you and Peter!!

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[Darrell MacDonald]

I'm now able to take that code and copy/modify it to suit other similar, repetitive tasks. I add the new macros to customized ribbon sections for such things. Very, very useful for the specific things I do over and over. Thanks again. You folks rock. I'm always amazed by the willingness of people on boards like this to help.