Cut and Paste to new sheet based on Cell Value.

[Jacko2stars]

Hi,

I have a userform which populates a worksheet "Incident". This includes 11 columns that include a Date, First Name, Surname, Grade, Teacher, Incident, Location, Teacher Notified, Parent Notified, Time stamp.

I need a macro that copies the row in "Incident" and then creates a new sheet based on the value of the Grade column, then pastes that row into the new sheet as well as the row headings.

If the sheet already exists then the data can be just pasted into that correct sheet. once the data is pasted the data entry from "Incident" can be deleted.

Thanks in advance!

[JasperD]

Hi Jack,

try this - it should do what you're looking for.

Please Login or Register  to view this content.

Please click the * below if this helps

[Jacko2stars]

Thanks Jasper.

When i exit the userform the macro runs, if no data is entered it copies the headers into a new sheet named grade and removes them from "incident" sheet.

Is there a way of changing the macro so that it doesn't do this?

[JasperD]

You need to insert a bit of code that checks if there's actually an entry in the userform and if not, do not run the macro.
Can you upload a sample workbook?

Thanks