Problems With Range Border Formatting

[Ark68]

I am using this code to format the borders of a range of cell. I'm notgetting any errors, but I'm not entirely getting the desired results ...

            Set pda_rng = Worksheets(sht).Range("A12:Q33")
            With pda_rng(xlEdgeLeft).Borders
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlThin
            End With
            With pda_rng(xlEdgeTop).Borders
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlThin
            End With
            With pda_rng(xlEdgeBottom).Borders
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlThin
            End With
            With pda_rng(xlEdgeRight).Borders
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlThin
            End With
            With pda_rng(xlInsideVertical).Borders
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlThin
            End With
            With pda_rng(xlInsideHorizontal).Borders
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlHairline
            End With

This is the result

WS 29-Jun-21.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q
10	Record ID	Dispatch	Rental	Location	Activity			Groom	Prepare	Signature	Lights On	Lights Off	1	2	3	4	Close
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
CRP

Look specifically at range G12:L12. The top border should be solid xlThin but the top border of L12 is hairline; and the bottom border (of the G12:L12 range), or the interior horizontal borders of pda_range (xlInsideHorizontal) should be xlHairline - but exhibits xlThinG12:K12.

Thoughts?

EDIT: I guess xl2bb doesn't reflect border formats. Here's an image to refer to.

 

[Radoslaw Poprawski]

did you try formating 11throw bottom line only?
not sure why but sometimes the border must be set from both sides 12th row top and11th row bottom.

 

[Ark68]

Hi Radoslaw Poprawski for your help. I reformatted the bottom border of row 11 to xlthin, and that took car of the xlhairline format on the top border of G12. But I still can't resolve the xlThin format of the bottom border of cells G12:K12. I have coded all interior horizontal cells from A12:Q33 to be xlhairline. Why isn't the bottom row of these few cells, also interior horizontal borders of the range, not taking the xlhairline weight?

 

[Fluff]

It should be range.borders(etc) not the otherway round.

 

[Ark68]

Beautiful. Thanks Fluff!

 

[Fluff]

You can also slim that line like

            Set pda_rng = Worksheets(sht).Range("A12:Q33")
            pda_rng.BorderAround xlContinuous, xlThin, xlColorIndexAutomatic
            With pda_rng.Borders(xlInsideVertical)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlThin
            End With
            With pda_rng.Borders(xlInsideHorizontal)
                .LineStyle = xlContinuous
                .ColorIndex = xlAutomatic
                .Weight = xlHairline
            End With

 

[Ark68]

Nice!

 

[Fluff]

You're welcome & thanks for the feedback.