View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Wahine Wahine is offline
external usenet poster
 
Posts: 10
Default If else if else statement help

Thank you.

"Ardus Petus" wrote:

The following is syntactically correct.
Does it suit yout needs?

--
AP

'-----------------------------------
Sub tester()
If Worksheets("Calc Current PL").Range("K5").Value = 0 Then
Call HideZerosFromCurrentChart1
Else
Call ReverseHideZerosFromCurrent1
End If

If Worksheets("Calc Current PL").Range("K41").Value = 0 Then
Call HideZerosFromCurrentChart6
Else
Call ReverseHideZerosFromCurrent6
End If

If Worksheets("Calc Current PL").Range("K77").Value = 0 Then
Call HideZerosFromCurrentChart7
Else
Call ReverseHideZerosFromCurrent7
End If

If Worksheets("Calc Current PL").Range("K113").Value = 0 Then
Call HideZerosFromCurrentChart8
Else
Call ReverseHideZerosFromCurrent8
End If


End Sub

"Wahine" a écrit dans le message de news:
...
Hi, Please help I have the following if else if else statement which
describes exactly what I want to do, but the syntax or order is not
correct.

If Worksheets("Calc Current PL").Range("K5").Value = 0 Then
Call HideZerosFromCurrentChart1
Else
Call ReverseHideZerosFromCurrent1

ElseIf Worksheets("Calc Current PL").Range("K41").Value = 0
Then
Call HideZerosFromCurrentChart6
Else
Call ReverseHideZerosFromCurrent6

ElseIf Worksheets("Calc Current PL").Range("K77").Value = 0
Then
Call HideZerosFromCurrentChart7
Else
Call ReverseHideZerosFromCurrent7

ElseIf Worksheets("Calc Current PL").Range("K113").Value = 0
Then
Call HideZerosFromCurrentChart8
Else
Call ReverseHideZerosFromCurrent8
End If

Thank you in advance for help