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

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



"emmy128"

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

Hi,

Or this one:

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

--

Regards,

Halim


"emmy128" wrote:

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, i put this in, and its only filling d50....???

"Jim Cone" wrote:

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



"emmy128"

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

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"
wrote in message
Jim, i put this in, and its only filling d50....???



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

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

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

"Jim Cone" wrote:

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



"emmy128"

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