VBA- Move Row to Another Sheet Based on Text- Multiple Sheets

[sbentley]

Hello,

Forgive me, this is my first time working with VBA. I have done my fair share of Googling but have not found a solution. I am trying to get my workbook to move an entire row of data from one sheet to another based on the text found in a column. I was able to figure this out- to an extent. Currently my workbook will move the row (and delete the empty row) to a sheet titled "Complete" if "Delivery Scheduled" is entered in column AJ.

Question: Is it possible to have the text in column AJ determine which sheet the row moves to with each selection moving to a different sheet?

Example: The first sheet would contain a list of files and have an outcome status entered in column AJ by the user.
The data entered here would determine what sheet the row would move to (with each selection routing to a separate sheet).

[TABLE="width: 500"]
<tbody>[TR]
[TD]Text entered into column AJ:[/TD]
[TD]Sheet Title row is moved to:[/TD]
[/TR]
[TR]
[TD]Delivery Scheduled[/TD]
[TD]Complete[/TD]
[/TR]
[TR]
[TD]Intake Prep[/TD]
[TD]Intake Prep[/TD]
[/TR]
[TR]
[TD]IV[/TD]
[TD]IV[/TD]
[/TR]
</tbody>[/TABLE]

Is this possible? Thank you in advance!

 

[JLGWhiz]

There are several ways to do it. You can do it all with code by using a Select Case algorithm or you can use a helper column where you list the destination sheet on the corresponding row to the value in column AJ and simply refer to that range value, eg. If col AK listed the destination sheet and cell AJ25 had 'Delivery Scheduled' value Then

Range("A25:AJ25").Copy Sheets(Range("AK25").Value).Cells(Rows.Count, 1).End(xlUp)(2)