Listbox Data in UserForm Not Passing to Spreadsheet

Where on which worksheet do you want to write the data selected from the listboxes? Are the listboxes single-select or multi-select?

It would be extremely helpful to see your file, or at least the code you have that already works.

The paper clip icon does not work for attachments. To attach a file, under the text box where you type your reply click the Go Advanced button. On the next screen scroll down and click on Manage Attachments, which will show a pop-up window to Select and Upload a file. Then close the window.

The code to push the data is just:
Sheets("Proposals").Range("Data_Start").Offset(TargetRow, 14).Value = list_PRC

It matches the code to push data for a text box (that does pass the data correctly):
Sheets("Proposals").Range("Data_Start").Offset(TargetRow, 0).Value = txt_ProposalID

I think the issue is the value I'm passing - it should be a string since it's a multi-selection list-box, yes? I'm trying this code to determine the proper string value for the field:

Private Sub list_PRC_Click()    [That shouldn't be "click" as it's a list-box, not a button. should it be "change"? or "enter"?]

Dim list_PRCStr As String

list_PRCStr = ""

For i = 0 To (list_PRC.Item.Count - 1)
    If list_PRC.Selected(i) Then
     list_PRCStr = list_PRCStr & list_PRC.Items.Item(i) & "| "
    End If
Next

End Sub

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #2 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer


And then the code to pass the data should be this?
Sheets("Proposals").Range("Data_Start").Offset(TargetRow, 14).Value = list_PRCStr

Originally Posted by jd_now

The code to push the data is just:
Sheets("Proposals").Range("Data_Start").Offset(TargetRow, 14).Value = list_PRC

This code uses the list itself, rather than the string you built, which is why it doesn't work. Your code below is the right idea but you will need to declare list_PRCStr in a place where is it visible to both list_PRC_Change (yes, you do want Change instead of Click) and the line of code above.

Private Sub list_PRC_Change()

list_PRCStr = ""

For i = 0 To (list_PRC.ListCount - 1)
    If list_PRC.Selected(i) Then
     list_PRCStr = list_PRCStr & list_PRC.List(i) & "| "
    End If
Next

End Sub

And then the code to pass the data should be this?

Sheets("Proposals").Range("Data_Start").Offset(TargetRow, 14).Value = list_PRCStr

Yes. Where is this code?

Originally Posted by torachan

Without a desensitised upload of your actual workbook it is unlikely that a solution will happen in the near future.
Your code does not make sense and is unlikely to work no matter what combinations of guesswork are employed.
torachan.

This is a bit pessimistic. The code has a couple of errors but makes perfect sense in light of what the OP has explained that he wants to do.

You could put something like this in the Listboxes change event.

Private Sub ListBox1_Change()
    Dim i As Long, strValue As String
    Const Delimiter As String = "|"
    With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then strValue = strValue & Delimiter & .List(i)
        Next i
        .Tag = Mid(strValue, Len(Delimiter) + 1)
    End With
End Sub

And later, when writing to the sheet, code like this

Range("A1").Value = ListBox1.Tag

I do notice that your existing code is using the .Item property of a Listbox. I believe that the .List property is the one you are looking for.