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