moving and coloring rows by date

The file I have attached is a test file for what I'm trying to do. In the file I'm going to be using most of the dates in the Dates column are doing to be future dates. What I want is for the the row of the table to be highlight in red when the date is <= today (today or in the past) for each row and then move those rows to the top of the sheet just under my header row. So there's three rows in my sheet that have tomorrows date in them then tomorrow morning when I get to work and open the file I'd like all three of those rows to be highlight in red and stacked one on top of the other at the top of my sheet under the header row. I'd like this to run every time the workbook is opened in excel. I've attached the file, what kind of adjustments do I need to make in the Macro? Thanks for your help.

Okay, so the Attachment button is just giving me a thing white bar, there's now file browser for selecting my file. I'm stuck here with this forum.

.
If you don't mind having the Red Highlighted rows moved to Sheet 2 instead ... paste this macro into a Routine Module:
(Sorry, it's late here, need sleep. This was already in my 'toolbox' .)

Please Login or Register  to view this content.

Paste this macro into the ThisWorkbook module :

Please Login or Register  to view this content.

image.jpg

I would like the VBA to find all the dates in column G that are today's date or older and for each row that meets that criteria I would like to highlight the row from cells A:J and then move those rows to rows position three stacking on top of each other and pushing everything under it down. I would upload the file but I don't see an upload option so I've uploaded in image instead. Thanks for your help, it's close but what's its doing in my file is only highlighting the single cell and then immediately deleting the entire row.

.
Paste into a Routine Module:

Please Login or Register  to view this content.

Originally Posted by Logit

.
Paste into a Routine Module:

Please Login or Register  to view this content.

I pasted that code into the code for sheet1 as well as into the Module1 code section but after opening the file nothing happened, the out of date rows remained exactly where they were and noting was colored in. I also tried to run the macros manually but got the same thing?

.
Download the example workbook in Post #4.

Highlight in YELLOW the following lines :

Highlight.jpg


Then, inside the macro code itself, comment out the following lines :

Code.jpg

Then run the project. You should see that the macro is selecting the dates <= TODAY and pasting those rows at the top of the sheet.


Is the positioning where the rows are being pasted accurate for your needs ?
(Disregard the command button says Paste Sht 2. Obviously it pastes to Sheet 1. The caption needs to be edited.

Originally Posted by Logit

.
Download the example workbook in Post #4.

Highlight in YELLOW the following lines :

Attachment 532497


Then, inside the macro code itself, comment out the following lines :

Attachment 532498

Then run the project. You should see that the macro is selecting the dates <= TODAY and pasting those rows at the top of the sheet.


Is the positioning where the rows are being pasted accurate for your needs ?
(Disregard the command button says Paste Sht 2. Obviously it pastes to Sheet 1. The caption needs to be edited.

Thanks. I see that it's working pretty well on your file. I'll try and tweak it to my needs if I can. I eventually need it to run on four different sheet with specific names, (Site1, Site2, Annex Diets, & 28 Diets), I need the same operation to take place for each of those sheets all moving outdate rows to the top of their own sheet. I wish it would let me upload the file but the upload button doesn't work. Thanks again for you help, I should be able to take it from here.

Great !

Best luck !