If, Else statements
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
|