Hep with Input box - choose between 1 and 1.5 and place into cel

[twodoor55]

I am looking for a macro/formula to place into an input box, I want the user to choose either .5 or 1. I then want that number to be placed in cell A3. I know it sounds easy, but can't figure it out. Maybe it needs to be a different choice?

 

[Rick Rothstein]

I am looking for a macro/formula to place into an input box, I want the user to choose either .5 or 1. I then want that number to be placed in cell A3. I know it sounds easy, but can't figure it out. Maybe it needs to be a different choice?

Maybe an approach like this?

Sub Test()
  Dim Answer As Variant
  Do
    Answer = Application.InputBox("Please enter either 0.5 or 1.", Type:=1)
    If Answer = 0.5 Or Answer = 1 Or Answer = "False" Then Exit Do
  Loop
  MsgBox "Your input: " & Answer
End Sub

 

[twodoor55]

Thank you so much, I knew it was simple but still have hard time visulize my output. : )

 

[twodoor55]

Now I want to take my answer and have it appear in A1

 

[Nicole17]

Add this before the end of the sub:

Sheets(Sheet1).Range("A1").Value = Answer

 

[twodoor55]

I am getting a type mis-match error.

 

[Nicole17]

That's strange, I'm not getting any error using the code below. I'm not an excel expert though, so I'm sorry if I caused you additional confusion!

Sub Test()
  Dim Answer As Variant
  Do
    Answer = Application.InputBox("Please enter either 0.5 or 1.", Type:=1)
    If Answer = 0.5 Or Answer = 1 Or Answer = "False" Then Exit Do
  Loop
  MsgBox "Your input: " & Answer
  
  Sheets("Sheet2").Range("A1").Value = Answer
End Sub

 

[Nicole17]

Ack, I figured it out! You need to put "" around the sheet name, ex: Sheets("Sheet1")

I'm really sorry about that!!

 

[twodoor55]

no problem thank you.