Home |
Search |
Today's Posts |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Forms - Checkboxes | Excel Worksheet Functions | |||
creating checkboxes from forms tool bar | Excel Worksheet Functions | |||
Forms control checkboxes on charts | Excel Programming | |||
Excel VBA Forms and multiple checkboxes | Excel Programming | |||
Can you hide forms checkboxes | Excel Programming |