Need to boost the visibility of your question for solutions? Use the Experts Exchange Help Bell to confirm priority levels and contact subject-matter experts for question attention. Check out this how-to article for more information.
Private Sub Command2_Click() List1.Clear List1.AddItem file_supply_chain List1.AddItem "Vendor Division: " & vendor_div.Text List1.AddItem "Vendor name: " & vendor_name.Text Dim buf As String Dim i As Long For i = 0 To List1.ListCount - 1 buf = buf + List1.List(i) buf = buf + vbCrLf Next Clipboard.Clear Clipboard.SetText buf End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.