Macro to look up values in 2 different columns

A

anshu minocha

Hi,

I need a macro which compares the values in colA and colC of sheet 1
to column D and column E of sheet 2, if both the value match, then it
copies the contents from sheet2 col F,G and H into sheet1 colC,D and
F.

Please advise.
Thanks
 
H

hirandesilva

Sub CompareThis()

For iRow = 1 to 1000

If Sheets("Sheet1").cells(iRow, 1).Value = Sheets("Sheet2").cells
(iRow, 4).Value And _
Sheets("Sheet1").cells(iRow, 3).Value = Sheets("Sheet2").cells(iRow,
5).Value Then

Sheets("Sheet1").cells(iRow, 3).Value = Sheets("Sheet2").cells(iRow,
6).Value
Sheets("Sheet1").cells(iRow, 4).Value = Sheets("Sheet2").cells(iRow,
7).Value
Sheets("Sheet1").cells(iRow, 5).Value = Sheets("Sheet2").cells(iRow,
8).Value

End IF

Next iRow

End Sub
 
A

anshu minocha

hello Hiran,

The code above gives an error saying: Subscript out of
Range.Can you please advise.

Thanks
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Macro to match 2 column values in different sheets 1
Macro to delete row if cells greater than certain value 1
Data in different sheets 1
Find match from 1st 3 columns and return the row number 6
modified pivot table using a macro 2
Lookup formula needed 1
Unique values in a macro 1
Macro for comparing columns and highlighting matching/differences 13

Top