Data from user form to certain cell
 

I am trying to take a few items selected from a user form and inser
them into certain cells in a given worksheet. Below is the code,
think I am close however it does not work. Any suggestions?

Private Sub CommandButton1_Click()

Sheet1.Cells("F1").Value = ComboBox2.Text <<This is my issue
Sheet1.Cells("F2").Value = ComboBox2.Text <<This is my issue

MsgBox "One record written to Sheet1"

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

If response = vbNo Then
Unload Me
End If

End Su

--
parteegolfe
-----------------------------------------------------------------------
parteegolfer's Profile: http://www.excelforum.com/member.php...fo&userid=3195
View this thread: http://www.excelforum.com/showthread.php?threadid=52529

Data from user form to certain cell
 

Did you mean?

Worksheets("Sheet1").Cells("F1").Value = ComboBox2.Text

*** Sent via Developersdex http://www.developersdex.com ***

Data from user form to certain cell
 

I don't usually uses Cells. I use Offset. And I've discovered that Cells
will not take string. You would have to use an index or row column
number.


Worksheets("Sheets1").Cells(1,6) = ComboBox2.Text ' F1
Worksheets("Sheets1").Cells(2,6) = ComboBox2.Text ' F2

*** Sent via Developersdex http://www.developersdex.com ***

Data from user form to certain cell
 

when I entered this code I got a "sub or function not defined erro

--
parteegolfe
-----------------------------------------------------------------------
parteegolfer's Profile: http://www.excelforum.com/member.php...fo&userid=3195
View this thread: http://www.excelforum.com/showthread.php?threadid=52529

Data from user form to certain cell
 

Maybe I should pay closer attention to my typing. Sorry.

Try this.

Option Explicit

Private Sub UserForm_Initialize()
ComboBox2.AddItem "One"
ComboBox2.AddItem "Two"
ComboBox2.AddItem "Three"
End Sub

Private Sub CommandButton1_Click()

Dim response As String

Worksheets("Sheet1").Cells(1, 6).Value = ComboBox2.Text
Worksheets("Sheet1").Cells(2, 6).Value = ComboBox2.Text

MsgBox "One record written to Sheet1"

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

If response = vbNo Then
Unload Me
End If

End Sub




*** Sent via Developersdex http://www.developersdex.com ***