VBA code, cut and paste entire row into new sheet per specific condition in cell

[Tapyr]

Hi dears,

I am looking for code, which can do following:

If cell from column "S" in sheet "Input Data" is ITCP then entire row will be cut and paste into sheet ITCP and subsequently removed from "Input Data". All formatting has to be unchanged.

Pls refer to enclosed file contains data.

China PP V1.0.xlsm

[Kaper]

Try this one (it is registered and only a bit "tuned up" by introducing 1 variable - last not empty row LR

Please Login or Register  to view this content.

[LeoTaxi]

1 of the possibilities


Kind regards
Leo

[Tapyr]

thanks to both of you for excellent help. Both codes works perfectly.

Just 'small' upgrade from my side, since meantime I noticed that I have to update my request. I additionally enclosed new file as example.

Just, fyi I moved all columns right so condition "ITCP" is available in column "T".

What I need is:
- for each data in columnt "T" create new sheet with same name as is cell's contain (e.q. "0030-ICST", "0030-ITCP", "0526-ICST" ....) and move entire rows from "Input Data" to this newly created sheet and then remove those rows from "Input data".

[Kaper]

Indeed "small" :-P
Then just registration and tuning will not be enough.
Try this one (I reused part of code but new important parts were also added):

Please Login or Register  to view this content.

[LeoTaxi]

Please Login or Register  to view this content.

[Tapyr]

Kaper, Leo, once again, THANK YOU VERY MUCH. Both codes work perfectly.