If, Else statements
Steve,
If you put the action on the same line as the IF, there is no EndIf
required.
So
If a = b Then do_something
should be replaced by
If a = b Then
do_something
In total
If Cells.Cells(9, 3).Value = "" Then
Cells.Cells(9, 8).Value = ""
ElseIf Cells.Cells(9, 7).Value = "N/A" Then
Cells.Cells(9, 8).Value = "0"
' Category S
ElseIf Cells.Cells(9, 7) = "S" & Cells.Cells(9, 6).Value < 5 Then
Cells.Cells(9, 8).Value = "0"
ElseIf Cells.Cells(9, 7) = "S" & Cells.Cells(9, 6) < 10 Then
Cells.Cells(9, 8).Value = "5%"
ElseIf Cells.Cells(9, 7) = "S" & Cells.Cells(9, 6) 9 Then
Cells.Cells(9, 8).Value = "10%"
' Category P
ElseIf Cells.Cells(9, 7) = "P" & Cells.Cells(9, 6) < 3 Then
Cells.Cells(9, 8).Value = "0"
ElseIf Cells.Cells(9, 7) = "P" & Cells.Cells(9, 6) < 5 Then
Cells.Cells(9, 8).Value = "5%"
ElseIf Cells.Cells(9, 7) = "P" & Cells.Cells(9, 6) < 10 Then
Cells.Cells(9, 8).Value = "15%"
ElseIf Cells.Cells(9, 7) = "P" & Cells.Cells(9, 6) 10 Then
Cells.Cells(9, 8).Value = "20%"
Else
Cells.Cells(9, 8).Value = ""
End If
--
HTH
RP
(remove nothere from the email address if mailing direct)
"Steve" wrote in message
...
Hi
Can anyone please help me? I get an "Else without If" error when running
this and not sure why as it seems the same as the example in the help
file.
Also, what is the best way to run it if I want to run this when a certain
cell is changed. Or can it only be done when the worrksheet is changed.
Many thanks
Steve R
If Cells.Cells(9, 3).Value = "" Then Cells.Cells(9, 8).Value = ""
ElseIf Cells.Cells(9, 7).Value = "N/A" Then Cells.Cells(9, 8).Value = "0"
' Category S
ElseIf Cells.Cells(9, 7) = "S" & Cells.Cells(9, 6).Value < 5 Then
Cells.Cells(9, 8).Value = "0"
ElseIf Cells.Cells(9, 7) = "S" & Cells.Cells(9, 6) < 10 Then
Cells.Cells(9,
8).Value = "5%"
ElseIf Cells.Cells(9, 7) = "S" & Cells.Cells(9, 6) 9 Then
Cells.Cells(9,
8).Value = "10%"
' Category P
ElseIf Cells.Cells(9, 7) = "P" & Cells.Cells(9, 6) < 3 Then
Cells.Cells(9,
8).Value = "0"
ElseIf Cells.Cells(9, 7) = "P" & Cells.Cells(9, 6) < 5 Then
Cells.Cells(9,
8).Value = "5%"
ElseIf Cells.Cells(9, 7) = "P" & Cells.Cells(9, 6) < 10 Then
Cells.Cells(9, 8).Value = "15%"
ElseIf Cells.Cells(9, 7) = "P" & Cells.Cells(9, 6) 10 Then
Cells.Cells(9, 8).Value = "20%"
Else
Cells.Cells(9, 8).Value = ""
End If
--
Steve R
|