View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
emmy128 emmy128 is offline
external usenet poster
 
Posts: 5
Default combo box problem!

Hi, i am trying to create a data entry form in excel, and i want a drop down
to select the company... i have the combo box set up, and set to its row
source, but i dont know how to get it to fill the rows in a column when a
company is selected!! i set the control source to "d2" and then it would only
fill d2... then when i left the control source blank, it didnt fill
anything!!!

this is the vbl i have for the rest of the form:

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
Dim LastRow As Object

Set LastRow = Sheet1.Range("a65536").End(xlUp)

LastRow.Offset(1, 0).Value = TextBox1.Text
LastRow.Offset(1, 1).Value = TextBox2.Text
LastRow.Offset(1, 2).Value = TextBox3.Text

MsgBox "One record written to Sheet1"

response = MsgBox("Do you want to enter another record?", _
vbYesNo)

If response = vbYes Then
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""

TextBox1.SetFocus

Else
Unload Me
End If

End Sub

Private Sub CommandButton2_Click()
End
End Sub


Private Sub UserForm_Click()

End Sub


i have the form filling columns a,b and c... and i want the combo box to
fill column d.... how do i do that?

thanks!!

Emily