Listbox Column Move

[Wazntmeman]

Hello

**Confused**

I have 2 multiple column listbox's (listbox1 & 2). I am using a select/drag/drop function to move from listbox 1 to 2. I am attempting to move the selected line (3 columns) of the listbox. Both are set to 3 colums. How do I grab all three columns?

Private Sub ListBox2_BeforeDropOrPaste(ByVal Cancel As _
MSForms.ReturnBoolean, _
ByVal Action As Long, _
ByVal Data As MSForms.DataObject, _
ByVal X As Single, _
ByVal Y As Single, _
ByVal Effect As MSForms.ReturnEffect, _
ByVal Shift As Integer)
  
Cancel = True
Effect = fmDropEffectMove
Dim I
With ListBox1
    For I = 0 To .ListCount - 1
        If .Selected(I) Then
        
        ListBox2.AddItem .List(I)                        <----only 1st item?
    End If
Next
End With

[Ecniv]

Your first column is likely to be the Key ID column. So that is what is added.
To get to the other columns usually you need:

lstBox.column(0,1) 'first column, first row (data if you have title row)
lstBox.column(1,1) 'second column
lstBox.column(2,1) 'third column

May be slightly different in VB coding, but that should help.
I think it is in the help files/intellisense.