List Box or Check Box or Option Buttons - Which dyou reckon

Daniel Cremin · Mar 13th, 2002, 04:01 PM

Hi im designing a worksheet based wizard - one of the features is one where i have to select the solution or solutions that apply to a student in need - they are Revise more thorougly, Attend Lessons, Review the Notes at home, Change Examination Approach, Pay attention in class and ALL of these - sometimes it might involve only selecting one of these other times 3 or 4 - i cant use option buttons, as only one can be picked at a time - VBA will make the equivalent text in an underlying worksheet go Boldened Black if the Control is entered in the affirmative - I need to know if i choose to use tick boxes the code needed to be able to make a cell do something if a specifically named check box is set to true - can i use Case Select for a form using the Sheets("Whatever"). CheckBox("the name of it". Value= True - what is the code and dyou reckon i can get away with a simple series of Case Select statements with End Selects put after each - remember there are more than one check box to be analysed by the macro.

Thanks so much to ne one who can help out

[ This Message was edited by: Daniel Cremin on 2002-03-13 15:21 ]

Daniel Cremin · Mar 13th, 2002, 04:11 PM

has ne body ne clue at all thats on now?

Daniel Cremin · Mar 13th, 2002, 04:22 PM

so what no one knows - i know i sound a bit pushy but no one EVER answers any of my posts.

Daniel Cremin · Mar 14th, 2002, 01:04 AM

can ne one help today?

Audiojoe · Mar 14th, 2002, 02:35 AM

Hey man,

Do you mean something like this?

Worksheets("Whatever").Range("A1").Value = Checkbox1

Daniel Cremin · Mar 14th, 2002, 12:28 PM

yeah but can you rename the checkbox something like "Revise Thoroughly" and have Checkboxes("Revise Throughly) thanks for the help btw.

Daniel Cremin · Mar 14th, 2002, 12:41 PM

ne one on now know

Daniel Cremin · Mar 15th, 2002, 02:13 AM

still no one?

nisht · Mar 15th, 2002, 06:21 AM

Daniel,

I have a example worksheet on my website

you can download that sheet.
name of the file is "resultsheet"
secondly i had written a function for an
teacher belonging to norht ireland.
I think your problem is something like that.

write to me at nisht@pexcel.com what exactly you want.

you can download the file from

http://www.pexcel.com/download.htm

nishith desai

Mudface · Mar 15th, 2002, 06:37 AM

How about something like (modify as necessary): -

Private Sub CommandButton1_Click()

Dim c As Control
Dim x As Integer

For Each c In UserForm1.Controls
If TypeName(c) = "CheckBox" And c.Value = True Then
x = x + 1
ActiveSheet.Range("A" & x).Value = c.Caption
End If
Next c

End Sub

Mar 13th, 2002, 04:11 PM	#2
Daniel Cremin Board Regular Join Date: Feb 2002 Posts: 64	has ne body ne clue at all thats on now? __________________ The dialog-sheet (Pre 97) obsessed lad who loves to get around probs like not being able to change background colours. Crap otherwise in Excel!!!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 13th, 2002, 04:01 PM	#1
Daniel Cremin Board Regular Join Date: Feb 2002 Posts: 64	Hi im designing a worksheet based wizard - one of the features is one where i have to select the solution or solutions that apply to a student in need - they are Revise more thorougly, Attend Lessons, Review the Notes at home, Change Examination Approach, Pay attention in class and ALL of these - sometimes it might involve only selecting one of these other times 3 or 4 - i cant use option buttons, as only one can be picked at a time - VBA will make the equivalent text in an underlying worksheet go Boldened Black if the Control is entered in the affirmative - I need to know if i choose to use tick boxes the code needed to be able to make a cell do something if a specifically named check box is set to true - can i use Case Select for a form using the Sheets("Whatever"). CheckBox("the name of it". Value= True - what is the code and dyou reckon i can get away with a simple series of Case Select statements with End Selects put after each - remember there are more than one check box to be analysed by the macro. Thanks so much to ne one who can help out [ This Message was edited by: Daniel Cremin on 2002-03-13 15:21 ]

Mar 13th, 2002, 04:22 PM	#3
Daniel Cremin Board Regular Join Date: Feb 2002 Posts: 64	so what no one knows - i know i sound a bit pushy but no one EVER answers any of my posts.

Mar 14th, 2002, 01:04 AM	#4
Daniel Cremin Board Regular Join Date: Feb 2002 Posts: 64	can ne one help today?

Mar 14th, 2002, 02:35 AM	#5
Audiojoe Board Regular Join Date: Feb 2002 Location: Where the wild roses grow Posts: 285	Hey man, Do you mean something like this? Worksheets("Whatever").Range("A1").Value = Checkbox1

Mar 14th, 2002, 12:28 PM	#6
Daniel Cremin Board Regular Join Date: Feb 2002 Posts: 64	yeah but can you rename the checkbox something like "Revise Thoroughly" and have Checkboxes("Revise Throughly) thanks for the help btw.

Mar 14th, 2002, 12:41 PM	#7
Daniel Cremin Board Regular Join Date: Feb 2002 Posts: 64	ne one on now know

Mar 15th, 2002, 02:13 AM	#8
Daniel Cremin Board Regular Join Date: Feb 2002 Posts: 64	still no one?

Mar 15th, 2002, 06:21 AM	#9
nisht Board Regular Join Date: Feb 2002 Location: Ahmedabad Gujarat Posts: 303	Daniel, I have a example worksheet on my website you can download that sheet. name of the file is "resultsheet" secondly i had written a function for an teacher belonging to norht ireland. I think your problem is something like that. write to me at nisht@pexcel.com what exactly you want. you can download the file from http://www.pexcel.com/download.htm nishith desai

Mar 15th, 2002, 06:37 AM	#10
Mudface MrExcel MVP Join Date: Feb 2002 Location: Sunny, spring-like Hull Posts: 3,339	How about something like (modify as necessary): - Private Sub CommandButton1_Click() Dim c As Control Dim x As Integer For Each c In UserForm1.Controls If TypeName(c) = "CheckBox" And c.Value = True Then x = x + 1 ActiveSheet.Range("A" & x).Value = c.Caption End If Next c End Sub