VBA Macro InputBox to display dropdown opposed to entering text?

[Johnnyboy1x]

Hello All --

I have a macro button in my spreadsheet that initiates various input boxes and places input in specific cells

I am running Excel 2016, WIN 7 64-bit

I know the line in my code below starting with DROPDOWNBOX is not right, but that is the best way I can express what I am trying to do.

Hopefully someone can help!

Thank you in advance, Johnny

Private Sub CommandButton1_Click()
Dim myValue As Variant
myValue = InputBox("Enter Serial Number (ex. 142110/16)")
Range("H13").Value = myValue
myValue = InputBox("Enter Your Name (ex. Bill Smith)")
Range("H15").Value = myValue
myValue = InputBox("Job Code  ex. PD,PM,FS,FLEX,WTY, INST")
DROPDOWNBOX Job Code = Array("PD", "PM", "FS", "WTY", "FLX", "INST", "Non Billable")
Range("H14").Value = myValue
End Sub

 

[Johnnyboy1x]

Pretty sure you can't have a dropdown on a input box. You may need to create a basic userform and call that.

Hello sericom and alpha frog --

I found success! Thanks for all the support.

At the end this is my code...I created another sheet and named it 'combo boxes'. entered values in a1-a2 and then highlighted a1-a2 and defined it as job status. Next, enters values in b1-b7 and highlighted b1-b7 and defined it as job code

Macro Button on sheet1 one calls userform.

Macro Button

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
[code/]

This is the user form code

[code]
Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox2_Change()

End Sub

Private Sub CommandButton1_Click()
    Sheets("Service Report").Range("H15") = TextBox1.Value
    Sheets("Service Report").Range("H13") = TextBox2.Value
    Sheets("Service Report").Range("B13") = TextBox3.Value
    Sheets("Service Report").Range("H14") = ComboBox1.Value
    Sheets("Service Report").Range("B17") = ComboBox2.Value
MsgBox "Data added", vbOKOnly + vbInformation, "Data Added"



End Sub


Private Sub CommandButton2_Click()
Unload Me
End Sub
[code/]

THANKS AGAIN!  Johnny