Compare two lists and change row colour
Solved/Closed
dagoun
-
Feb 9, 2010 at 11:48 AM
venkat1926
venkat1926
- Posts
- 1864
- Registration date
- Sunday June 14, 2009
- Status
- Contributor
- Last seen
- August 7, 2021
Related:
- Compare two lists and change row colour
- Excel - Compare two lists and change row color - How-To - Excel
- If statement using date to change row colour ✓ - Forum - Excel
- Excel 2003 - Change Row Colour with VBA ✓ - Forum - Excel
- Excel change row colour if cell contains text ✓ - Forum - Excel
- Hiding rows when validation list is changed ✓ - Forum - Excel
1 reply
venkat1926
Feb 9, 2010 at 07:51 PM
- Posts
- 1864
- Registration date
- Sunday June 14, 2009
- Status
- Contributor
- Last seen
- August 7, 2021
Feb 9, 2010 at 07:51 PM
I am assuming that the barcode columns both sheet 1 and sheet 2 are the same
then try this code
at the beginning when you run the code, the code will ask an input about the column letter of the barcode. you can type the column letter e.g. G and click ok (on the top right)
the macro is
then try this code
at the beginning when you run the code, the code will ask an input about the column letter of the barcode. you can type the column letter e.g. G and click ok (on the top right)
the macro is
Sub test() Dim col As String, r As Range, c As Range, cfind As Range Dim x, y As Integer col = InputBox("type the column LETTER in which the barcode is netered for e.g. G") On Error Resume Next With Worksheets("sheet2") Set r = Range(.Cells(2, col), .Cells(2, col).End(xlDown)) For Each c In r x = c.Value With Worksheets("sheet1").Columns(col & ":" & col) Set cfind = .Cells.Find(what:=x, lookat:=xlWhole) If cfind Is Nothing Then GoTo nnext y = cfind.Interior.ColorIndex cfind.EntireRow.Copy With Worksheets("sheet3") .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial .Cells(Rows.Count, col).End(xlUp).Interior.ColorIndex = y End With End With nnext: Next c End With End Sub