Fill Across Border Settings

[FrenchCelt]

Hello,

I'm trying to code a border setting that will carry across the entire range of data. I'll give the starting point from Column A:

Thick Outside Border around A2
Thick Outside Border around A3:A9
All Borders (Thin Lines) within A10:A13
Thick Outside Border around A10:A15

And then these settings should fill across to the end of the data in whatever column that may be (varies every day).

Any help would be greatly appreciated.

 

[MARK858]

Is the last column always the same for each of the parameters that you have listed?

 

[FrenchCelt]

No, the number of total columns involved varies by report.

 

[MARK858]

I am not asking if the last column varies on each report, I am asking if the last column is the same for each parameter when the report is run i.e.
If the last column is column G for "Thick Outside Border around A2" when the report is run is it also column G for the other 3 parameters or are they different for each parameter?

 

[FrenchCelt]

Oh, yes, the data is identical in every row for every column.

 

[MARK858]

Maybe...

Sub FrenchCelt()
    Dim i As Long

    i = Rows("2:15").Find("*", , xlValues, xlPart, xlByColumns, xlPrevious, False).Column

    Rows("2:15").Borders.LineStyle = xlNone
    Range(Cells(2, "A"), Cells(2, i)).BorderAround , Weight:=xlThick
    Range(Cells(3, "A"), Cells(9, i)).BorderAround , Weight:=xlThick
    Range(Cells(10, "A"), Cells(13, i)).Borders.Weight = xlThin
    Range(Cells(10, "A"), Cells(15, i)).BorderAround , Weight:=xlThick

End Sub

 

[FrenchCelt]

It ended up filling the borders around the entirety of the rows, not in each cell range per column. I want to distinguish the data in these sections in each column. The slow way to do this, for example, would be to click on A2 and click on Thick Outside Borders, then do the same for B2, C2, D2, E2, etc. Then select A3:A9, click on Thick Outside Borders, then repeat for B3:B9, C3:C9, etc.

 

[MARK858]

Sub FrenchCelt2()
    Dim i As Long

    i = Rows("2:15").Find("*", , xlValues, xlPart, xlByColumns, xlPrevious, False).Column

    Rows("2:15").Borders.LineStyle = xlNone
    Range(Cells(2, "A"), Cells(2, i)).Borders.Weight = xlThick
    Range(Cells(3, "A"), Cells(9, i)).Borders.Weight = xlThick
    Range(Cells(10, "A"), Cells(13, i)).Borders.Weight = xlThin
    Range(Cells(10, "A"), Cells(15, i)).Borders.Weight = xlThick

End Sub

Although that doesn't make any sense with your last 2 criteria, are you sure that the last criteria isn't Thick Outside Border around A14:A15

I think that I will require a screenshot of what you are trying to achieve as I suspect that you only want the borders around cells with data in them.

 

[FrenchCelt]

This time it added thick borders around every cell in every row and column.

 

[MARK858]

See my edit in bold in my last post