Array formula?

[AnalogKid]

I've searched on the board, but probably not using the right terms.

I have a list of part numbers from Column A - H and rows 1 - 452 that are on sheet 1 of the workbook.

I have been given a new list of part numbers that are columns A - C and rows 1-197 that I've copied into sheet 2 of the same workbook.

All I need to know is if any of the part numbers on Sheet 2 are already listed on Sheet 1.

Currently, I have a VLookup that references Column A of sheet 2, and compares to each individual Column of Sheet 1, so it takes 8 columns to complete the comparison. Then, I have 8 more columns to search for Column B and 8 more to search for Column C.

It is effective, inasmuch as it finds what I'm looking for.

It just seems like there ought to be a better way.

Any advice appreciated.

 

[hiker95]

AnalogKid,

I have a list of part numbers from Column A - H and rows 1 - 452 that are on sheet 1 of the workbook.

I have been given a new list of part numbers that are columns A - C and rows 1-197 that I've copied into sheet 2 of the same workbook.

Sample data before the macro (all data not shown for brevity):

Excel Workbook
	A	B	C	D	E	F	G	H
1	1	2	3	4	5	6	7	8
2	9	10	11	12	13	14	15	16
3	17	18	19	20	21	22	23	24
4	25	26	27	28	29	30	31	32
5	33	34	35	36	37	38	39	40
6	41	42	43	44	45	46	47	48
Sheet1

Excel Workbook
	A	B	C
1	1	A10	33
2	12	21	A44
3	Z34	43	66
4	56	65	88
5	78	87	110
Sheet2

After the macro (items on Sheet2 that are on Sheet1 are highlighted in Yellow):

Excel Workbook
	A	B	C
1	1	A10	33
2	12	21	A44
3	Z34	43	66
4	56	65	88
5	78	87	110
Sheet2

Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

Adding the Macro
1. Copy the below macro, by highlighting the macro code and pressing the keys CTRL + C
2. Open your workbook
3. Press the keys ALT + F11 to open the Visual Basic Editor
4. Press the keys ALT + I to activate the Insert menu
5. Press M to insert a Standard Module
6. Paste the code by pressing the keys CTRL + V
7. Press the keys ALT + Q to exit the Editor, and return to Excel
8. To run the macro from Excel, open the workbook, and press ALT + F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.

Option Explicit
Option Base 1
Sub MakeFoundYellow()
' hiker95, 01/20/2010
Dim a As Long, b As Long, c As Range, MyArray As Variant
Application.ScreenUpdating = False
MyArray = Sheets("Sheet1").Range("A1:H452")
With Sheets("Sheet2")
  For Each c In .Range("A1:C197")
     For a = LBound(MyArray, 1) To UBound(MyArray, 1)
      For b = LBound(MyArray, 2) To UBound(MyArray, 2)
        If MyArray(a, b) = c Then
          c.Interior.ColorIndex = 6
          GoTo MyNextc
        End If
      Next b
    Next a
MyNextc:
  Next c
End With
Application.ScreenUpdating = True
End Sub

Then run the "MakeFoundYellow" macro.