Works for me. Put a break point onto the last line and check the array data.
Daniel De : excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] De la part de Richard Envoyé : lundi 13 juin 2011 22:14 À : excel-macros@googlegroups.com Objet : $$Excel-Macros$$ List Box I am trying to populate a list box with the results of a query. I have created the following code, which only populates the first column of a two column listbox. The items in MyArray are present for both bolumns. Dim MyArray() ReDim MyArray(mycount, 1) usrGLDist.lstOutput.ColumnCount = 2 For i = 0 To rst.Count - 1 MyArray(i, 0) = rst.Value("descr") MyArray(i, 1) = rst.Value("pcamt") rst.MoveNext Next i usrGLDist.lstOutput.List() = MyArray Thanks in advance for any help. Rich -- ---------------------------------------------------------------------------- ------ Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at <http://exceldailytip.blogspot.com> http://exceldailytip.blogspot.com To post to this group, send email to <mailto:excel-macros@googlegroups.com> excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link <http://www.facebook.com/discussexcel> http://www.facebook.com/discussexcel -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel
