Automatically move Row to another sheet

[RattlingCarp3048]

You all have been so helpful in learning VBA so I am back again!

I need a code that basically says if Column T >/= 10 on Sheet 1, move the entire row to next available row on Sheet 2.

Headers are in Row 1 and are exactly the same on both sheets.

Value in Column T is formula based (=IF(S2-R2<0,"",S2-R2)).

I tried to record myself but couldn't quite figure out how to manipulate it to move the entire row.

 

[Joe4]

Good morning Joe4, can I bother you again?

So I took the looping code you gave me last week from above and attempted to modify it for another project to transfer entire row to another sheet based on date. Not sure where I went wrong. I think im close but not sure Can you help out again? As-is the modified code is moving the entire worksheet to the Archive.

Attempting to: if column P on sheet 1 is older than 60 days, copy/paste entire row over to bottom of sheet 2, then delete the row from sheet 1.

This is how I modified it:

View attachment 55408

I think you may have your logic backwards. Remember, when dealing with negative numbers, the bigger the negative number is, the less it is (-70 is less than -60).
So I think you may actually want "<= -60", not ">= -60".

 

[RattlingCarp3048]

I think you may have your logic backwards. Remember, when dealing with negative numbers, the bigger the negative number is, the less it is (-70 is less than -60).
So I think you may actually want "<= -60", not ">= -60".

hhhmmm nothing happened at all. no error, debug, glitches, nothing.

 

[RattlingCarp3048]

I think you may have your logic backwards. Remember, when dealing with negative numbers, the bigger the negative number is, the less it is (-70 is less than -60).
So I think you may actually want "<= -60", not ">= -60".

Soo Ive tried tweaking it a few different ways with no progress. It is either doing nothing at all or moving the entire sheet 1 over to sheet 2. Any thoughts?

 

[Joe4]

Are your values in column really numbers, or are they numbers entered as text?
You can use the ISNUMBER function on one of the values to test it out, i.e.

=ISNUMBER(P4)

 

[RattlingCarp3048]

Are your values in column really numbers, or are they numbers entered as text?
You can use the ISNUMBER function on one of the values to test it out, i.e.

=ISNUMBER(P4)

so, it was originally a date/time combo brought in from another report. I removed the time and formatted the cells to be a date as mm.dd.yyyy.

=isnumber function showed true.

 

[Joe4]

so, it was originally a date/time combo brought in from another report. I removed the time and formatted the cells to be a date as mm.dd.yyyy.

=isnumber function showed true.

But the formula you wrote does NOT check to see how far in the past a date may be. It is not doing any mathematical calculation on column P, it is just looking at the value, i.e.

If ws1.Cells(r, "P").Value >= -60 Then

If you want to see if the date in column P is more than 60 days in the past, then you need to compare it to the current date, i.e.

If Date - ws1.Cells(r, "P").Value >= 60 Then

 

[RattlingCarp3048]

But the formula you wrote does NOT check to see how far in the past a date may be. It is not doing any mathematical calculation on column P, it is just looking at the value, i.e.

If ws1.Cells(r, "P").Value >= -60 Then

If you want to see if the date in column P is more than 60 days in the past, then you need to compare it to the current date, i.e.

If Date - ws1.Cells(r, "P").Value >= 60 Then

Thats what i was missing!! i knew i was super close LOL Thanks.