VBA to compare each cell of 2 sets of data and give result TRUE or False

[radsok8199]

Dear VBA Masters

I tried to find solution within forum and manage to create code, but can not get what have i done wrong
I have two sets of data on same worksheet. Both looks similar. Have same number of rows and columns ( column headers in same order). Headers are same. Amount of rows and Headers for both is dynamic. Values for each cell in both should match, however it never does. That's why i need to have this kind of comparison.
So Set of data on left side that's values from Requirements where the middle from Extract. I want my code to compare all cells from Requirements with Extract and place value TRUE or FALSE and display them right of Extract data under correct Header.
Some of rows between Extract data contains #N/A as result of previous VLOOKUP function. I need to keep those and display comparison result as #N/A instead of FALSE
Please let me know what i am doing wrong here?

Sub CompareCells()


Dim ws As Worksheet
 Dim j As Long
  Dim i As Long
   Dim lrowR As Long
    Dim lcolR As Long
     Dim lcolE As Long
       Dim LvalueR As String
        Dim LvalueE As String
         Dim CompInput As Range
          Dim fcolE As Long
          
      Set ws = ThisWorkbook.Sheets("Comparison")
        lrowR = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row  ' Last row requirments
            lcolR = ws.Cells(1, 1).End(xlToRight).Column   ' Last column requirments

For j = 2 To lcolR
    For i = 2 To lrowR Step 1

LvalueR = ws.Cells(i, 1).Value     'Requirments look up value
    fcolE = lcolR + j
        LvalueE = ws.Cells(i, fcolE).Value                             'Extract lookup value
                lcolE = ws.Cells(1, lcolR + 2).End(xlToRight).Column   'Extract last column
                        CompInput = ws.Cells(i, lcolE + j)                            'Comparison result first cell
                        

If IsError(LvalueE) Then
    CompInput.Value = "#N/A"
        If LvalueR = LvalueE Then
            CompInput.Value = "True"
                Else
                   CompInput.Value = "False"
                End If
        End If
    Next i
Next j
End Sub

 

[Fluff]

How about

Sub radsok()
   Dim Sary As Variant, Eary As Variant, Nary As Variant
   Dim r As Long, c As Long
   
   With Range("A1").CurrentRegion
      Sary = .Value2
      Eary = .Offset(, .Columns.Count + 1).Value2
   End With
   ReDim Nary(1 To UBound(Sary), 1 To UBound(Sary, 2))
   For c = 1 To UBound(Sary, 2)
      Nary(1, c) = Sary(1, c)
   Next c
   For r = 2 To UBound(Sary)
      For c = 1 To UBound(Sary, 2)
         If IsError(Eary(r, c)) Then
            Nary(r, c) = "#N/A"
         Else
            Nary(r, c) = Sary(r, c) = Eary(r, c)
         End If
      Next c
   Next r
   Cells(1, Columns.Count).End(xlToLeft).Offset(, 2).Resize(UBound(Sary), UBound(Sary, 2)).Value = Nary
End Sub

 

[radsok8199]

How about

Sub radsok()
   Dim Sary As Variant, Eary As Variant, Nary As Variant
   Dim r As Long, c As Long
  
   With Range("A1").CurrentRegion
      Sary = .Value2
      Eary = .Offset(, .Columns.Count + 1).Value2
   End With
   ReDim Nary(1 To UBound(Sary), 1 To UBound(Sary, 2))
   For c = 1 To UBound(Sary, 2)
      Nary(1, c) = Sary(1, c)
   Next c
   For r = 2 To UBound(Sary)
      For c = 1 To UBound(Sary, 2)
         If IsError(Eary(r, c)) Then
            Nary(r, c) = "#N/A"
         Else
            Nary(r, c) = Sary(r, c) = Eary(r, c)
         End If
      Next c
   Next r
   Cells(1, Columns.Count).End(xlToLeft).Offset(, 2).Resize(UBound(Sary), UBound(Sary, 2)).Value = Nary
End Sub

Thank You for feedback. It does not work. When I run above code nothing happens at all. No even errors

 

[Fluff]

How about

Sub radsok()
   Dim Sary As Variant, Eary As Variant, Nary As Variant
   Dim r As Long, c As Long
   
   With Sheets("Comparison").Range("A1").CurrentRegion
      Sary = .Value2
      Eary = .Offset(, .Columns.Count + 1).Value2
   End With
   ReDim Nary(1 To UBound(Sary), 1 To UBound(Sary, 2))
   For c = 1 To UBound(Sary, 2)
      Nary(1, c) = Sary(1, c)
   Next c
   For r = 2 To UBound(Sary)
      For c = 1 To UBound(Sary, 2)
         If IsError(Eary(r, c)) Then
            Nary(r, c) = "#N/A"
         Else
            Nary(r, c) = Sary(r, c) = Eary(r, c)
         End If
      Next c
   Next r
   Sheets("Comparison").Cells(1, Columns.Count).End(xlToLeft).Offset(, 2).Resize(UBound(Sary), UBound(Sary, 2)).Value = Nary
End Sub

 

[radsok8199]

How about

Sub radsok()
   Dim Sary As Variant, Eary As Variant, Nary As Variant
   Dim r As Long, c As Long
  
   With Sheets("Comparison").Range("A1").CurrentRegion
      Sary = .Value2
      Eary = .Offset(, .Columns.Count + 1).Value2
   End With
   ReDim Nary(1 To UBound(Sary), 1 To UBound(Sary, 2))
   For c = 1 To UBound(Sary, 2)
      Nary(1, c) = Sary(1, c)
   Next c
   For r = 2 To UBound(Sary)
      For c = 1 To UBound(Sary, 2)
         If IsError(Eary(r, c)) Then
            Nary(r, c) = "#N/A"
         Else
            Nary(r, c) = Sary(r, c) = Eary(r, c)
         End If
      Next c
   Next r
   Sheets("Comparison").Cells(1, Columns.Count).End(xlToLeft).Offset(, 2).Resize(UBound(Sary), UBound(Sary, 2)).Value = Nary
End Sub

Mate it works as Champion. Thank You very much. U gave me a new stuff to learn. I don't get what is happening exactly here so will study it.
Any chance you could possibly check in free time what i was doing wrong with my code ?
Anyway thanks again, what a great feedback here we can get.

 

[Fluff]

You're welcome & thanks for the feedback.