Listbox

[NIPUL JARIWALA]

I want if sheet8.cells(Y,20) is in listbox7's column20
Then it should not be added in listbox7
Please help me.

Dim X, Y As Integer
For X = 0 To ListBox8.ListCount - 1
    If ListBox8.Selected(X) Then
            For Y = 3 To Sheet8.Range("a1048576").End(xlUp).Row
            If Sheet8.Cells(Y, 1) = ListBox8.List(X, 0) Then
                AI = ListBox7.ListCount
                ListBox7.AddItem
                ListBox7.List(AI, 0) = Sheet8.Cells(Y, 1)
            End If
            Next Y
    End If
Next X

 

[DanteAmor]

I want if sheet8.cells(Y,20) is in listbox7's column20

According to your code, in listbox7 you are only adding one column. But your question you want to compare column 20.
You could explain with examples what you want to do.

Another thing, you want to pass data from listbox8 to listbox7, in listbox8 can you select several items or only one?

 

[NIPUL JARIWALA]

Thank you for your reply.
I got the solution.
My friend give me a solution.

Thank you again.