Input Box help Please

[bloodmilksky]

Hi Guys, I hope you are all well today.

I am trying to use the below for an order form so that the user enters a Post Code Or AC number and this goes into cell E3 where the form will then produce the customers AC details. but for some reason the Value is not going into the Cell after it is being entered.

Sub Would_You_Like_To_Place_An_Order()
    Dim myValue As Variant
    
    Msg = "Would You Like To Place An Order ? " & Application.UserName
    Ans = MsgBox(Msg, vbYesNo)
    If Ans = vbNo Then
                Application.DisplayAlerts = False
                ThisWorkbook.Save
                Application.DisplayAlerts = True
                Application.Quit
                End If
    If Ans = vbYes Then InputBox ("Please enter Account Number Or Postcode")
    Range("E3").Value = myValue
End Sub

Could anyone help please?

 

[Rick Rothstein]

Hi Guys, I hope you are all well today.

I am trying to use the below for an order form so that the user enters a Post Code Or AC number and this goes into cell E3 where the form will then produce the customers AC details. but for some reason the Value is not going into the Cell after it is being entered.

Sub Would_You_Like_To_Place_An_Order()
    Dim myValue As Variant
    
    Msg = "Would You Like To Place An Order ? " & Application.UserName
    Ans = MsgBox(Msg, vbYesNo)
    If Ans = vbNo Then
                Application.DisplayAlerts = False
                ThisWorkbook.Save
                Application.DisplayAlerts = True
                Application.Quit
                End If
    If Ans = vbYes Then [B][COLOR="#FF0000"]InputBox ("Please enter Account Number Or Postcode")[/COLOR][/B]
    Range("E3").Value = myValue
End Sub

Could anyone help please?

You are not assigning the user's input to the myValue variable.

 

[bloodmilksky]

So should it be something like

Range("E3") = MyValue?

Sorry rick I am still learning how to type out alot of this

 

[Rick Rothstein]

So should it be something like

Range("E3") = MyValue?

Sorry rick I am still learning how to type out alot of this

You wrote this...

If Ans = vbYes Then InputBox ("Please enter Account Number Or Postcode")

You should have written this instead...

If Ans = vbYes Then MyValue = InputBox ("Please enter Account Number Or Postcode")

If you don't put the user's input into the MyValue variable, then there won't be anything in the variable when you try to assign it to cell E3.

 

[bloodmilksky]

Thank You Rick I really Appreciate your help

 

[GTO]

@bloodmilksky:

Please read Excelguru Help Site - A message to forum cross posters reference cross-posting.

Cross-posted at Trouble with Input Box

Mark