Auto filter? AutoRemove or AutoDelete.. Please Help

[p9326]

Help expert guys, I need your help please....

I have a sample excel sheet with list of In and out data. I don't know if I will an use auto filter or auto delete or base on your suggestion.

Assuming that I press the Command Button, all I want to see are the remaining In items that not been out on my data sheet so I can easily identify / count the remaining Items.

please Help

 

[Snakehips]

@p9326 It looks to me as if you are needing to filter and or delete based on the item description that is part of your Item string ?

If so, if each item description is unique can you maybe use helper columns, similar to example below, to assist?
You can maybe then filter / delete based on TRUE / FALSE either manually or by code.

Book1.xlsx
	A	B	C	D	E	F
1	In/Out By User	Location/Area	Items		Item	Delete
2	IN-USER 1	Room - 3	TV-Set - 1 22/09/18 14:51:08		TV-Set - 1	TRUE
3	OUT-USER 2	Room - 4	TV-Set - 1 22/09/19 06:51:08		TV-Set - 1	TRUE
4	IN-USER 1	Dining - 1	TV-Set - 2 22/09/18 14:51:10		TV-Set - 2	TRUE
5	IN-USER 1	Living Room - 2	TV-Set - 3 22/09/18 14:51:11		TV-Set - 3	FALSE
6	OUT-USER 3	Dining - 2	TV-Set - 2 22/09/18 14:51:12		TV-Set - 2	TRUE
7	IN-USER 4	Master Room - 1	Dining-Set - 2 22/09/18 14:51:13		Dining-Set - 2	FALSE
8
9
10
Sheet2

Cell Formulas
Range	Formula
E2:E10	E2	=IFERROR(TRIM(LEFT(C2,LEN(C2)-17)),"")
F2:F10	F2	=IF(E2="","",ISEVEN(COUNTIF(E:E,E2)))

 

[p9326]

@Snakehips Thank you for your suggestion, I have thousand of data, my excel sheet will hang instantly when I modify it with formula. I would like my out same with the picture below.

I tried the code below, but only the Out items are removed and see the picture below

Sub RemoveDuplicaterow()

Dim Rng As Range
Dim x As Long
Set Rng = Range("C2", Range("C" & Rows.Count).End(xlUp))
x = Rng.Rows.Count

For x = x To 1 Step -1
With Rng.Cells(x, 1)
If WorksheetFunction.CountIf(Rng, .Value) >= 2 Then
.EntireRow.Delete
End If
End With
Next x

End Sub

 

[p9326]

Sorry for inconvenience, I found a solution on mine

Sub TotallyRemoveDuplicates()
Dim Addr As String
Addr = "C2:C" & Cells(Rows.Count, "C").End(xlUp).Row
Application.ScreenUpdating = False
Range(Addr) = Evaluate("IF(COUNTIF(C:C," & Addr & ")>1,""#N/A""," & Addr & ")")
On Error Resume Next
Columns("C").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
On Error GoTo 0
Application.ScreenUpdating = True
End Sub

Thanks Guys