mardi 20 juin 2017

Next without For Error while adding new If functions VBA

I do not see where the mistake is.

this is currently my code:

For Each Rng3 In Range("$A$3:$A$1000")
If Rng3.Value = "Account Credit (Debit G/L)" Then
    If Rng3.Offset(0, 8).Value = "IVR Risk" Then
        If Rng3.Offset(0, 1).Value = 0 Or Rng3.Offset(0, 1).Value > 0 Then
            GLIVR = GLIVR + 1
        Else: Rng3.ClearContents
        End If
    ElseIf Rng3.Offset(0, 8).Value = "Manual Risk" And Rng3.Offset(0, 9).Value = "No" And _
    Rng3.Offset(0, 5).Value <> "812-519" Then
        If Rng3.Offset(0, 1).Value = 0 Or Rng3.Offset(0, 1).Value > 0 Then
            GLManual = GLManual + 1
        ElseIf Rng3.Offset(0, 1).Value < 0 Then Rng3.ClearContents
        End If
    ElseIf Rng3.Offset(0, 8).Value = "Manual Risk" And Rng3.Offset(0, 9).Value = "Yes" And _
    Rng3.Offset(0, 5).Value <> "812-519" Then
        If Rng3.Offset(0, 1).Value = 0 Or Rng3.Offset(0, 1).Value > 0 Then
            EFGLManual = EFGLManual + 1
        End If
If Rng3.Value = "Account Credit (Debit G/L)" Then
    If Rng3.Offset(0, 8).Value = "IVR Risk" Then
        If Rng3.Offset(0, 5).Value <> "812-135" Then
        If Rng3.Offset(0, 1).Value = 250 Or Rng3.Offset(0, 1).Value > 250 Then
            GLIVR = GLIVR + 1
        Else: Rng3.ClearContents
        End If
    ElseIf Rng3.Offset(0, 8).Value = "Manual Risk" And Rng3.Offset(0, 9).Value = "No" And _
     Rng3.Offset(0, 5).Value <> "812-135" Then
        If Rng3.Offset(0, 1).Value = 250 Or Rng3.Offset(0, 1).Value > 250 Then
            GLManual = GLManual + 1
        ElseIf Rng3.Offset(0, 1).Value < 0 Then Rng3.ClearContents
        End If
    ElseIf Rng3.Offset(0, 8).Value = "Manual Risk" And Rng3.Offset(0, 9).Value = "Yes" And _
    Rng3.Offset(0, 5).Value <> "812-135" Then
        If Rng3.Offset(0, 1).Value = 250 Or Rng3.Offset(0, 1).Value > 250 Then
            EFGLManual = EFGLManual + 1
        End If
    End If
End If

Next Rng3

I do not see where the error is.

This was the original code I tried to add code to:

For Each Rng3 In Range("$A$3:$A$1000")
If Rng3.Value = "Account Credit (Debit G/L)" Then
    If Rng3.Offset(0, 8).Value = "IVR Risk" Then
        If Rng3.Offset(0, 1).Value = 50 Or Rng3.Offset(0, 1).Value > 50 Then
            GLIVR = GLIVR + 1
        Else: Rng3.ClearContents
        End If
    ElseIf Rng3.Offset(0, 8).Value = "Manual Risk" And Rng3.Offset(0, 9).Value = "No" And _
    Rng3.Offset(0, 5).Value <> "812-519" Then
        If Rng3.Offset(0, 1).Value = 50 Or Rng3.Offset(0, 1).Value > 50 Then
            GLManual = GLManual + 1
        ElseIf Rng3.Offset(0, 1).Value < 25 Then Rng3.ClearContents
        End If
    ElseIf Rng3.Offset(0, 8).Value = "Manual Risk" And Rng3.Offset(0, 9).Value = "Yes" And _
    Rng3.Offset(0, 5).Value <> "812-519" Then
        If Rng3.Offset(0, 1).Value = 25 Or Rng3.Offset(0, 1).Value > 25 Then
            EFGLManual = EFGLManual + 1
        End If
    End If
End If

Next Rng3

Any help would be greatly appreciated.

thank you.

Aucun commentaire:

Enregistrer un commentaire