Results 1 to 3 of 3
  1. #1
    New Lounger
    Join Date
    May 2004
    Posts
    1
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Combo boxes (MS Office 2000)

    On a spreadsheet in cell D4 and D5 I have placed a Combo-boxs to have user select value.
    I have set the linked-cell in the combo-box properties to be D4 for one and D5 for the other.
    Now I want to copy column D to column E, F, and G and have the linked cells change accordingly E4 and E5, F4 and F5, G4 and G5.
    Is there any way to accomplish this copy automatically or do I have to go into the properties of each comb-box and change the linked cell address

  2. #2
    2 Star Lounger
    Join Date
    Jul 2001
    Location
    Kuala Lumpur , MALAYSIA
    Posts
    154
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Combo boxes (MS Office 2000)

    Just my 2 cent thought..

    I think you have to do it manually

  3. #3
    Gold Lounger
    Join Date
    Feb 2001
    Location
    Dublin, Ireland, Republic of
    Posts
    2,697
    Thanks
    1
    Thanked 0 Times in 0 Posts

    Re: Combo boxes (MS Office 2000)

    The following code might be help. You might need to change the Sheet name, "Sheet1".

    It requires that the top left of the combobox be located in the cell to be linked to.

    Sub SetComboLinkedCell()
    Dim obj As OLEObject
    For Each obj In Worksheets("Sheet1").OLEObjects
    If obj.progID = "Forms.ComboBox.1" Then
    obj.LinkedCell = obj.TopLeftCell.Address
    End If
    Next
    End Sub


    Andrew C

Posting Permissions

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