+ Reply to Thread
Results 1 to 5 of 5

Cascading Drop Down Boxes

Hybrid View

  1. #1
    Registered User
    Join Date
    11-14-2006
    Posts
    4

    Cascading Drop Down Boxes

    Hi,

    I New to Excel and was wondering if you could help me with a problem im having.

    Im makingg a spreadsheet on which you input Game data such as, Hardware type Game name rating etc(pointless i know but its for college)

    Anyway im trying to make it possible to select the platform and then a preset list of game comes up. But i jst cant get it to work. Ive attached my spreadsheet so u can have a look

    Thanks for any help

    Just so you know, This is the code ive attempted to use, but Excel doesnt like it.

    Sub ListBox14_Change()

    If DialogSheets("Enter Game").EditBox("10").Value = Sheets("Game Info").Range = "$E$22" Then
    DialogSheets("Enter Game").ListBoxes("14").Value = Sheets("Game Info").Range = "A$22$:$A$26"

    End If


    End Sub
    Attached Files Attached Files

  2. #2
    Forum Contributor
    Join Date
    08-02-2005
    Posts
    102
    Gibsie,

    Sorry mate, but you're attacking this from the wrong end! What you need are pulldown boxes that you construct using the FORMS option. To get to this, right click somewhere in a blank area of the tyoolbar and check (tick if you understand English) the FORMS selction. You will need to experiment a little (telling you how to do this bit would be cheating!), but this will make your program work

    Good luck
    Jon Quixley

  3. #3
    Registered User
    Join Date
    11-14-2006
    Posts
    4

    Cascading Drop Down Boxes

    well i still cant get it to work using drop down boxes, using similar code

    Sub DropDown96_Change()
    
    If DialogSheets("Enter Game").DropDown("95").Value = Sheets("Game Info").Range = ("E22") Then
    DialogSheets("Enter Game").DropDown("96").Value = Sheets("Game Info").Range = ("A22$:A26")
    
    End If
    End Sub
    I know im probably doing all this wrong as i have only been doing VB for bout 3 weeks :P


    nd im sure u can help me jst alittle

    anymore help appriciated!

  4. #4
    Registered User
    Join Date
    11-14-2006
    Posts
    4
    Select Case EditBox10.Value
    Case Range = "Game_Info!E22"
    EditBox15.RowSource = "Game_Info!A22:A26"
    Case Range = "Game_Info!E23"
    EditBox15.RowSource = "Game_Info!F22:F26"
    Case Range = "Game_Info!E24"
    EditBox15.RowSource = "Game_Info!A7:A11"
    Case Range = "Game_Info!E25"
    EditBox15.RowSource = "Game_Info!A32:A36"
    End Select
    Tried using Case with little success

    Can anyone help me ?

  5. #5
    Registered User
    Join Date
    11-14-2006
    Posts
    4
    Anyone?

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

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

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1