combo box problem!

[Guest]

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

 

[Jim Cone]

Sheet1.Range("D50").Value = ComboBox1.Value
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"emmy128"
<[email protected]>
wrote in message
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

 

[Guest]

Hi,

Or this one:

if combobox1.value <> "" then _
LastRow.Offset(1, 3).Value = combobox1.value

 

[Guest]

Jim, i put this in, and its only filling d50....???

 

[Jim Cone]

Yes, that is what it does.
It is an example of placing the selected item from a combobox
onto a worksheet.
What do you want to happen when an item is selected in the combobox?

Do you want to place the entire list from the combobox onto the sheet?...
MyRange.Value = Combobox1.List

Do you want to fill a range with the selected item?...
MyRange.Value = Combobox1.Value

Note: MyRange is a single column range object with the same
number of cells as the number of items in the combobox.
--
Jim Cone
San Francisco, USA
http://www.officeletter.com/blink/specialsort.html



"emmy128" <[email protected]>
wrote in message
Jim, i put this in, and its only filling d50....???

 

[NickHK]

Sounds like you are expecting Excel to know that you want it to look up some
extra information for you.
Maybe VLOOKUP is what you need.

NickHK