Help with Macro

[Noxqss38242]

Currently the macro, when button is selected, will arrange data in largest to smallest.
I want it to actually arrange smallest to largest.

Here are the macros that may be the culprit:

Sub srtdeviation()
'
' srtdeviation Macro
'

'
ActiveWorkbook.Worksheets("VMRSMAIL").ListObjects("Table1").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("VMRSMAIL").ListObjects("Table1").Sort.SortFields. _
Add2 Key:=Range("Table1[[#All],[SRT DEVIATION]]"), SortOn:=xlSortOnValues, _
Order:=xlAcending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("VMRSMAIL").ListObjects("Table1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub


AND.....

Sub SortSRTDev()
'
' SortSRTDev Macro
'

'
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=24, Criteria1:= _
">-50", Operator:=xlAnd
End Sub



What's the fix?

 

[Fluff]

You've got a typo Order:=xlAcending is missing an s

 

[Noxqss38242]

Hahaha....yeah, I hurried and changed it back... It said Ascending at first so I changed it to Descending but that didn't change anything. What am I missing?

 

[Fluff]

That should sort ascending, what sort of values do you have in that column?

 

[Noxqss38242]

Daily Tech Report.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X
11	RO #	TERM	DATE	UNIT	TRLR	REAS	SYST	ASSY	COMP	WORK	POS	FAIL	TECH	START DATE	START TIME	END DATE	END TIME	TECH HRS	TASK HRS	LABOR $	PARTS $	VMRS LINE	SRT	SRT DEVIATION
17	S0INSHOP	IN	4/6/2021	INSHOP		MAINT	INDRCT	CLEAN	CLEAN	ASSESS	99	DIRTY	PV1	4/06/21	5:33	4/06/21	5:43	0.2	16.7	918.5	0	CLEAN SHOP	0	16.7
18	S0INSHOP	IN	4/6/2021	INSHOP		MAINT	INDRCT	CLEAN	CLEAN	ASSESS	99	DIRTY	PV1	4/06/21	13:36	4/06/21	13:55	0.3	16.7	918.5	0	CLEAN SHOP	0	16.7
19	S0INSHOP	IN	4/6/2021	INSHOP		MAINT	INDRCT	CLEAN	CLEAN	ASSESS	99	DIRTY	PV1	4/06/21	14:17	4/07/21	5:19	15	16.7	918.5	0	CLEAN SHOP	0	16.7
20	S0INSHOP	IN	4/6/2021	INSHOP		MAINT	INDRCT	CLEAN	CLEAN	ASSESS	99	DIRTY	PV1	4/07/21	5:19	4/07/21	6:03	0.7	16.7	918.5	0	CLEAN SHOP	0	16.7
21	S0INSHOP	IN	4/6/2021	INSHOP		MAINT	INDRCT	CLEAN	CLEAN	ASSESS	99	DIRTY	JJ1	4/07/21	5:12	4/07/21	5:42	0.5	16.7	918.5	0	CLEAN SHOP	0	16.7
42	B1169615	WM	3/3/2021	16931		ACCID	CAB	HOOD	ASMBLY	RPLUSE	99	ACCID	JH1	3/03/21	12:58	3/03/21	15:58	3	11.2	616	1519.34	ACC: HOOD DAMAGE ON P/S REMOVE HOOD	5.6	5.60
43	B1169615	WM	3/3/2021	16931		ACCID	CAB	HOOD	ASMBLY	RPLUSE	99	ACCID	GS1	3/12/21	11:14	3/12/21	11:28	0.2	11.2	616	1519.34	ACC: HOOD DAMAGE ON P/S REMOVE HOOD	5.6	5.60
44	B1169615	WM	3/3/2021	16931		ACCID	CAB	HOOD	ASMBLY	RPLUSE	99	ACCID	EHS	3/12/21	11:14	3/12/21	11:28	0.2	11.2	616	1519.34	ACC: HOOD DAMAGE ON P/S REMOVE HOOD	5.6	5.60
45	B1169615	WM	3/3/2021	16931		ACCID	CAB	HOOD	ASMBLY	RPLUSE	99	ACCID	GS1	3/12/21	12:01	3/12/21	15:57	3.9	11.2	616	1519.34	ACC: HOOD DAMAGE ON P/S REMOVE HOOD	5.6	5.60
46	B1169615	WM	3/3/2021	16931		ACCID	CAB	HOOD	ASMBLY	RPLUSE	99	ACCID	EHS	3/12/21	12:01	3/12/21	15:57	3.9	11.2	616	1519.34	ACC: HOOD DAMAGE ON P/S REMOVE HOOD	5.6	5.60
47	B1178396	IN	3/5/2021	20431		MAINT	FUELSY	DEF	LINE	RPLNEW	99	BROKEN	JJ1	3/05/21	12:00	3/05/21	13:51	1.9	10.9	599.5	144.18	COOLANT LINES TO DEF TANK BROKEN	5.3	5.60
48	B1178396	IN	3/5/2021	20431		MAINT	FUELSY	DEF	LINE	RPLNEW	99	BROKEN	JJ1	3/05/21	14:10	3/05/21	15:06	0.9	10.9	599.5	144.18	COOLANT LINES TO DEF TANK BROKEN	5.3	5.60
49	B1178396	IN	3/5/2021	20431		MAINT	FUELSY	DEF	LINE	RPLNEW	99	BROKEN	JJ1	3/08/21	5:30	3/08/21	7:41	2.2	10.9	599.5	144.18	COOLANT LINES TO DEF TANK BROKEN	5.3	5.60
50	B1178396	IN	3/5/2021	20431		MAINT	FUELSY	DEF	LINE	RPLNEW	99	BROKEN	JJ1	3/08/21	8:00	3/08/21	10:00	2	10.9	599.5	144.18	COOLANT LINES TO DEF TANK BROKEN	5.3	5.60
51	B1178396	IN	3/5/2021	20431		MAINT	FUELSY	DEF	LINE	RPLNEW	99	BROKEN	JJ1	3/09/21	6:00	3/09/21	7:40	1.7	10.9	599.5	144.18	COOLANT LINES TO DEF TANK BROKEN	5.3	5.60
52	B1178396	IN	3/5/2021	20431		MAINT	FUELSY	DEF	LINE	RPLNEW	99	BROKEN	JJ1	3/09/21	8:00	3/09/21	10:09	2.2	10.9	599.5	144.18	COOLANT LINES TO DEF TANK BROKEN	5.3	5.60
64	S1174578	MU	3/25/2021	16988		ACCID	FUELSY	FUETNK	TANK	RPLNEW	22	CRUSHD	DCF	3/25/21	12:05	3/25/21	14:10	2.1	10.2	561	1595.56	FUEL TANK SMASHED	9.6	0.60
65	S1174578	MU	3/25/2021	16988		ACCID	FUELSY	FUETNK	TANK	RPLNEW	22	CRUSHD	DJM	3/25/21	12:12	3/25/21	14:09	2	10.2	561	1595.56	FUEL TANK SMASHED	9.6	0.60
66	S1174578	MU	3/25/2021	16988		ACCID	FUELSY	FUETNK	TANK	RPLNEW	22	CRUSHD	DCF	3/25/21	14:31	3/25/21	15:47	1.3	10.2	561	1595.56	FUEL TANK SMASHED	9.6	0.60
67	S1174578	MU	3/25/2021	16988		ACCID	FUELSY	FUETNK	TANK	RPLNEW	22	CRUSHD	DJM	3/25/21	14:31	3/25/21	17:04	2.6	10.2	561	1595.56	FUEL TANK SMASHED	9.6	0.60
68	S1174578	MU	3/25/2021	16988		ACCID	FUELSY	FUETNK	TANK	RPLNEW	22	CRUSHD	DJM	3/25/21	17:37	3/25/21	18:58	1.4	10.2	561	1595.56	FUEL TANK SMASHED	9.6	0.60
69	S1174578	MU	3/25/2021	16988		ACCID	FUELSY	FUETNK	TANK	RPLNEW	22	CRUSHD	DJM	3/25/21	20:37	3/25/21	21:25	0.8	10.2	561	1595.56	FUEL TANK SMASHED	9.6	0.60
75	B1170951	MU	3/4/2021		633853	MAINT	TLREAR	DOOR	BLANK	RPLNEW	22	BROKEN	WG1	3/12/21	10:04	3/12/21	14:11	4.1	9.8	539	451.47	LEFT DOOR RUSTED THRU ** WAITING PARTS ON PAD 5**	5	4.80
76	B1170951	MU	3/4/2021		633853	MAINT	TLREAR	DOOR	BLANK	RPLNEW	22	BROKEN	TRB	3/12/21	11:51	3/12/21	14:11	2.3	9.8	539	451.47	LEFT DOOR RUSTED THRU ** WAITING PARTS ON PAD 5**	5	4.80
VMRSMAIL

Cell Formulas
Range	Formula
X75:X76,X64:X69,X42:X52,X17:X21	X17	=[@[TASK HRS]]-[@SRT]

I click on the button for "Sort SRT Dev" and to me it just doesn't work right. You figure it would be ascending no matter what but as you can see, it goes from 16.7 to 5.6 to 0.6 to 4.8?
Something is surely off...and I want it to go from least amount of deviation to most...so it would be 0.6 at the top and 16.7 at the bottom.

 

[Fluff]

With that data your macro works for me, once the typo is corrected.
Is that the actual formula you have in that column? Also are there formulae in any other columns?

 

[Noxqss38242]

Hmm...you may be on to something. After manually sorting smallest to largest, it works. I can click filters off, click on almost everything and it still works. All other buttons that are assigned macros work. Except "SORT Task Time". When I click on that one, it throws everything else off and the sort feature no longer works. Even if I clear all filters, the sorting for SRT deviation won't work.

Here is the macro for "SORT Task Time":

Sub tasktime()
'
' tasktime Macro
'

'
ActiveWorkbook.Worksheets("VMRSMAIL").ListObjects("Table1").Sort.SortFields. _
Clear
ActiveWorkbook.Worksheets("VMRSMAIL").ListObjects("Table1").Sort.SortFields. _
Add2 Key:=Range("Table1[[#All],[TASK HRS]]"), SortOn:=xlSortOnValues, _
Order:=xlDescending, DataOption:=xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("VMRSMAIL").ListObjects("Table1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[Noxqss38242]

Okay, so I noticed that a little arrow is applied to SRT Deviation when "sorted". However, I'm guessing all other buttons were working because I manually sorted it and the data remained sorted in that way. When I click on Sort Task Time, the arrow from SRT Deviation is removed and placed on Sort Task Time....which it should do. However, the issue is when click back on SRT Deviation, it doesn't remove the sorting of the task time and doesn't apply it for SRT Deviation. Something is a foot!

 

[Fluff]

You code work for me, so not quite sure what is going on.