Add an option from a Listbox to a cell & translated versions to different sheets

  • Hi,
    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.

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!