Posts by ikkenieikke

    I’m a VBA newbie, and at the moment I’ve got pretty stuck with the following...

    I’ve got 4 Named Ranges (Sheet ZIJDE) that I want to implement like this:

    col 1: Zijde -> Short version only to display in a cell (Column H)
    col 2: Zijde_NL -> Long Dutch Version Merged into Sheet WEBSHOP-NL - col AG + Populate a Listbox
    col 3: Zijde_FR -> Long French Version Merged into Sheet WEBSHOP-FR - col AG
    col 4: Zijde_EN -> Long English Version Merged into Sheet WEBSHOP-EN - col AG

    [ATTACH=JSON]{"alt":"Click image for larger version Name:\tImages.jpg Views:\t1 Size:\t100.6 KB ID:\t1198755","data-align":"none","data-attachmentid":"1198755","data-size":"full","title":"Images.jpg"}[/ATTACH]

    I've already managed to populate a

    listbox (Sheet ONDERDELEN - Column H) with the
    Long Description (from Zijde_NL - col 2) , but cannot find a way to fill the
    Active Cell with the Short Version (Sheet Zijde - col 1) after the
    Listbox Long Description is selected.

    And at the same time in the background I want to merge the translated Long Version (Bold) of

    Dutch (Sheet WEBSHOP-NL – col AG), French (Sheet WEBSHOP-FR – col AG) & English (Sheet WEBSHOP-EN – col AG) version too.

    This is my code:

    Userform Listbox.xlsm

    Hopefully someone could help me on the right track? Thank you when responding.


    What I'm trying to achieve is to load a complete list (from a named range "koetswerk") and compare it with the values of an active cell (in row K) after clicking in it. If the values (Ex: SD, P, SUV) are equal to the ones in the complete list, then it should show a "checked" checkbox in Listbox_KW. The listbox can have multiple selections. What I've already found out is how to put the data in the active cell with the Sub cmdADD_Click().

    This is what I know is working:

    'Me.ListBox_KW.List = rngKWA.Value              '<--- LIST ALL FROM NAMED RANGE
    '.List = Split(CStr(ActiveCell.Value), ",")     '<--- LIST SPLITTED CELL VALUES

    I've started out with a For loop. How can the data be compared and .selected ?

    I'm a vba newbie and I'm struggling for days to find a solution that really works (searched many forums) for this. Thank you when responding.

    [ATTACH=JSON]{"alt":"Column K - List All","data-align":"none","data-attachmentid":"1198591","data-size":"custom","height":"367","title":"Koetswerk - Column K - List All.JPG","width":"300"}[/ATTACH]