asked on

TT Add New Entry

I had this question after viewing Status Change.

Hi Experts,
Need A help with piece of code ...please help me.
in attached WB - there is two sheets - which i dealt with in this question - Sheet Master & Sheet Import.....i need to add those rows from sheet Import to sheet master --- Where Column Y (Rework/Fresh) = "Fresh" in sheet Import.

See Attached

Thanks
--TT-WIP-A.xlsm

Mike in IT

The answer I gave on your other question will work for this as well. You will just have to modify it a little to check for the condition of

Range("Y" & n).value = "Fresh"

Open in new window

and have it copy all those over. That should get you what you want.

Though if all the "Fresh" rows are not on the Master sheet then they'll be added by what I gave you in the other answer anyway.

Naresh Patel

ASKER

Will you please provide me code including this question as well as for other question all together?i will close other question and continue with this thread..and it is possible to place code in module instead of sheet?

Thanks

ASKER CERTIFIED SOLUTION

Mike in IT

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

Naresh Patel

ASKER

Thanks

Naresh Patel

ASKER

Any Luck?

Mike in IT

Any luck with what? The last code that I added will do what you asked in both questions.

Naresh Patel

ASKER

See Attached there is error while executing ..

Thanks

Mike in IT

I see an image, but it doesn't tell what the error is? What is happening? What is the error message? Have any lines been updated or added at this point?

Naresh Patel

ASKER

only one line being added i.e. previous last data row 60 after running last data row is 61.

Mike in IT

Can you resend the file that you are testing this on. I have no problem with the code on the file that you originally sent. And there where only 62 lines total on the Import tab, maybe all rows were added that said Fresh?

Naresh Patel

ASKER

yeah i just organised data correctly and it is working only thing how do i over come with selection which being remain after code ended .

And thanks

Naresh Patel

ASKER

Perfect

Mike in IT

You can add this:

ActiveSheet.Range("A1").Select

Open in new window

At the end of the sub to have the selected cell go to cell "A1".