Sorting VBA doesn't work - Need advice

Hi there,

I have spent most of the afternoon looking for clue and reason why my code actually doesn't work.
It should be simple but i don't get it

Basically, what i just want to do is a Sort on R column, without headers, from Largest to Smallest amount.
My code below doesn't work ! Interestingly, i don't have any error message, it just does nothing !

Capturemacro.JPG

Here is my code :

Please Login or Register  to view this content.

The line which has no effect is underlined

This goal of this code is to copy paste all the lines which have a specific number (4), on a sheet called "Inma & sztoday" (sztoday is a string equal today's date).
Some formula are added/
Qlastrow is a variable equal the number of rows.

I tried to activate the worksheet as i thought it could change something but no...

I recorded a macro but i'm pretty sure it add too much useless lines...

Please Login or Register  to view this content.

Any help please ?
Let me know if you need further details

Many thanks,
kenken1987

.
Sometimes recording a macro can be an easy method to obtain your answer and it is very valuable to do so because it becomes a learning tool.

Suggestion: Take a blank workbook, add fake data to it like your real workbook. Use the recorded macro to sort Col R. Each time, remove one of the lines of code
from the recorded macro and see what happens. Eventually you will have culled down the macro to the absolute smallest number of code lines and you will see
what code works for the next time you need it.

Then you can plug the resulting macro into your existing workbook.

Hi guys,

sintek: if this can helping you to assist me, i will next time

I tried a little of everything you said guys, and i solved the issue.

apparently, you can't sort range if your sheet has not been activated, or you are going to sort the ones on the original sheets you are on...

This is the case here, an other sheet was activated, thanks to a line of code above which i didn't show (i am stupid...), and this is why it wasn't working but not crashing, it was actually sorting Cells on a other sheets !

Here is 2 solution i found out to solve this :

Add activate

Please Login or Register  to view this content.

or

change the lines of sort, add the entire path on the key1 parameters, as below

Please Login or Register  to view this content.

Many thanks for your helps guys, i learn something today
Kind regards,
kenken1987

.
Glad you got it sorted out.