List Box or Check Box or Option Buttons - Which dyou reckon
MZ Tools makes life easier for the Excel VBA coder
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 10 of 10

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

  1. #1
    Board Regular
    Join Date
    Feb 2002
    Posts
    64
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

     
    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 ]

  2. #2
    Board Regular
    Join Date
    Feb 2002
    Posts
    64
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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!!!

  3. #3
    Board Regular
    Join Date
    Feb 2002
    Posts
    64
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

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

  4. #4
    Board Regular
    Join Date
    Feb 2002
    Posts
    64
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    can ne one help today?

  5. #5
    Board Regular
    Join Date
    Feb 2002
    Location
    Where the wild roses grow
    Posts
    285
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Hey man,

    Do you mean something like this?

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


  6. #6
    Board Regular
    Join Date
    Feb 2002
    Posts
    64
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

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

  7. #7
    Board Regular
    Join Date
    Feb 2002
    Posts
    64
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    ne one on now know

  8. #8
    Board Regular
    Join Date
    Feb 2002
    Posts
    64
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    still no one?

  9. #9
    Board Regular
    Join Date
    Feb 2002
    Location
    Ahmedabad Gujarat
    Posts
    303
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

  10. #10
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Sunny, spring-like Hull
    Posts
    3,339
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

      
    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

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

 

 
DMCA.com