VBA for, next, if Help

[hajiali]

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

 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

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

Next cell

instead of going through the rest of the for so. is there a better way to recode this to do this.

so if go form Ln 289 to 303 or Ln293 to 303

Any help is greatly appreciated.

 

[6StringJazzer]

It's not clear what condition you want to cause to abandon the inner For loops and go directly to the Next cell. Do you mean if either of those If conditions is TRUE, you want to go directly to Next cell?

 

[hajiali]

correct so once the cell. Value should appear once in the Data sheets so once the occurs for either of the conditions go directly to the next Cell value. found out after some research to use "goto" in vba to make this happen is there an alternative.

.

 

[6StringJazzer]

Normally I avoid GoTo at all costs. But you have a somewhat unusual requirement. I don't know what you are trying to do with this code so I don't know how to recommend a restructuring of the overall code. However, adding a GoTo would have minimal impact.

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)
                                            GoTo NextCell
                                        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)
                                                GoTo Next Cell
                                            End If
                                        End If
                                End With
                            End If
                        Next
                    End If
                Next
            Next
    End If
NextCell:
Next cell
End With
End Sub

 

[hajiali]

That's what I need to be done thank you so much.