Returning MsgBox/User Form Entries to Worksheet

[SolarSpence]

I am trying to take an input from a user and return it to a worksheet for use in calculations.

Ideally, I would like to make a custom message box that returns text or numerical values to a specified worksheet.
Otherwise, a vbYesNo message box that returns a certain text/value to a worksheet based on the users response would work.

Thanks in advance.

 

[VoG]

Try like this

Range("A1").Value = InputBox("Enter your value")

 

[GK039]

I dont know if this is what you are looking for but it is a very simple example of what you asked. Copy and paste to VBE

Sub InsertValue()
Dim msg As String
Dim location As String

Application.ScreenUpdating = False

msg = InputBox("Please place your value ot text here")
location = InputBox("Enter the cell that you want to house your value")

Range(location).Select
Selection.Value = msg

Application.ScreenUpdating = True

End Sub

George

I am trying to take an input from a user and return it to a worksheet for use in calculations.

Ideally, I would like to make a custom message box that returns text or numerical values to a specified worksheet.
Otherwise, a vbYesNo message box that returns a certain text/value to a worksheet based on the users response would work.

Thanks in advance.

 

[SolarSpence]

Thank you for the help.

This is helpful but what I really need is to have a MsgBox/User Form that has a question with 2 or more options (command buttons). Then when one is selected, that value is entered into a specified cell.

Thanks

 

[GK039]

Then something like this:

Insert a userform in your VBE add two buttosn and a text box named: cmdAsk - cmdExit - txtEnterValue and then copy paste the following code:

Option Explicit

Private Sub cmdAsk_Click()
Dim msg As String
Dim location As String

msg = MsgBox("Do you want to copy the entered value to your worksheet?", vbYesNo)

If msg = 6 Then
    location = InputBox("Enter the cell that you want to house your value")
    Worksheets("Sheet1").Range(location).Select
    Selection.Value = txtEnterValue.Text
Else
txtEnterValue.SetFocus
End If
End Sub

Private Sub cmdExit_Click()
Unload UserForm1
End Sub

George

Thank you for the help.

This is helpful but what I really need is to have a MsgBox/User Form that has a question with 2 or more options (command buttons). Then when one is selected, that value is entered into a specified cell.

Thanks