VBA Lookup one cell Value and Search in Another Column, if Matches Copy Beside Cell value

Dear Programmers,

I need small Modification in my code, i.e, Lookup one cell Value if Matches Copy Adjacent Cell Text to Another Cell

and required small modification and fixing minor bugs.

bug is some times at "S" Column produced as "0" instead of numeric values.kindly test my code. and some times are working, what happen to my code???


Thanking you,
Best regards

Dear all,

At T column May be like this?

Range("T" & Rw).FormulaArray = "=INDEX(OFFSET($B$3,MATCH(M" & Rw & ",BeamRange,0),,COUNTIF(BeamRange,M" & Rw & ")),MATCH($S" & Rw & ",OFFSET($C$3,MATCH(M" & Rw & ",BeamRange,0),MATCH(R" & Rw & ",$E$2:$G$2,0), COUNTIF(BeamRange, M" & Rw & ")), 0))"

i have inserted but showing errors. please guide me masters.

Thanking you,
Best regards.

I have posted similar thread at http://www.mrexcel.com/forum/excel-q...ther-cell.html

but still no solution.

Have a look.

Dear Masters,

Please solve my post.

Thanking you,
Best regards.

My Actual code is Like this:

Sub Maxvalues()
    Application.ScreenUpdating = False
    LR = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
    For i = 4 To LR
        If Range("A" & i) <> Range("A" & i - 1) Then
            BeamRow = Sheet1.Cells(Rows.Count, "M").End(xlUp).Row + 1
            Range("M" & BeamRow) = Range("A" & i)
        End If
    Next i
    lastrow = Sheet1.Cells(Rows.Count, "M").End(xlUp).Row
    On Error Resume Next
    Range("E4:E" & LR & ",G4:G" & LR).SpecialCells(xlCellTypeConstants, 2).ClearContents
    Sheet1.Range("N4:N" & lastrow).Formula = "=MAX(INDEX(($A$4:$A$" & LR & "=$M4)*($E$4:$E$" & LR & "),,))"
    Sheet1.Range("O4:O" & lastrow).Formula = "=MAX(INDEX(($A$4:$A$" & LR & "=$M4)*($G$4:$G$" & LR & "),,))"
    Sheet1.Range("P4:P" & lastrow).Formula = "=MIN(INDEX(($A$4:$A$" & LR & "=$M4)*($E$4:$E$" & LR & "),,))"
    Sheet1.Range("Q4:Q" & lastrow).Formula = "=MIN(INDEX(($A$4:$A$" & LR & "=$M4)*($G$4:$G$" & LR & "),,))"
    Sheet1.Range("R4:R" & lastrow).Formula = "=IF($N4<$O4,""MY"",IF($N4>$O4,""MZ"",""Same""))"
    Sheet1.Range("X4:X" & lastrow).Formula = "=IF($P4>$Q4,""MY"",IF($P4<$Q4,""MZ"",""Same""))"
    Sheet1.Range("S4:S" & lastrow).Formula = "=MAX(ABS(N" & ActiveCell.Row & "),ABS(O" & ActiveCell.Row & "))"
    Sheet1.Range("U4:U" & lastrow).Formula = "=IF($P4>$Q4,""MY"",IF($P4<$Q4,""MZ"",""Same""))"
    Sheet1.Range("Y4:Y" & lastrow).Formula = "=IF(MAX($N4:$Q4)>MIN($N4:$Q4)*-1,MAX($N4:$Q4),MIN($N4:$Q4))"
    Range("V4").Select
    Sheet1.Range("V4:V" & lastrow).Formula = "=0-MAX(ABS(P" & ActiveCell.Row & "),ABS(Q" & ActiveCell.Row & "))"
    Sheet1.Range("X4:X" & lastrow).Formula = "=INDEX($N$3:$Q$3,MATCH($Y4,$N4:$Q4,0))"
    Sheet1.Range("N4:Y" & lastrow).Value = Sheet1.Range("N4:Y" & lastrow).Value
            
    Range("E4:E" & LR & ",G4:G" & LR).SpecialCells(xlCellTypeBlanks).Value = "N/A"
    Application.ScreenUpdating = True
End Sub

Kindly modify and tweak if any to my present code as per Attached document.

Is this Impossible task?

I think while I suspect this might be straightforward - people don't understand what it is you are asking for.

Maybe you can simplify your question/example to show only the problem you want resolved?

Generally you can convert a text of 0 to a number by just adding 0 (i.e + 0) amongst other methods.
As to the rest you seem to be quite far from a solution I don't even know where you define Rw.... maybe you mean LR???