Check amount is in range if not copy to New Worksheet

Hi

Please help me for VBA Code

I have data in my active worksheet from Column A

Column A is having numbers,

Column B is description

Column D is Amount

need to check Column A and Column D be with the below Criteria
If amount column, (as per Sample its Column D) not matching with the below criteria, than those lines to be copy pasted in new worksheet, with Criteria comments

Column D is not fixed one, so that need to be selected through message box


Criteria

From To Amount Column (Currently its Column D)
100 200 Should be Positive
200 300 Should be Positive
300 400 Should be Negative
400 500 Should be Negative
405 Should Be Nil
408 Should Be Nil
500 600 Should be Positive
600 700 Should be Positive
800 900 Should be Negative
900 1000 Should be Negative

Sample file attached

Hi Richard Buttrey

Thanks
You are correct it should be as below

300 to 399 Should be Negative
400 to 499 Should be Negative

On 400 to 500, specifically 405 Should Be Nil and
408 Should Be Nil

500 to 599 Should be Positive



701 - 799 no action required.

Hi Karmapala

Thank you so much for your help. The Code is working as expected.
Can you please include the "Comments" column also on the Results

Hi Karmapala

Adding additional lines as below results are showing with comments

Please Login or Register  to view this content.

Thank you so much for your helo

Hi Karmapala

Adding additional lines as below, results are showing with comments

Please Login or Register  to view this content.

Thank you so much for your help

Oops... sorry I'm wrong to get what you mean.

Like this ?

Please Login or Register  to view this content.

So, the "amount" value is still the same - it just add the comment.

Yes Exactly. Amount value is still the Same It Just add the comment

Originally Posted by ayyappan80

Hi Karmapala

Adding additional lines as below, results are showing with comments

Please Login or Register  to view this content.

Thank you so much for your help

Nice.... now you can do it by yourself .