PDA

View Full Version : [SOLVED] Else without If statement compiling error



irapa
04-15-2015, 03:26 AM
Hi there, I'm trying to debug some code I got from someone and I cannot seem to find the error in this If statement. Would appreciate any help!


For zzz = 1 To 2
If zzz = 1 Then
If Sheets("Audit.Timeline").Range("A1").Value = "X" Then
ab = "2A.1-Engage.Letter"
ac = "AB"
ad = "AN"
P = Sheets("Checks").Range("AR33").Value
Else
If Sheets("Audit.Timeline").Range("A1").Value = "Y" Then
ab = "2A.2-Engage.Letter"
Else
If Sheets("Audit.Timeline").Range("A1").Value = "Z" Then
ab = "2A.4-Engage.Letter"
Else
ab = "2A.3-Engage.Letter"
End If
ac = "X"
ad = "AI"
P = Sheets("Checks").Range("AR34").Value
End If
Else
ab = "2D-Rep.Letter"
ac = "X"
ad = "AI"
P = Sheets("Checks").Range("AN33").Value
End If

mancubus
04-15-2015, 04:05 AM
hi.

code it like this:

If................
...
...
ElseIf.....
...
...
ElseIf.....
...
...
Else.....
...
...
End If

mancubus
04-15-2015, 04:08 AM
i'm not sure understand the conditions but it can be something like this.



For zzz = 1 To 2
If zzz = 1 Then
If Sheets("Audit.Timeline").Range("A1").Value = "X" Then
ab = "2A.1-Engage.Letter"
ac = "AB"
ad = "AN"
P = Sheets("Checks").Range("AR33").Value
ElseIf Sheets("Audit.Timeline").Range("A1").Value = "Y" Then
ab = "2A.2-Engage.Letter"
ac = "AB"
ad = "AN"
P = Sheets("Checks").Range("AR33").Value
ElseIf Sheets("Audit.Timeline").Range("A1").Value = "Z" Then
ab = "2A.4-Engage.Letter"
ac = "AB"
ad = "AN"
P = Sheets("Checks").Range("AR33").Value
Else
ab = "2A.3-Engage.Letter"
ac = "X"
ad = "AI"
P = Sheets("Checks").Range("AR34").Value
End If
Else
ab = "2D-Rep.Letter"
ac = "X"
ad = "AI"
P = Sheets("Checks").Range("AN33").Value
End If
Next zzz