Code Optimization

Hi,

I have the following code. It simple copy paste values and formatting from some cells to another and sort it ascending.

But as I increasing the number of columns a lot, its taking ages.

Is it possible to optimize it? Make it faster?

Please Login or Register  to view this content.

Download: https://drive.google.com/file/d/0B4n...ew?usp=sharing

I also would like to make a question regarding the code.

Its organizing ascending using ARRIVAL time as key. How can I change to use DEPARTURE time as key?

Example, in here:

Please Login or Register  to view this content.

L column is ARRIVAL, N column is DEPARTURE.

There are some simple things to do as well for the speed :
-Put on Application.ScreenUpdating = False at the begining and Application.ScreenUpdating = True at the end.
-and it won't be very usefull there but when there are calculations : Application.Calculation = xlCalculationManual at begining and Application.Calculation = xlCalculationAutomatic at the end.

It may be simple but you'll see the difference.

Originally Posted by pjwhitfield

All of those Range().Selects can be put into one block:

Are you sure its possible? Pay attention that I'm jumping one column always. L yes, M no, N and O yes, P no, Q and R yes.

Do you really need to copy and Paste? cant you just set the cell value?

Formatting is very important.

Im not sure if Im misreading your code but whats the purpose of the last block of 10 points? it appears to sort the sheet in 10 different ways, one after the other which (unless Im missing something) can be achieved by simply doing point 10?

I think all of this is because I'm jumping one column at a time. So I believe its not possible to select everything, lets say A till D and paste all at once like this: A in M, B and C in O and P, D in R.
The sheet is available to download, so you can see what the points are. Just separation of the columns.

Originally Posted by pjwhitfield

Change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

I don't really understand it then, because Key:=Range is for both. I will replace one and not select the other?

Please Login or Register  to view this content.

How this entire piece of code should look like? I will put N8:N500 twice?

Glad to see it helped, It did the same effect on me when I had tested that for the first time . Unfortunately i'm not very used to sorting... Good luck for next steps!