Request for input

Posted by Nick on July 20, 2001 6:04 AM

I am in the process of automating the company's expense reporting structure. 90% of the form is complete but I am running into a roadblock.

I need to validate the input on one cell to only allow a calcualtion on mileage if the option of mileage is chosen. If this selection is picked than I would like an input box to appear for the user to enter their mileage and perform the calculation to enter into the totals field. If any other selection is chosen (hotel, taxi, etc) the user can simply inut their totals into the field without any input screens appearing.

Can anyone shed any light on how this can be accomplished?

Thanks

Posted by Ivan F Moala on July 20, 2001 7:13 AM

Via the worksheets SelectionChange Event
Right click on the sheet tab
select view code and paste this in

Note: Assumes
1) Mileage input cell = D2
2) Totals @ A1
Change as required or repost if unsure.

Ivan

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Mileage
Dim Prompt As String
Dim Title As String
Dim Totals

Prompt = "Enter mileage"
Title = "Mileage Input required"

If Target.Address = "$D$2" Then

Mileage = Application.InputBox(Prompt, Title, Type:=1)
Mileage = Mileage * 1.12
Totals = Range("A1")
Totals = Totals + Mileage
Range("A1") = Totals
End If

End Sub