Extract value of the second column only

[crackwood01]

Hi Gus,

i have a 2 column listbox wich first column contains names and the second emails.

I wanna extract only the emails and send it as a list in a worksheet row ... that code worked when the column was a singlecolumn contaning emails but now i need to extract emails only help

how can i send the selected values to the DD column in the "Clients" Sheet!!

Private Sub Test()
Dim lItem As Long
    For lItem = 0 To ListBox2.ListCount - 1
        If ListBox2.Selected(lItem) = True Then
            Sheets("Clients").Range("DD65536").End(xlUp)(2, 1) = ListBox2.List(lItem)
            ListBox2.Selected(lItem) = False
        End If
    Next
End Sub

 

[DanteAmor]

Use:

Sheets("Clients").Range("DD65536").End(xlUp)(2, 1) = ListBox2.List([COLOR=#0000ff]lItem, 1[/COLOR])

 

[crackwood01]

Use:

Sheets("Clients").Range("DD65536").End(xlUp)(2, 1) = ListBox2.List([COLOR=#0000ff]lItem, 1[/COLOR])

thank u

 

[DanteAmor]

You're welcome.