How to loop through words in listbox

[João Sequeira]

Hello,

2nd time here today nagging you all

What I'm looking for is: For each word in listbox find the word in the specified range, and copy a textbox value to the found column first empty cell.

I get exacly that result with the first item of the listbox but it doesnt work with the second, or third, so on and so forth. Plus it pastes the textbox value twice.

My code so far:

Dim rng As Range
Set rng = Sheets("LISTS").Range("1:1")
For r = 0 To lbADD.ListCount - 1
        lbADD.Selected(r) = True
    Next r
For i = 0 To lbADD.ListCount - 1
        If lbADD.Selected(i) = True Then
        rng.Find (i)
        Selection.EntireColumn.Select
        Selection.Find("").Select
        ActiveCell = formADDENT.tNAME
    End If
Next i

Any help is appreciated

Cheers,
João

 

[vaskov17]

try removing the if condition in the second loop

 

[João Sequeira]

Cheers vaskov!!

That did it.
Thank you so much!