+ Reply to Thread
Results 1 to 2 of 2

Thread: Are combo boxes only for one cell or can I use them for a whole worksheet column?

  1. #1
    Registered User
    Join Date
    06-29-2011
    Location
    Bangkok
    MS-Off Ver
    Excel 2003
    Posts
    1

    Are combo boxes only for one cell or can I use them for a whole worksheet column?

    Hi,
    I have created a dropdown list of more than 4,000 clients in Excel. With the dropdown list, you need to click on the arrow and scroll down to your client name. This is not ideal when you have 4,000 entries...
    I browsed the web to find a solution to my problem and I found out I could create a Combo box, which I did. A Combo box is great in the sense that you can either user the dropdown list arrow or type the first letter of your client name.
    The only problem I have is that I have the feeling a combo box can be used for a one and unique cell only. In my case, I want to use the combo box for a whole column of the worksheet (e.g. I have 200 jobs, in 200 rows of my Excel sheet, and to all these 200 jobs, I want to add a client from the combo box / dropdown list.
    Is this possible? Am I missing something? If it's not possible, this is a shame and I guess I'll have to use Access then.

    Many thanks for your help

  2. #2
    Forum Guru Palmetto's Avatar
    Join Date
    04-04-2007
    Location
    South Eastern, USA
    MS-Off Ver
    XP, 2007
    Posts
    3,521

    Re: Are combo boxes only for one cell or can I use them for a whole worksheet column?

    A single combobox can be used for the column (or event the worksheet - though it may not be practical).

    I would opt for using a combobox from the Active-X controls and set its visible property to true when the active cell in a specific range of cells and set the visible propert to false when the active cell is out side of the target range.

    You must the worksheet_selectionchange event

    basic code

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
        With Me
            If Not Intersect(Target, .Range("A1:A200")) Is Nothing Then
                .ComboBox1.Visible = True
            Else
                .ComboBox1.Visible = False
            End If
        End With
    
    End Sub
    Palmetto

    Do you know . . . ?

    You can leave feedback and add to the reputation of all who contributed a helpful response to your solution by clicking the star icon located at the left in one of their post in this thread.

+ 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.2.0