try: Private Sub CommandButton1_Click() Dim item, rng As Excel.Range For item = 0 To ListBox1.ListCount - 1 If Me.ListBox1.Selected(item) = True Then Set rng = Sheet2.Range("A" & Rows.Count). _ End(xlUp).Offset(1, 0) rng.Value = Me.ListBox1.List(item, 0) rng.Offset(, 1) = Me.ListBox1.List(item, 1) End If Next End Sub
regards r 2010/10/26 neil johnson <neil.jh...@googlemail.com> > > Hi Everyone, > > I need your help. I make listbox using user form in excel . in listbox > there is data from sheet 3 . now i transfer selected data to sheet 2 . it is > working but not in proper manner . when i select data it shows data in cell > A range not completely . Please help me > > Thanks > > -- > > ---------------------------------------------------------------------------------- > 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/pages/discussexcelcom/160307843985936?v=wall&ref=ts > -- ---------------------------------------------------------------------------------- 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/pages/discussexcelcom/160307843985936?v=wall&ref=ts