Auto moving a row when a text value is in a certain cell

Hello,

I am currently creating a spreadsheet for following up on leads.

I have a main data file that feeds into a spreadsheet. I need to be able to move 3 different text values to different tabs.

Column B will have; Won, Lost, Cancelled and based on these I need to move those 3 separate rows to 3 separate tabs, currently I can only move one without messing the code.

Capture.PNG

Thank you.

I got this from a webiste;

Sub MoveBasedOnValue()

'Created by Excel 10 Tutorial

Dim xRg As Range

Dim xCell As Range

Dim A As Long

Dim B As Long

Dim C As Long

A = Worksheets("LNGF All").UsedRange.Rows.Count

B = Worksheets("Won Job").UsedRange.Rows.Count

If B = 1 Then

If Application.WorksheetFunction.CountA(Worksheets("Won Job").UsedRange) = 0 Then B = 0

End If

Set xRg = Worksheets("LNGF All").Range("B1:B" & A)

On Error Resume Next

Application.ScreenUpdating = False

For C = 1 To xRg.Count

If CStr(xRg(C).Value) = "Won" Then

xRg(C).EntireRow.Copy Destination:=Worksheets("Won Job").Range("A" & B + 1)

xRg(C).EntireRow.Delete

If CStr(xRg(C).Value) = "Won" Then

C = C - 1

End If

B = B + 1

End If

and this too,

Private Sub Worksheet_Change(ByVal Target As Range)

'Subscribe to youtube.com/excel10tutorial

Dim Z As Long

Dim xVal As String

On Error Resume Next

If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub

Application.EnableEvents = False

For Z = 1 To Target.Count

If Target(Z).Value > 0 Then

Call MoveBasedOnValue

End If

Next

Application.EnableEvents = True

End Sub

Please post the excel file.

I cant as it contains sensitive information. :/

OK. Then I guess there is nothing I can do.