LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #3   Report Post  
Posted to microsoft.public.excel.programming
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

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Forms - Checkboxes Jane Excel Worksheet Functions 3 October 3rd 06 02:21 PM
creating checkboxes from forms tool bar KB Excel Worksheet Functions 2 April 25th 06 03:53 AM
Forms control checkboxes on charts Tom Ogilvy Excel Programming 2 September 14th 04 12:35 AM
Excel VBA Forms and multiple checkboxes Francis de Brienne Excel Programming 0 August 25th 04 09:00 PM
Can you hide forms checkboxes Matt Excel Programming 2 January 10th 04 06:32 PM


All times are GMT +1. The time now is 12:42 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"