I need to use InputBox function

**john456852** · 08-22-2012, 02:10 PM

Help!
i need to make an input box using coding that asks for two numbers and subtracts the first num from the second one
then, i need a msgbox that shows the answer

**Bob Phillips** · 08-22-2012, 02:23 PM

Dim numbers As String
Dim vecNumbers As Variant

    numbers = InputBox("Supply two numbers comma separated")
    If numbers <> "" Then
    
        vecNumbers = Split(numbers, ",")
        MsgBox vecNumbers(1) - vecNumbers(0)
    End If

**Jakobshavn** · 08-22-2012, 02:25 PM

How about:

Sub marine()
With Application
N1 = .InputBox(prompt:="Enter first number", Type:=1)
N2 = .InputBox(prompt:="Enter second number", Type:=1)
MsgBox N2 - N1
End With
End Sub

**john456852** · 08-22-2012, 02:56 PM

jakobshavn, u didn't define N1 or N2
Bob, there is an error when i run it ( compile error)

**Jakobshavn** · 08-22-2012, 02:59 PM

You are correct! The macro should run without the definitions.

**john456852** · 08-22-2012, 03:02 PM

is N1 an integer,string etc.?

**john456852** · 08-22-2012, 03:01 PM

Jakob, u didn't define N1 or N2 so there is an error

**Jakobshavn** · 08-22-2012, 03:06 PM

Dim them as Variants

**Jakobshavn** · 08-22-2012, 03:39 PM

When you respond, touch Go Advanced at the bottom and use the paperclip.

**Mordred** · 08-22-2012, 03:41 PM

I've redone Jakobshavn's code a bit

Sub marine()
    Dim N1 As Double, N2 As Double
    Dim tot As Double
    With Application
        N1 = .InputBox(prompt:="Enter first number", Type:=1)
        N2 = .InputBox(prompt:="Enter second number", Type:=1)
        tot = N1 - N2
        MsgBox tot
    End With
End Sub

There should be no errors now with Option Explicit on.

---------- Post added at 02:41 PM ---------- Previous post was at 02:39 PM ----------

Originally Posted by john456852

Bob, there is an error when i run it ( compile error)

I just ran Bob's code and didn't receive any errors. What was the description of the error thrown?

**john456852** · 08-22-2012, 04:27 PM

Use the marine macro not the inputbox macro

---------- Post added at 04:26 PM ---------- Previous post was at 04:25 PM ----------

N1 and N2 weren't defined yet

---------- Post added at 04:27 PM ---------- Previous post was at 04:26 PM ----------

Don't change the project unless u can improve it

**Mordred** · 08-22-2012, 04:34 PM

I can't say that I understand your post 13! Did you try the amended code that I did? With Bob's, did you copy and paste it into your workbook because the code you have in there is not the same?!?

View Poll Results: What should i do?

I need to use InputBox function

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

I need to use InputBox function

Re: I need to use InputBox function

Re: I need to use InputBox function

Re: I need to use InputBox function

Re: I need to use InputBox function

Re: I need to use InputBox function

Re: I need to use InputBox function

Re: I need to use InputBox function

Re: I need to use InputBox function

Re: I need to use InputBox function

Re: I need to use InputBox function

Re: I need to use InputBox function

Thread Information

Users Browsing this Thread

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions