View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
cht13er cht13er is offline
external usenet poster
 
Posts: 141
Default Checkboxes from the Forms Toolbar

Thank you, Tom and Dave.

I used the button and checkboxes from the forms toolbar, so I adjusted the
2nd batch of code that Dave supplied, with all the changes here that future
readers might find useful:

_!_!_!_!_!_!_!_!_!_!_!_!_!_!_!_!_!_!
Option Explicit
Sub RunUsingCheckbuttons()

'Declarations
Dim OWks As Worksheet 'This sheet is used to add a line item
Dim NWks As Worksheet 'This sheet stores all the items
Dim NumEntries As Integer 'The total number of entries
'Coolness!
Set OWks = Worksheets("Main Page")
Set NWks = Worksheets("Data")
'Get new number of entries
NumEntries = OWks.Cells(23, 3)
NumEntries = NumEntries + 1
OWks.Cells(23, 3).Value = NumEntries
'See if CheckBoxes are checked, move over data if they are
If OWks.CheckBoxes("Check Box 1").Value = xlOn Then 'First and Last Name
NWks.Cells(NumEntries + 1, 1).Value = OWks.Cells(4, 3).Value
NWks.Cells(NumEntries + 1, 2).Value = OWks.Cells(4, 4).Value
Else
NWks.Cells(NumEntries + 1, 1).Value = "Unknown"
NWks.Cells(NumEntries + 1, 2).Value = "Unknown"
End If
If OWks.CheckBoxes("Check Box 3").Value = xlOn Then 'Date of Birth
NWks.Cells(NumEntries + 1, 3).Value = OWks.Cells(7, 3).Value
Else: NWks.Cells(NumEntries + 1, 3).Value = "Unknown"
End If
If OWks.CheckBoxes("Check Box 4").Value = xlOn Then 'Time
NWks.Cells(NumEntries + 1, 4).Value = OWks.Cells(10, 3).Value
Else: NWks.Cells(NumEntries + 1, 4).Value = "Unknown"
End If
If OWks.CheckBoxes("Check Box 5").Value = xlOn Then 'Company
NWks.Cells(NumEntries + 1, 5).Value = OWks.Cells(13, 3).Value
Else: NWks.Cells(NumEntries + 1, 5).Value = "Unknown"
End If
'Go back to first page
OWks.Cells(1, 1).Select
End Sub
_!_!_!_!_!_!_!_!_!_!_!_!_!_!_!_!_!_!

And once again, I placed this code in a module and assigned the code to a
command button.

What this code now does for me is not very great - none of the cells are
reset...you could even just say "If cells are not "", then move the cell data
over to the next page" - but this was a great way for me to start thinking
about using checkboxes and about how to use commandbuttons properly.

Thanks a tonne for your help, Dave!
--
Chris Togeretz
Ontario, Canada