Copy rows according to criteria to a similar table other sheet

[Eleutheros]

Hello, everyone

I have a database Technical Incidents reported by third party as shown in my attached file

I need to do an autofilter that filters the "In Progress" and "Closed" data and let Show only "In Progress" Incidents (Excel VBA)

the "Closed" data must be systematically copied from the "Incidents" sheet to the "Archive" sheet which contains a similar table as the incident is "Closed"

thank you for your help
I tried this code is it bug

Private Sub Worksheet_Change(ByVal target As Range)
If target <> "" And target.Column = 10 Then Call copie(target): Exit Sub
Set isct = Intersect(target, Range("E:E"))
If Not isct Is Nothing Then Call madate(isct)


End Sub
Sub copie(valeur)
Application.EnableEvents = False
If valeur <> "" And valeur.Column = 10 Then
With valeur.Parent.ListObjects("BASE_INCIDENTS")
Set zone = .ListRows(valeur.Row - .HeaderRowRange.Row).Range
End With
With Sheets("Archive").ListObjects("Tableau2")
Set l = .ListRows.Add
zone.Copy l.Range
End With
zone.Delete
End If
Application.EnableEvents = True
End Sub

Sub madate(isct)


Application.EnableEvents = False
For Each d In isct.Cells
If IsEmpty(d) Then
d.Offset(0, -3) = ""
Else
d.Offset(0, -3) = Format(Now, "mm/dd/yy")
End If
Next
For Each h In isct.Cells
If IsEmpty(h) Then
h.Offset(0, -2) = ""
Else
h.Offset(0, -2) = Format(Now, "hh:mm:ss")
End If
Next
Application.EnableEvents = True
End Sub

 

[Fluff]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Copy rows according to criteria to a similar table other sheet
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[Eleutheros]

Hello, I am sorry for this inconvenience, I wanted to have a solution to my problem and I made the mistake of copying my request in several forums to have a better solution, I really sorry again

I have a database Technical Incidents reported by third party as shown in my attached file

I need to make an automatic filter that filters the data "In Progress" and "Closed" and let Show only Incidents "In Progress" (VBA Excel)

the "Closed" data must be systematically copied from the "Incidents" sheet to the "Archive" sheet which contains a similar table as the incident is "Closed"

thank you for your help

 

[Fluff]

If you have posted this question on any other sites (apart from msofficeforums) please post links to those sites as requested. Thanks