Find match in list if match skip no match delete row

[justvba]

Hi I have a large list of parts that has duplicates and that's OK but I need to look at the part numbers on sheet2 and see if it is in sheet1. if in sheet one leave it alone if not in sheet 1 delete row. is there a fast way of doing this I am using 2016 excel VBA. here is my current code



Do Until IsEmpty(ActiveCell)
SearchItem = UCase(Trim(ActiveCell.Text))
OriginalSheet.Select
Range("A14").Select
Do Until ActiveCell.Value = SearchItem Or IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

If ActiveCell.Value = SearchItem Then
If IsEmpty(ActiveCell.Offset(0, 4)) Then
Sheets("Current Price").Select
ActiveCell.Offset(1, 0).Select
Else
Sheets("Current Price").Select
ActiveCell.EntireRow.Delete
End If

Else
Sheets("Current Price").Select
ActiveCell.EntireRow.Delete
End If

Loop

 

[hiker95]

justvba,

A question:

If Sheet1 looks like this:

Excel 2007
	A	B
1
2
3
4
5
6
7
8
9
10
11
12
13
14	tire
15
16	hood	k
17	door
18	shoe5
19	shirt	34 green
20	toys
21	8
22
Sheet1

And sheet Current Price looks like this to start:

Excel 2007
	A
1
2	tire
3	hood
4	apples
5	grapes
6	orange
7	red
8	shorts
9	toys
10	toys
11	tire
12	shoe
13	computer
14	computer
15	soda
16
Current Price

And sheet Current Price looks like these results:

Excel 2007
	A
1	tire
2	door
3	shoe5
4	toys
5
Current Price

What is your logic for the Yellow cell A3 results = shoe5 ?

 

[justvba]

it matched sheet 1 but the 5 was a typo thats all

 

[hiker95]

justvba,

I have tried several different methods to solve your request, but, I have not been able to get the results that you are looking for.

Maybe someone else on MrExcel will be able to help you.