filtering raw data

[aphexcloud]

Hi all
I have tryed searching for what i want but am unable to find what im looking for(noob to excell so i may have found the post and gorne straight past it) so thank you all in advance

my question is i have a raw data file that gets exported to excell and i am wanting to write a macro that will find a label number that has been picked up and place it next to the delivery row(whis will have the same label number)
my problem is that not all deliverys have been scaned and do not have any infomation on it so i want it to leave a blank row where there is no info for delivery so that at the end of the report all numbers corraspond

regards
andreas

pslease forgive my horrible grammer and spelling

 

[hiker95]

aphexcloud,

Welcome to the MrExcel forum.

What version of Excel are you using?

You will generally get much more help (and faster) in this forum if you can post your small samples (what you have and what you expect to achieve) directly in the forum.

To attach screenshots, see below in my Signature block: Post a screen shot with one of these:

 

[aphexcloud]

thanks for the response i am using office 2010 to do all my work i have made the screen shots in office 2007 but the screen shots is just a example

here is what i would get as raw data but bout 9000 lines per report
and there may be 8500that match but at the end nothing collates


and i want to have a blank row where there is no corresponding label number
for delivery

 

[aphexcloud]

well a second edit so far i can not get the mrexcell html addin to work all it gives me is f 20......


so here goes excel genie
Sheet1


<TABLE style="BACKGROUND-COLOR: #ffffff; PADDING-LEFT: 2pt; PADDING-RIGHT: 2pt; FONT-FAMILY: Calibri,Arial; FONT-SIZE: 11pt" border=1 cellSpacing=0 cellPadding=0><COLGROUP><COL style="WIDTH: 30px; FONT-WEIGHT: bold"><COL style="WIDTH: 107px"><COL style="WIDTH: 64px"><COL style="WIDTH: 68px"><COL style="WIDTH: 141px"><COL style="WIDTH: 68px"><COL style="WIDTH: 87px"><COL style="WIDTH: 64px"></COLGROUP><TBODY><TR style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt; FONT-WEIGHT: bold"><TD> </TD><TD>A</TD><TD>B</TD><TD>C</TD><TD>D</TD><TD>E</TD><TD>F</TD><TD>G</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">1</TD><TD>label</TD><TD>del type</TD><TD>date </TD><TD>label</TD><TD>del type </TD><TD>date</TD><TD> </TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">2</TD><TD>ml00001234</TD><TD>pickup</TD><TD style="TEXT-ALIGN: right">1/07/2011</TD><TD>ml00001234</TD><TD>delivery</TD><TD style="TEXT-ALIGN: right">2/07/2011</TD><TD> </TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">3</TD><TD>ml00001235</TD><TD>pickup</TD><TD style="TEXT-ALIGN: right">2/07/2011</TD><TD>ml00001235</TD><TD>delivery</TD><TD style="TEXT-ALIGN: right">4/07/2011</TD><TD>raw</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">4</TD><TD>ml00001236</TD><TD>pickup</TD><TD style="TEXT-ALIGN: right">3/07/2011</TD><TD>ml00001237</TD><TD>delivery</TD><TD style="TEXT-ALIGN: right">5/07/2011</TD><TD> </TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">5</TD><TD>ml00001237</TD><TD>pickup</TD><TD style="TEXT-ALIGN: right">4/07/2011</TD><TD> </TD><TD> </TD><TD> </TD><TD> </TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">6</TD><TD> </TD><TD> </TD><TD> </TD><TD> </TD><TD> </TD><TD> </TD><TD> </TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">7</TD><TD> </TD><TD> </TD><TD> </TD><TD> </TD><TD> </TD><TD> </TD><TD> </TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">8</TD><TD>label</TD><TD>del type</TD><TD>date </TD><TD>label</TD><TD>del type </TD><TD>date</TD><TD> </TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">9</TD><TD>ml00001234</TD><TD>pickup</TD><TD style="TEXT-ALIGN: right">1/07/2011</TD><TD>ml00001234</TD><TD>delivery</TD><TD style="TEXT-ALIGN: right">2/07/2011</TD><TD> </TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">10</TD><TD>ml00001235</TD><TD>pickup</TD><TD style="TEXT-ALIGN: right">2/07/2011</TD><TD>ml00001235</TD><TD>delivery</TD><TD style="TEXT-ALIGN: right">4/07/2011</TD><TD>collated</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">11</TD><TD>ml00001236</TD><TD>pickup</TD><TD style="TEXT-ALIGN: right">3/07/2011</TD><TD> </TD><TD> </TD><TD> </TD><TD> </TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">12</TD><TD>ml00001237</TD><TD>pickup</TD><TD style="TEXT-ALIGN: right">4/07/2011</TD><TD>ml00001237</TD><TD>delivery</TD><TD style="TEXT-ALIGN: right">5/07/2011</TD><TD> </TD></TR></TBODY></TABLE>


Excel tables to the web >> http://www.excel-jeanie-html.de/index.php?f=1" target="_blank"> Excel Jeanie HTML 4

yay it works

 

[hiker95]

aphexcloud,


Sample raw data in worksheet Sheet1:

Excel Workbook
	A	B	C	D	E	F
1	label	del type	date	label	del type	date
2	ml00001234	pickup	1/7/2011	ml00001234	delivery	2/7/2011
3	ml00001235	pickup	2/7/2011	ml00001235	delivery	4/7/2011
4	ml00001236	pickup	3/7/2011	ml00001237	delivery	5/7/2011
5	ml00001237	pickup	4/7/2011
6
Sheet1

After the macro:

Excel Workbook
	A	B	C	D	E	F
1	label	del type	date	label	del type	date
2	ml00001234	pickup	1/7/2011	ml00001234	delivery	2/7/2011
3	ml00001235	pickup	2/7/2011	ml00001235	delivery	4/7/2011
4	ml00001236	pickup	3/7/2011
5	ml00001237	pickup	4/7/2011	ml00001237	delivery	5/7/2011
6
Sheet1

Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).


1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Open your workbook
3. Press the keys ALT + F11 to open the Visual Basic Editor
4. Press the keys ALT + I to activate the Insert menu
5. Press M to insert a Standard Module
6. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
7. Press the keys ALT + Q to exit the Editor, and return to Excel
8. To run the macro from Excel, open the workbook, and press ALT + F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

Option Explicit
Sub AlignLabel()
' hiker95, 07/21/2011
' http://www.mrexcel.com/forum/showthread.php?t=565822
' The macro was modified from code by:
' Krishnakumar, 12/12/2010
' http://www.ozgrid.com/forum/showthread.php?t=148881
Dim ws As Worksheet
Dim LR As Long, a As Long
Dim Label As Range
Application.ScreenUpdating = False
Set ws = Worksheets("Sheet1")
LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
ws.Range("A2:C" & LR).Sort Key1:=ws.Range("A2"), Order1:=xlAscending, Header:=xlNo, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
LR = ws.Range("D" & ws.Rows.Count).End(xlUp).Row
ws.Range("D2:D" & LR).Sort Key1:=ws.Range("D2"), Order1:=xlAscending, Header:=xlNo, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Set Label = ws.Range("A2:C" & LR)
a = 2
Do While Label.Cells(a, 1) <> ""
  If Label.Cells(a, 1).Offset(, 3) <> "" Then
    If Label.Cells(a, 1) < Label.Cells(a, 1).Offset(, 3) Then
      Label.Cells(a, 1).Offset(, 3).Resize(, 3).Insert -4121
    ElseIf Label.Cells(a, 1) > Label.Cells(a, 1).Offset(, 3) Then
      Label.Cells(a, 1).Resize(, 3).Insert -4121
      LR = LR + 1
      Set Label = ws.Range("A2:C" & LR)
    End If
  End If
  a = a + 1
Loop
Application.ScreenUpdating = 1
End Sub

Before you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension .xlsm


Then run the AlignLabel macro.

 

[aphexcloud]

thank you for the swift reply's this has fixed it just right


regards
aphexcloud

 

[aphexcloud]

well it worked perfectly on my test file but not on my actual file im not sure if it is something in the file already so i have uploaded to my skydive account


shared skydive file

regards
Aphexcloud

 

[hiker95]

aphexcloud,

The macro did not work on your actual data because the structure is not the same. You have gone from 3 columns by 3, to 6 columns by 6 columns.


Sample NEW raw data in worksheet Sheet1 before the macro:

Excel Workbook
	A	B	C	D	E	F	G	H	I	J	K	L
1	Label	Action	Scan Date	Scan Time	Run Description	Captured	Label	Action	Scan Date	Scan Time	Run Description	Captured
2	RBAML2519224	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML2519151	Delivery	1/06/11 8:18:02	08:18:02	Preston	1/06/11 9:35:37
3	RBATR0079759	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML2519152	Delivery	1/06/11 8:18:02	08:18:02	Preston	1/06/11 9:35:37
4	RBAML2519204	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBATR0079679	Delivery	1/06/11 8:18:02	08:18:02	Preston	1/06/11 9:35:37
5	RBAML2519205	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML2519146	Delivery	1/06/11 9:06:42	09:06:42	Dandenong North	1/06/11 8:07:08
6	RBAML2519196	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML2519150	Delivery	1/06/11 9:15:31	09:15:31	Preston	1/06/11 10:33:23
7	RBAML2519194	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML1909546	Delivery	1/06/11 9:21:19	09:21:19	Laverton	1/06/11 8:21:45
8	RBAML2519195	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML1909553	Delivery	1/06/11 9:21:19	09:21:19	Laverton	1/06/11 8:21:45
9	RBATR0079756	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML2519173	Delivery	1/06/11 9:32:28	09:32:28	Ferntree Gully	1/06/11 8:32:48
10	RBAML2519203	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML2519111	Delivery	1/06/11 9:38:06	09:38:06	Dandenong North	1/06/11 8:38:21
11	RBATR0079763	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML2519127	Delivery	1/06/11 9:45:11	09:45:11	Laverton	1/06/11 8:45:53
12	RBAML2519225	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML2519126	Delivery	1/06/11 9:45:11	09:45:11	Laverton	1/06/11 8:45:53
13	RBATR0079762	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBATR0079639	Delivery	1/06/11 9:45:11	09:45:11	Laverton	1/06/11 8:45:53
14	RBAML2519219	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBATR0079638	Delivery	1/06/11 9:45:11	09:45:11	Laverton	1/06/11 8:45:53
15	RBAML2519220	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML1909563	Delivery	1/06/11 9:45:11	09:45:11	Laverton	1/06/11 8:45:53
16	RBATR0079774	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML1909551	Delivery	1/06/11 9:45:11	09:45:11	Laverton	1/06/11 8:45:53
17	RBATR0079775	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML2519168	Delivery	1/06/11 9:46:51	09:46:51	Bayswater	1/06/11 8:47:23
18	RBAVL2519218	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML2519155	Delivery	1/06/11 9:46:51	09:46:51	Bayswater	1/06/11 8:47:23
19	RBAVL2519217	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBATR0079723	Delivery	1/06/11 9:46:51	09:46:51	Bayswater	1/06/11 8:47:23
20	RBAML2519215	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBATR0079722	Delivery	1/06/11 9:46:51	09:46:51	Bayswater	1/06/11 8:47:23
21	RBAML2519216	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML1909556	Delivery	1/06/11 9:46:51	09:46:51	Bayswater	1/06/11 8:47:23
22	RBATR0079758	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML2519175	Delivery	1/06/11 9:46:51	09:46:51	Bayswater	1/06/11 8:47:23
23	RBAML2519206	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML2519176	Delivery	1/06/11 9:46:51	09:46:51	Bayswater	1/06/11 8:47:23
24	RBAML2519207	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML1601978	Delivery	1/06/11 9:50:09	09:50:09	Notting Hill	1/06/11 8:50:24
25	RBATR0079753	Pickup	1/06/11 12:24:11	12:24:11	Dandenong North	1/06/11 11:25:51	RBAML1601979	Delivery	1/06/11 9:50:09	09:50:09	Notting Hill	1/06/11 8:50:24
Sheet1

After the updated macro:

Excel Workbook
	A	B	C	D	E	F	G	H	I	J	K	L
1	Label	Action	Scan Date	Scan Time	Run Description	Captured	Label	Action	Scan Date	Scan Time	Run Description	Captured
2	RBAML1104484	Pickup	8/06/11 17:31:00	17:31:00	Dandenong North	8/06/11 16:32:43	RBAML1104484	Delivery	9/06/11 11:57:40	11:57:40	Mentone	9/06/11 10:58:06
3	RBAML1104485	Pickup	8/06/11 17:31:00	17:31:00	Dandenong North	8/06/11 16:32:43	RBAML1104485	Delivery	9/06/11 12:05:51	12:05:51	Northcote	9/06/11 11:06:10
4	RBAML1104486	Pickup	8/06/11 17:31:00	17:31:00	Dandenong North	8/06/11 16:32:43	RBAML1104486	Delivery	9/06/11 15:52:38	15:52:38	Dandenong North	9/06/11 14:53:09
5	RBAML1104487	Pickup	14/06/11 12:38:27	12:38:27	Berwick	14/06/11 11:39:49	RBAML1104487	Delivery	15/06/11 7:43:41	07:43:41	Coburg North	15/06/11 7:43:54
6	RBAML1104488	Pickup	15/06/11 12:51:55	12:51:55	Berwick	15/06/11 11:53:32	RBAML1104488	Delivery	16/06/11 11:12:41	11:12:41	Bentleigh	16/06/11 10:13:09
7	RBAML1104489	Pickup	16/06/11 12:25:50	12:25:50	Dandenong North	16/06/11 11:27:08	RBAML1104489	Delivery	16/06/11 15:26:52	15:26:52	Glen Waverley	16/06/11 14:27:18
8	RBAML1104490	Pickup	16/06/11 12:25:50	12:25:50	Dandenong North	16/06/11 11:27:08	RBAML1104490	Delivery	20/06/11 12:30:09	12:30:09	Frankston	20/06/11 11:30:36
9	RBAML1104491	Pickup	16/06/11 12:25:50	12:25:50	Dandenong North	16/06/11 11:27:08	RBAML1104491	Delivery	17/06/11 10:57:53	10:57:53	Berwick	17/06/11 9:58:09
10	RBAML1104493	Pickup	16/06/11 12:25:50	12:25:50	Dandenong North	16/06/11 11:27:08	RBAML1104493	Delivery	20/06/11 11:21:50	11:21:50	Berwick	20/06/11 10:22:10
11	RBAML1104495	Pickup	17/06/11 12:29:58	12:29:58	Dandenong North	17/06/11 11:31:21	RBAML1104495	Delivery	17/06/11 15:52:30	15:52:30	Thomastown	17/06/11 14:52:59
12	RBAML1104496	Pickup	23/06/11 12:24:59	12:24:59	Berwick	23/06/11 11:26:04	RBAML1104496	Delivery	23/06/11 16:26:54	16:26:54	Notting Hill	23/06/11 15:27:21
13	RBAML1104497	Pickup	23/06/11 12:24:59	12:24:59	Berwick	23/06/11 11:26:04	RBAML1104497	Delivery	23/06/11 16:26:54	16:26:54	Notting Hill	23/06/11 15:27:21
14	RBAML1104498	Pickup	23/06/11 12:24:59	12:24:59	Berwick	23/06/11 11:26:04	RBAML1104498	Delivery	23/06/11 16:26:54	16:26:54	Notting Hill	23/06/11 15:27:21
15	RBAML1516723	Pickup	2/06/11 17:46:00	17:46:00	Dandenong North	2/06/11 16:47:37	RBAML1516723	Delivery	3/06/11 15:42:50	15:42:50	Heidelberg	3/06/11 14:43:24
16	RBAML1516724	Pickup	6/06/11 12:40:29	12:40:29	Dandenong North	6/06/11 11:42:04
17	RBAML1516725	Pickup	6/06/11 12:40:29	12:40:29	Dandenong North	6/06/11 11:42:03
18	RBAML1516726	Pickup	6/06/11 12:40:29	12:40:29	Dandenong North	6/06/11 11:42:03
19	RBAML1516727	Pickup	6/06/11 12:40:29	12:40:29	Dandenong North	6/06/11 11:42:03
20							RBAML1516728	Delivery	14/06/11 11:21:35	11:21:35	Bayswater North	14/06/11 10:22:12
21							RBAML1516729	Delivery	14/06/11 11:21:35	11:21:35	Bayswater North	14/06/11 10:22:12
22							RBAML1516730	Delivery	14/06/11 11:21:35	11:21:35	Bayswater North	14/06/11 10:22:12
23	RBAML1516731	Pickup	17/06/11 17:12:14	17:12:14	Dandenong North	17/06/11 16:13:57	RBAML1516731	Delivery	20/06/11 11:04:13	11:04:13	Star Depot	20/06/11 10:05:35
24	RBAML1516732	Pickup	17/06/11 17:12:14	17:12:14	Dandenong North	17/06/11 16:13:57	RBAML1516732	Delivery	20/06/11 11:04:13	11:04:13	Star Depot	20/06/11 10:05:35
25							RBAML1601914	Delivery	7/06/11 10:49:07	10:49:07	Notting Hill	7/06/11 9:49:44
Sheet1

Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).


1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Open your workbook
3. Press the keys ALT + F11 to open the Visual Basic Editor
4. Press the keys ALT + I to activate the Insert menu
5. Press M to insert a Standard Module
6. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
7. Press the keys ALT + Q to exit the Editor, and return to Excel
8. To run the macro from Excel, open the workbook, and press ALT + F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

Option Explicit
Sub AlignLabelV2()
' hiker95, 07/21/2011
' http://www.mrexcel.com/forum/showthread.php?t=565822
' The macro was modified from code by:
' Krishnakumar, 12/12/2010
' http://www.ozgrid.com/forum/showthread.php?t=148881
Dim ws As Worksheet
Dim LR As Long, a As Long
Dim Label As Range
Application.ScreenUpdating = False
Set ws = Worksheets("Sheet1")
LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
ws.Range("A2:F" & LR).Sort Key1:=ws.Range("A2"), Order1:=xlAscending, Header:=xlNo, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
LR = ws.Range("G" & ws.Rows.Count).End(xlUp).Row
ws.Range("G2:L" & LR).Sort Key1:=ws.Range("G2"), Order1:=xlAscending, Header:=xlNo, _
  OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Set Label = ws.Range("A2:F" & LR)
a = 2
Do While Label.Cells(a, 1) <> ""
  If Label.Cells(a, 1).Offset(, 6) <> "" Then
    If Label.Cells(a, 1) < Label.Cells(a, 1).Offset(, 6) Then
      Label.Cells(a, 1).Offset(, 6).Resize(, 6).Insert -4121
    ElseIf Label.Cells(a, 1) > Label.Cells(a, 1).Offset(, 6) Then
      Label.Cells(a, 1).Resize(, 6).Insert -4121
      LR = LR + 1
      Set Label = ws.Range("A2:F" & LR)
    End If
  End If
  a = a + 1
Loop
Application.ScreenUpdating = 1
End Sub

Before you use the macro with Excel 2007 or newer, save your workbook, Save As, a macro enabled workbook with the file extension .xlsm


Then run the AlignLabelV2 macro.

 

[aphexcloud]

ah i see thank you very much mate

i feel like such a noob at my keyboard at the moment lol

regards
aphex