View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default Adding UserForm Data to Worksheet

Each checkbox is independent of the other checkboxes?

If that's true, I'd just use a separate field for each of the checkboxes:

ws.Cells(iRow, 5).Value = Me.checkbox1.Value
ws.Cells(iRow, 6).Value = Me.checkbox2.Value
ws.Cells(iRow, 7).Value = Me.checkbox3.Value

(change the columns and the names of the checkboxes to what you need)

TotallyConfused wrote:

I hope someone can please help me with this. I have a userform with a
multiplage that consists of 4 pages. My controls consists mainly of text
boxes and Frames with checkboxes. I need to know how to add the checkboxes
to the worksheet. below is a sample of the code I have to add text boxes but
I do not know how to add check boxes. Some of the frames contain a couple of
check boxes to some frames containing over ten check boxes. Some of the
frames you just choose one of the check boxes and in some instances some of
the frames the user may need to check off several check boxes. How do I
incorporate this into my code below? If you can provide a sample that would
be very helpful. Thank you in advance for any help you can provide. Thank
you.

Private Sub CommandButton7_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("ReqInfo")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtReqDate.Value
ws.Cells(iRow, 2).Value = Me.txtFNM.Value
ws.Cells(iRow, 3).Value = Me.txtLNM.Value
ws.Cells(iRow, 4).Value = Me.txtemail.Value

'clear the data
Me.txtReqDate.Value = ""
Me.txtFNM.Value = ""
Me.txtLNM.Value = ""
Me.txtemail.Value = ""

Me.txtReqDate.SetFocus

End Sub


--

Dave Peterson