Populate a listbox with unique values from a range on a worksheet

Hi,

I am asking for help to do with populating a text box on a userform. I have a described example here and I am hoping someone can provide example VBA code based on this. For the purpose of this lets say that..............

• We have a range of data that exists in column A of a worksheet, the workbook is called 'example1', and the worksheet is called 'sheet1'.
• There is a header row that we want to ignore and the number of rows of data that exists may vary. So the range to look at is A2 down to the last row in column A that has data in it at the time.
• The data is text, not numerical values.
• Each different item of data that exists in this column will be there multiple times.
• We have a user form called 'userform1', and on it there is a text box called 'textbox1'.

I want to populate the text box with 1 x each item from column A of the worksheet, ignoring any duplicates (and ignoring the header row).

Examples of how best to achieve this would be very helpful and much appreciated.

Thanks in advance.

Send a short sample to prepare the text box for you

Assuming the source range is in column I and named Listdata as follow
ListData =OFFSET(Sheet1!$I$1,0,0,COUNTA(Sheet1!$I:$I),1)
use next code

Please Login or Register  to view this content.