How to Fix Object not found in the following code - excel

Question

I'm setting up a new macro to assign comments on a range of Cells with information from another range of cells. I Keep getting an
"Object Required" error.
I ran the code on a more simple workbook and it worked great. When I adapted for new column, sheet, row names and different ranges I ran into the error.
Dim rngCell As Range
Dim strComment As String, strConsolidated As String, strPERSON As String, strConcat As String
Dim arrConcat() As String
Dim lngPos As Long
Dim WIPDATA As Worksheet
Dim Display As Worksheet
Set WIPDATA = Worksheets("WIPDATA")
Set Display = Worksheets("Display")
For Each rngCell In WIPDATA.Range("I2:I278")
strConcat = strConcat & rngCell & rngCell.Offset(0, -7) & "||"
Next rngCell
arrConcat = Split(strConcat, "||")
For Each rngCell In Display.Range("D3:F23")
If rngCell.Value >= 0 Then
strConsolidated = Right(Display.Cells(rngCell.Row, 1).Value, 1)
strPERSON = Display.Cells(1, rngCell.Column).Value
For lngPos = 0 To UBound(arrConcat)
If LCase$(strConsolidated & strPERSON) = LCase$(arrConcat(lngPos)) Then
With WIPDATA
strComment = strComment & Chr(10) _
& "W/O " & .Range("B" & lngPos + 2).Value & Chr(10) _
& "OP# " & .Range("F" & lngPos + 2).Value & Chr(10) _
& "Qty " & .Range("I" & lngPos + 2).Value
End With
End If
Next lngPos
rngCell.ClearComments
If Len(strComment) > 0 Then
rngCell.AddComment (Right(strComment, Len(strComment) - 1))
rngCell.Comment.Shape.TextFrame.AutoSize = True
End If
strComment = vbNullString
End If
Next rngCell
End Sub
If it goes right, Notes are added to each cell in the range with corresponding data from the following sheet.
This is solved: Get a
Run-time error '424' Object Required
And it takes me to line 5. For Each rngCell In WIPDATA.Range("I2:I278")
Now I get notes applied to "E" and "F" But they aren't grabbing any values from the second sheet. Pictures updated to show latest.
Please Keep in mind that I'm mainly adapting already written code. Still very much learning and teaching myself at that.

Answer 1

Hopefully I was able to recreate your dataset properly. Assuming that you want to match Display sheet, Person (row 2) & Consolidated number (column C), with WIPDATA, Person (column A) & Consolidated number (column P), then you would need to use the following code:
Sub foo()
Dim rngCell As Range
Dim strComment As String, strConsolidated As String, strPERSON As String, strConcat As String
Dim arrConcat() As String
Dim lngPos As Long
Dim WIPDATA As Worksheet
Dim Display As Worksheet
Set WIPDATA = Worksheets("WIPDATA")
Set Display = Worksheets("Display")
For Each rngCell In WIPDATA.Range("A2:A278")
strConcat = strConcat & rngCell.Offset(0, 15) & rngCell & "||"
Next rngCell
arrConcat = Split(strConcat, "||")
For Each rngCell In Display.Range("D3:F23")
If rngCell.Value >= 0 Then
strConsolidated = Display.Cells(rngCell.Row, 3).Value
strPERSON = Display.Cells(2, rngCell.Column).Value
For lngPos = 0 To UBound(arrConcat)
If LCase$(strConsolidated & strPERSON) = LCase$(arrConcat(lngPos)) Then
With WIPDATA
strComment = strComment & Chr(10) _
& "W/O " & .Range("B" & lngPos + 2).Value & Chr(10) _
& "OP# " & .Range("F" & lngPos + 2).Value & Chr(10) _
& "Qty " & .Range("I" & lngPos + 2).Value
End With
End If
Next lngPos
rngCell.ClearComments
If Len(strComment) Then
rngCell.AddComment (Right(strComment, Len(strComment) - 1))
rngCell.Comment.Shape.TextFrame.AutoSize = True
End If
strComment = vbNullString
End If
Next rngCell
End Sub
Display sheet on my side displays two comments (yellow & orange colours):
WIPDATA setup (sorry, I was being lazy and I only copied part of your table!):
I created only 3 scenarios where Person & Consolidated match between both sheets, but hopefully you will be able to see that yellow & orange coloured rows are properly being copied into Display sheet comments.
Give it a try and let me know if you need any further help.