VBA Codes- move to another tab

[jdlerry]

Hello, I need help please. I am trying to move an entire row to another tab when I change a certain value. If someone can help with the VBA codes please? Here's the dropbox link of the file.https://www.dropbox.com/scl/fi/vzyvunc6dp048z2n9yja5/eMedical-Tracker-updated.xlsx?dl=0&rlkey=u0ptw5jp0xulffbwiqyv9qmrp
1. I will put all the data in the MASTERLIST tab and under ACTION TAKEN/ TO DO, whenever I select an action, the entire row will be deleted and will be moved to another tab.
2. Please refer to INSTRUCTIONS tab for the destination of the data.
3. For example, (refer to she screenshot), whenever I change the data under ACTION TAKE/ TO DO, the entire row 4 will be deleted in the tab and will move to another tab (refer to INSTRUCTIONS tab for the destination)

I badly need help please. Thank you

 

[My Aswer Is This]

I may be able to help if you provide specific details in words.
I never click on links on this forum.
But there are others here that do click on links and download files

 

[jdlerry]

I may be able to help if you provide specific details in words.
I never click on links on this forum.
But there are others here that do click on links and download files

Not sure how to provide the details in words but the dropbox file is the excel sheet of where I will put in the codes.
This was provided to me by an amazing and helpful member here, but is not doing anything when I put it in my excel file.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim strAction As String
Dim rngData As Range
Dim wsDest As Worksheet

Application.EnableEvents = False
On Error Resume Next

If Not Intersect(Range("N4"), Target) Is Nothing Then
Set rngData = ActiveSheet.Range("A4", "V4")
Select Case Target
Case "FOR CASERVICEDESK"

Case "TRIGGERED IN EDP"

Case "REFER TO CON OFF"
Set wsDest = Sheets("CON OFF")
rngData.Copy
wsDest.Range("A" & rowNext(wsDest)).PasteSpecial (xlPasteValues)
rngData.ClearContents
Case "TERM 1"
Set wsDest = Sheets("TERM 1")
rngData.Copy
wsDest.Range("A" & rowNext(wsDest)).PasteSpecial (xlPasteValues)
rngData.ClearContents
Case "EMAIL SENT TO CST"
Set wsDest = Sheets("EMAIL SENT TO CST")
rngData.Copy
wsDest.Range("A" & rowNext(wsDest)).PasteSpecial (xlPasteValues)
rngData.ClearContents
Case "FF-UP EMAIL SENT (CST)"
Set wsDest = Sheets("FF-UP EMAIL SENT (CST)")
rngData.Copy
wsDest.Range("A" & rowNext(wsDest)).PasteSpecial (xlPasteValues)
rngData.ClearContents
Case "VERIFY WITH SLEC"
Set wsDest = Sheets("VERIFY WITH SLEC")
rngData.Copy
wsDest.Range("A" & rowNext(wsDest)).PasteSpecial (xlPasteValues)
rngData.ClearContents
Case "RESOLVED"
Set wsDest = Sheets("RESOLVED")
rngData.Copy
wsDest.Range("A" & rowNext(wsDest)).PasteSpecial (xlPasteValues)
rngData.ClearContents
Case "OTHERS, SEE REMARKS"
Set wsDest = Sheets("OTHERS")
rngData.Copy
wsDest.Range("A" & rowNext(wsDest)).PasteSpecial (xlPasteValues)
rngData.ClearContents
End Select
End If

On Error GoTo 0
Application.EnableEvents = True

End Sub

Function rowNext(ws As Worksheet) As Long
rowNext = ws.Cells(Rows.Count, "A").End(xlUp).Row + 1
End Function

 

[Peter_SSs]

Duplicate to: How to move a row to the next sheet when I input a certain value in a cell within that row?

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.