Conditional statements
The intent is2 sheets. The first is an input sheet where
the user inputs their information. At the bottom of the
sheet is a button that they click to take them to the
output sheet. However, I only want them to go to the
output sheet provided they enter a labor value in Cell
named labor cost. If they have not, I want them to be
directed ack to the labor_cost cell to enter.
The range on the output sheet is Just the top cell.
Jon
-----Original Message-----
why do you want to select an entire range on your sheet?.
What are you going
to do on
Sheets("LPA Competitive Output").Range("G4:R5") ?
Sub Continue_inputs_to_outputs()
' Continue_inputs_to_outputs Macro
' Moves the user from the input sheet to the output sheet
'provided all the information is complete
If Labor_cost 0 Then
application.goto Sheets("LPA Competitive Output").Range
("G4:R5")
Else
with Sheets("Warning Page")
.visible=true
applicaton.goto .Range("i20")
end with
End If
End Sub
--
Don Guillett
SalesAid Software
"Jon Minken" wrote in message
...
I am a beginner and I am trying to write a conditional
statement that verifys whether or not a cell has a value
greater than zero. If it does, the program contiues to
the output page. If it doesnot, a separate error sheet
pops up that directs the user to return to the sheet and
enter a value. The error sheet appears evey time even
if
thecell is greater than zero.
2 Questions.
1. Is their a better way to do this with a message box
that would appear as opposed to referring it to a
separate
sheet, and;
2. What is the problem with my program (see below)
Sub Continue_inputs_to_outputs()
'
' Continue_inputs_to_outputs Macro
' Moves the user from the input sheet to the output
sheet
provided all the information is complete
'
Sheets("Input Fields Competitve").Select
If Labor_cost 0 Then
Sheets("LPA Competitive Output").Select
ActiveWindow.SmallScroll Down:=-15
Range("G4:R5").Select
Else
Sheets("Warning Page").Visible = True
Sheets("Warning Page").Activate
Range("i20").Select
End If
End Sub
.
|