So I took your loop and I am trying to expand upon it, but my math is not right.
Sub Auder()
Dim wsGR As Worksheet, wsAB As Worksheet, wsDR As Worksheet
Dim x As Long, y As Long, decnt As Long, blcnt As Long
Set wsGR = Worksheets("Generalized Report")
Set wsAB = Worksheets("As Built")
Set wsDR = Worksheets("Detail Report")
Set wsCO = Worksheets("Contract")
decnt = wsDR.Cells(6, 5).End(xlDown).Row
blcnt = wsAB.Cells(2, 23).End(xlDown).Row
For x = 6 To decnt
For y = 2 To blcnt
If wsDR.Cells(x, 5).Value = wsAB.Cells(y, 23) Then
If wsAB.Cells(y, 23) = "Audit Error" Then
wsGR.Range("A4") = wsGR.Range("A4") + wsCO.Cells(y, 7) - wsAB.Cells(y, 7)
wsGR.Range("B4") = wsGR.Range("B4") + wsCO.Cells(y, 9) - wsAB.Cells(y, 9)
wsGR.Range("C4") = wsGR.Range("C4") + wsCO.Cells(y, 10) - wsAB.Cells(y, 10)
wsGR.Range("D4") = wsGR.Range("D4") + wsCO.Cells(y, 11) - wsAB.Cells(y, 11)
wsGR.Range("E4") = wsGR.Range("E4") + wsCO.Cells(y, 15) - wsAB.Cells(y, 15)
End If
End If
Next y
Next x
End Sub
A4 should equal 7
and B4 should equal 6.
the only thing I did different was add a text identifier to it..