best way to get a thick line between rows when data changes.

[steve400243]

Hello, I need the best way to get a thick line between rows when the data in column N changes. The Data is copied over from another sheet and There could be several hundred rows used, for this example I included 3 different changes in Column N . Please see the example below for the desired results. Thank you.

CFS Master Sheet.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N
1	HBL	CONSIGNEE	ORIGINAL ETA	OBLRCD	MANIFEST SORT	PLT	CTN	KG	CBM	CNTR	VSL	MODE	DESTINATION	MBL
2	HKS000074694	DATA DISPLAY SYSTEMS LLC	9/21/2021		1	15	300	6554	22.947	OOCU8194433			FUSJFK	COSU6311228860
3	HKS000074760	ALTRAN CORPORATION	9/21/2021		2	2	63	323	2.464	OOCU8194433		FMM	FUSORD	COSU6311228860
4	HKS000074773	ADVANCED INPUT SYSTEMS	9/21/2021		3		30	207	0.864	OOCU8194433			FUSSEA	COSU6311228860
5	HKS000074800	AMERICAN RING CO INC	9/21/2021		4		64	330.06	2.89	OOCU8194433			FUSBOS	COSU6311228860
6	HKS000074830	TRENTON TECHNOLOGY INC	9/21/2021		5		251	2229	13.771	OOCU8194433		FMM	FUSJFK	COSU6311228860
7	HKS000074842	APPLIED TECHNICAL C/O CAPIN-VYBORNY	9/21/2021		6	6	6	56	0.186	OOCU8194433			FUSSEA	COSU6311228860
8	HKS000074849	TRENTON TECHNOLOGY INC	9/21/2021		7		32	336	1.755	OOCU8194433		FMM	FUSJFK	COSU6311228860
9	HKS000074852	MECHATRONICS INC	9/21/2021		8		100	737.8	2.096	OOCU8194433			FUSSEA	COSU6311228860
10	HKS000074866	ADVANCED INPUT SYSTEMS	9/21/2021		9	2	50	418	3.422	OOCU8194433			FUSSEA	COSU6311228860
11	HKS000074810	DISNEY MERCHANDISE SOURCING & DISTRIBUTI	9/21/2021		10		201	1156.7	7.256	OOCU8194433		FMM	FUSLAX	COSU6311228860
12	HKS000074829	LUMASMART TECHNOLOGY	9/21/2021		11	2	39	624	1.078	OOCU8194433		FMM	FUSDTW	COSU6311228860
13	HKS000074836	ADVANCED INPUT DEVICES INC	9/21/2021		12		54	432	2.226	OOCU8194433			FUSSEA	COSU6311228860
14	HKS000074837	MEMTRON TECHNOLOGIES CO	9/21/2021		13		23	178.7	1.078	OOCU8194433		FMM	FUSSEA	COSU6311228860
15	HKS000074860	PANASONIC INDUSTRIAL DEVICES SALES CO	9/21/2021		14		94	754	3.096	OOCU8194433			FUSLAX	COSU6311228860
16	HKS000074757	SUNBEAM PRODUCTS INC	9/23/2021		15		5	43.7	0.111	OOLU9891085		FMM	FUSLAX	COSU6311849980
17	HKS000074827	MFJ ENTERPRISES INC	9/23/2021		16		50	820	0.869	OOLU9891085		FMM	FUSMEM	COSU6311849980
18	HKS000074867	VANGUARD PROTEX GLOBAL INC	9/23/2021		17	62	122	1353	7.545	OOLU9891085		FMM	FUSMIA	COSU6311849980
19	HKS000074901	PANGEA AUDIO DISTRIBUTING	9/23/2021		18		50	674.5	1.841	OOLU9891085		FMM	FUSDTW	COSU6311849980
20	HKS000074916	ASSEMBLY FASTENERS INC	9/23/2021		19		115	1056.5	0.82	OOLU9891085		FMM	FUSCLT	COSU6311849980
21	HKS000074917	AMERICAN RING CO INC	9/23/2021		20		451	4056.86	21.072	OOLU9891085			FUSBOS	COSU6311849980
22	HKS000074929	VISIONTECH SOLUTIONS GROUP	9/23/2021		21	1	59	87	0.377	OOLU9891085		FMM	FUSORF	COSU6311849980
23	HKS000074948	PLEXUS CORP-NEENAH OPERATIONS	9/23/2021		22	4	100	1385	4.763	OOLU9891085		FMM	FUSORD	COSU6311849980
24	HKS000074950	ECOBEE C/O INGRAM MICRO LOGISTICS	9/23/2021		23	1	22	233	0.676	OOLU9891085			FUSORD	COSU6311849980
25	HKS000074973	L K MACHINERY INC	9/23/2021		24		9	2457	2.505	OOLU9891085		FMM	FUSDTW	COSU6311849980
26	HKS000074996	GARRETT ELECTRONICS INC	9/23/2021		25	3	92	1167	3.038	OOLU9891085			FUSDFW	COSU6311849980
27	HKS000074972	LUMASMART TECHNOLOGY	9/23/2021		26	2	36	575	1.068	OOLU9891085		FMM	FUSDTW	COSU6311849980
28	HKS000074990	GARRETT ELECTRONICS INC	9/23/2021		27		69	792	4.049	OOLU9891085			FUSDFW	COSU6311849980
29	TPS000076249	AMERICAN LIGHTING INC	9/25/2021		28	4	48	670.7	7.74	HMMU5405680			FUSDEN	HDMUTPEM33615600
30	TPS000076420	ALTIMATE MEDICAL INC	9/25/2021		29		22	445.6	0.46	HMMU5405680		FMM	FUSMSP	HDMUTPEM33615600
31	TPS000076652	WELLS VEHICLE ELECTORNICS	9/25/2021		30	1	18	231.3	0.81	HMMU5405680		FMM	FUSORD	HDMUTPEM33615600
32	TPS000076667	DWYER INSTRUMENTS INC	9/25/2021		31	5	184	4450	6.32	HMMU5405680		FMM	FUSORD	HDMUTPEM33615600
33	TPS000076755	WELLS VEHICLE ELECTRONICS LP	9/25/2021		32	4	119	1135.71	6.9	HMMU5405680		FMM	FUSORD	HDMUTPEM33615600
34	TPS000076760	TRENTON TECHNOLOGY INC	9/25/2021		33		135	1214.58	8.75	HMMU5405680		FMM	FUSJFK	HDMUTPEM33615600
35	TPS000076785	PURE SAFETY GROUP INC	9/25/2021		34	1	20	365	1.31	HMMU5405680		FMM	FUSSEA	HDMUTPEM33615600
36	TPS000076797	DWYER INSTRUMENTS INC	9/25/2021		35		6	111.6	0.2	HMMU5405680		FMM	FUSORD	HDMUTPEM33615600
37	TPS000076801	ADVANCED INPUT DEVICES INC	9/25/2021		36	3	35	258	4.42	HMMU5405680			FUSSEA	HDMUTPEM33615600
38	TPS000076802	ADVANCED INPUT DEVICES INC	9/25/2021		37		4	55.92	0.2	HMMU5405680			FUSSEA	HDMUTPEM33615600
39	TPS000076819	DWYER INSTRUMENTS INC	9/25/2021		38		22	272.8	0.46	HMMU5405680		FMM	FUSORD	HDMUTPEM33615600
40	TPS000076909	PURE AND SECURE LLC	9/25/2021		39		98	1446.9	3.14	HMMU5405680			FUSMSP	HDMUTPEM33615600
41	TPS000076598	REMOTE TECHNOLOGIES INC	9/25/2021		40	6	207	1896.9	13.28	HMMU5405680		FMM	FUSMSP	HDMUTPEM33615600
Sheet1

 

[JoeMo]

Here's a macro you can try:

Sub AddThickLine()
Dim R As Range, V As Variant, i As Long
Set R = Range("N2:N" & Cells(Rows.Count, "N").End(xlUp).Row)
V = R.Value
Application.ScreenUpdating = False
For i = 1 To UBound(V, 1) - 1
    If V(i, 1) <> V(i + 1, 1) Then
        With Cells(i + 1, "A").Resize(1, 14).Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlMedium
        End With
    End If
Next i
Application.ScreenUpdating = True
End Sub

 

[steve400243]

Here's a macro you can try:

Sub AddThickLine()
Dim R As Range, V As Variant, i As Long
Set R = Range("N2:N" & Cells(Rows.Count, "N").End(xlUp).Row)
V = R.Value
Application.ScreenUpdating = False
For i = 1 To UBound(V, 1) - 1
    If V(i, 1) <> V(i + 1, 1) Then
        With Cells(i + 1, "A").Resize(1, 14).Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlMedium
        End With
    End If
Next i
Application.ScreenUpdating = True
End Sub

Thank you. I will test tomorrow when back at my office. Appreciate it!

 

[steve400243]

Thank you. I will test tomorrow when back at my office. Appreciate it!

Here's a macro you can try:

Sub AddThickLine()
Dim R As Range, V As Variant, i As Long
Set R = Range("N2:N" & Cells(Rows.Count, "N").End(xlUp).Row)
V = R.Value
Application.ScreenUpdating = False
For i = 1 To UBound(V, 1) - 1
    If V(i, 1) <> V(i + 1, 1) Then
        With Cells(i + 1, "A").Resize(1, 14).Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlMedium
        End With
    End If
Next i
Application.ScreenUpdating = True
End Sub

Excellent, Thank you JoeMo. This works as needed. Appreciate your time.

 

[JoeMo]

Excellent, Thank you JoeMo. This works as needed. Appreciate your time.

You are welcome - thanks for the reply.