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

Daniel Cremin

Board Regular
Joined
Feb 23, 2002
Messages
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
 

Excel Facts

Which came first: VisiCalc or Lotus 1-2-3?
Dan Bricklin and Bob Frankston debuted VisiCalc in 1979 as a Visible Calculator. Lotus 1-2-3 debuted in the early 1980's, from Mitch Kapor.
Hey man,

Do you mean something like this?

Worksheets("Whatever").Range("A1").Value = Checkbox1
 
Upvote 0
yeah but can you rename the checkbox something like "Revise Thoroughly" and have Checkboxes("Revise Throughly) thanks for the help btw.
 
Upvote 0
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

ni****h desai
 
Upvote 0
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
 
Upvote 0

Forum statistics

Threads
1,213,534
Messages
6,114,185
Members
448,554
Latest member
Gleisner2

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top