Excel Forum

Code: Select all

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell.Value = ListBox1.Value
ListBox1.Value = ""
ActiveCell.Offset(1, 0).Select
End Sub

Code: Select all

'Other...
ActiveCell.Value = Application.Index(Sheets("Data").Range("b2:b999"), ListBox1.ListIndex + 1)
ActiveCell.Offset(, 1).Value = Application.Index(Sheets("Data").Range("c2:c999"), ListBox1.ListIndex + 1)
ActiveCell.Offset(, 2).Value = Application.Index(Sheets("Data").Range("d2:d999"), ListBox1.ListIndex + 1)
'Other...