VBA to sort range of data for specific columns

RAM1972

Board Regular
Joined
Jun 29, 2014
Messages
217
vba to auto sort columns H,I,K in ascending order as below.

take note rows go up to 40000 rows so it can go to maximum it will really helps me:confused:

sheet named data sort

Thanks for any one can help

sample
POInvoicePageLineRefDescription of GoodsHS CodeTariff No
DescriptionNo of charctOriginDATAQty_1LitresSugarQtyQTYUnit@Amount
AAAA00049416P112855727ASADD090122000009012200GROUND COFFEE8ZADATA12.00EA12.00EA1.9323.16
DDD00049416P185554551SCDV220421900022042190WINES (2*6*750ML)8FRDATA12912.00EA12.00EA1.2515
CCC00049416P161835968SAUCE210390900021039090MIXED CONDIMENTS8USDATA120.00EA120.00EA0.8197.2
AAAA00049416P172199287GBNG210390900021039090MIXED CONDIMENTS8ZADATA12.00EA12.00EA0.819.72
DDD00049416P153087972PIQUANT200599000020059900PIQUANTE PEPPERS8BRDATA12.00EA12.00EA1.1413.68
CCC00049416P143728121CHIPS M200520000020052000PREPARED POTATOES8ZADATA240.00EA240.00EA0.3174.4
AAAA00049416P135211784BISC190590900019059090BISCUITS8GBDATA24.00EA24.00EA0.245.76
DDD00049417P1101896749GNHMM200710000020071000BABY FOOD PREPARATIONS8ZADATA48.00EA48.00EA0.3215.36
CCC00049417P181618491BABY FO200510000020051000HOMOGENISED VEGETABLES8ZADATA24.00EA24.00EA0.389.12
AAAA00049417P173972843CEREAL190410000019041000CEREAL PREPARATIONS8ZADATA260.00EA260.00EA1.01262.6
DDD00049417P163784543CHOC180631000018063100CHOCOLATES8MYDATA48.00EA48.00EA0.2913.92
CCC00049418P1203089190MHMHM340220900038091010SOFTENERS8ZADATA16.00EA16.00EA2.1834.88
AAAA00049418P1192188078DISHWASH340220900034022090CLEANING PREPARATIONS8CADATA18.00EA18.00EA0.9617.28
DDD00049418P1213233647 HTJTJTJ340220900034022090CLEANING PREPARATIONS8CLDATA40.00EA40.00EA3.96158.4
CCC00049418P1233661020DISINFECT
340220900034022090CLEANING PREPARATIONS8ZADATA12.00EA12.00EA1.2615.12
AAAA00100700P6470736226PEN BALLPOIN960810000096081000BALL POINT PENS8TRDATA4848.00EA48.00EA0.2210.56
DDD00100700P6456701657SEWING K960500000096050000SEWING KITS8CNDATA6060.00EA60.00EA0.8148.6
CCC00100700P7410726621TOILET BRUSH960390000096039000HOUSEHOLD BRUSHES8ITDATA2424.00EA24.00EA0.5112.24

<tbody>
</tbody>

Expected results in red
POInvoice Page Line RefDescription of GoodsHS CodeTariff No
DescriptionNo of charctOrigin
DATAQty_1Litres SugarQty QTYUnit @Amount
DDD00049417P163784543CHOC 180631000018063100CHOCOLATES8MYDATA48.00EA48.00EA0.2913.92
AAAA00049417P173972843CEREAL 190410000019041000CEREAL PREPARATIONS8ZADATA260.00EA260.00EA1.01262.6
AAAA00049416P135211784BISC190590900019059090BISCUITS 8GBDATA24.00EA24.00EA0.245.76
CCC00049417P181618491BABY FO200510000020051000HOMOGENISED VEGETABLES8ZADATA24.00EA24.00EA0.389.12
CCC00049416P143728121CHIPS M200520000020052000PREPARED POTATOES8ZADATA240.00EA240.00EA0.3174.4
DDD00049416P153087972PIQUANT200599000020059900PIQUANTE PEPPERS8BRDATA12.00EA12.00EA1.1413.68
DDD00049417P1101896749GNHMM200710000020071000BABY FOOD PREPARATIONS8ZADATA48.00EA48.00EA0.3215.36
CCC00049416P161835968SAUCE210390900021039090MIXED CONDIMENTS8USDATA120.00EA120.00EA0.8197.2
AAAA00049416P172199287GBNG
210390900021039090MIXED CONDIMENTS8ZADATA12.00EA12.00EA0.819.72
DDD00049416P185554551SCDV220421900022042190WINES (2*6*750ML)8FRDATA12912.00EA12.00EA1.2515
AAAA00049418P1192188078DISHWASH 340220900034022090CLEANING PREPARATIONS8CADATA18.00EA18.00EA0.9617.28
DDD00049418P1213233647 HTJTJTJ340220900034022090CLEANING PREPARATIONS 8CLDATA40.00EA40.00EA3.96158.4
CCC00049418P1233661020DISINFECT 340220900034022090CLEANING PREPARATIONS 8ZADATA12.00EA12.00EA1.2615.12
CCC00049418P1203089190MHMHM340220900038091010SOFTENERS 8ZADATA16.00EA16.00EA2.1834.88
CCC00100700P7410726621TOILET BRUSH 960390000096039000HOUSEHOLD BRUSHES8ITDATA2424.00EA24.00EA0.5112.24
DDD00100700P6456701657SEWING K960500000096050000SEWING KITS8CNDATA6060.00EA60.00EA0.8148.6
AAAA00100700P6470736226PEN BALLPOIN960810000096081000BALL POINT PENS8TRDATA4848.00EA48.00EA0.2210.56
AAAA00049416P112855727ASADD090122000009012200GROUND COFFEE8ZADATA12.00EA12.00EA1.9323.16

<colgroup><col span="5"><col><col><col><col><col><col><col><col span="8"></colgroup><tbody>
</tbody>
 
Last edited:

Excel Facts

Back into an answer in Excel
Use Data, What-If Analysis, Goal Seek to find the correct input cell value to reach a desired result

Forum statistics

Threads
1,215,491
Messages
6,125,098
Members
449,205
Latest member
ralemanygarcia

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top