Rookie VBA user. I am trying to create a user form that will fill in a variety of cells based on the value chosen from the combo box. When I run the form. it allows me to select the employee and if I click submit. it closes fine but none of my data carries over. "Front Sheet" is the sheet where I need the data inputted. LookupList is the sheet where I am getting the data from. I used Sheet1.Range and nothing happens.
Code
Private Sub UserForm_Initialize()
Dim cmbEmployee As Range
Dim ws As Worksheet
Set ws = Worksheets("LookupList")
'fill combobox
For Each Cell In [Employees]
Me.cmbEmployee.AddItem Cell
Next Cell
End Sub
Private Sub cmbEmployee_Change()
Range("B4").Value = Me.cmbEmployee
Select Case Me.cmbEmployee.Column(4)
Case "AB"
Sheet1.Range("B6").Value = "123 Pine St. Amarillo, TX 79101"
Sheet1.Range("I6").Value = "325-598-" & Me.cmbEmployee.Column(3)
Sheet1.Range("B8").Value = "Amarillo, TX"
End Select
End Sub
Private Sub cmdSubmit_Click()
Unload Me
End Sub
Display More