I have 4 columns with data in them. I first check to see if two cells match.
If so, I want to fill in the value of a cell in a third column with the
corresponding value from a 4th Column. Nothing happens...

For i = 5 To numberofRows
If Cells(i, 111).Value = Cells(12, j).Value Then
Cells(k, j).Value = Cells(i, 112).Value
k = k + 1
End If
Next

Help would be appreciated. BTW, thanks to those who have assisted in
previous requests.

Jim Berglund

Cells(i,111).Value never equals Cells(12,j)

j never gets initialized and you are using On Error Resume Next, so you
never see the error

k is never initialized and you are using On Error Resume Next, so you never
see the error.

Just some possibilities.

--
Regards,
Tom Ogilvy

"Jim Berglund" wrote in message
...
I have 4 columns with data in them. I first check to see if two cells
match.
If so, I want to fill in the value of a cell in a third column with the
corresponding value from a 4th Column. Nothing happens...

For i = 5 To numberofRows
If Cells(i, 111).Value = Cells(12, j).Value Then
Cells(k, j).Value = Cells(i, 112).Value
k = k + 1
End If
Next

Help would be appreciated. BTW, thanks to those who have assisted in
previous requests.

Jim Berglund