Hi P,

For a more sophisticated alternative to Excel's Data
Form, see John Walkenbach's Enhanced DataForm,
which may be downloaded, free of charge, at:

http://j-walk.com/ss/dataform/index.htm

Fopr additional customisation, the code password is
available for a nominal sum.



---
Regards,
Norman



"P T Pi" wrote in message
...
I need VBA code that will move a row of data from Sheet1 to Sheet2 based on
a
match to criteria. The criteria cell currently has the following formula
in
it:
=IF(P11=1000,500,P11)
If this formula is true the procedure must remove the row from Sheet1 and
plac it in the next available row on Sheet2.
The procedure must loop until there is no more data matching the criteria
on
sheet1.
I really need this help ASAP.