VBA Code:
Sub PermanentBid()
Dim Dq, cell, AgentDC, TdDc, Rslt, rx As Range
Dim arr
Dim r, c, i, bD, Ee As Long
With Sheets("FORM")
Set Dq = Range("DQ3:DQ500")
Set AgentDC = Range("D3:d114")
Set TdDc = Worksheets("TOOL").Range("AF3:AF603")
Ee = Range("D1")
bD = Worksheets("DATA").Cells(Rows.Count, 5).End(xlUp).Row + 1
For Each cell In Dq
If cell.Value <> "" Then
Range("A1").Value = cell.Value
arr = AgentDC
For r = 1 To 112
For c = 1 To 1
If Not arr(r, c) = "" Then
For i = 1 To 603
If TdDc.Cells(i) = arr(r, c) Then
With Sheets("Results")
Set Rslt = .Range("F2:F603").Find(TdDc.Cells(i).Offset(, -31), lookat:=xlWhole)
If Rslt Is Nothing Then
Worksheets("DATA").Cells(bD, "E").Value = cell.Value
Worksheets("DATA").Cells(bD, "F").Value = TdDc.Cells(i).Offset(, -31)
Else
If Rslt.Offset(, -3) > Ee Then
Worksheets("DATA").Cells(bD, "E").Value = cell.Value
Worksheets("DATA").Cells(bD, "F").Value = TdDc.Cells(i).Offset(, -31)
End If
End If
End With
End If
Next
End If
Next
Next
End If
Next cell
End With
End Sub
I needing a little help with above VBA. with all the for and if that I have its got my head spinning lol. what Im needing done after
VBA Code:
If Rslt Is Nothing Then
Worksheets("DATA").Cells(bD, "E").Value = cell.Value
Worksheets("DATA").Cells(bD, "F").Value = TdDc.Cells(i).Offset(, -31)
and
VBA Code:
If Rslt.Offset(, -3) > Ee Then
Worksheets("DATA").Cells(bD, "E").Value = cell.Value
Worksheets("DATA").Cells(bD, "F").Value = TdDc.Cells(i).Offset(, -31)
End If
is to move to the
VBA Code:
Next cell
so if go form Ln 289 to 303 or Ln293 to 303
Any help is greatly appreciated.