using this code, i can get a userform listbox to populate an empty cell in a specific column. I tried adding another listbox and changing i to j to keep the listbox items independent, but the information specified as i populates the cell listbox1 should go to and with the cell listbox2 should populate also. What am i doing wrong?
Dim i As Long, txt As String, Flg As Boolean
With Me.ListBoxHow
For i = 0 To .ListCount - 1
If .Selected(i) Then
Flg = True
txt = txt & ", " & .List(i)
End If
Next
End With
If Flg Then
With Sheets("Data")
.Range("f" & .Rows.Count).End(xlUp).Offset(1).Value = Mid$(txt, 2)
End With
Bookmarks