Getting form list box results into columns on spreadsheet help.

[bphall]

Ok, so I was able to get my txt boxes to show up on my excel sheet, but the listboxes won't show up, I do have the option to select multiple selections with each list box.

Code is below...I appreciate the help once again.

Private Sub cmdSubmit_Click()
    
    Dim irow As Long
    Dim ws As Worksheet
    
    
    Set ws = Sheets("Results")
    
    
    irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    
    Application.ScreenUpdating = False
    
    With ws
    .Range("A" & irow) = TxtBxCompany.Value
    .Range("B" & irow) = TxtBxWellname.Value
    .Range("C" & irow) = TxtBxRun.Value
    .Range("D" & irow) = TxtBxCounty.Value
    .Range("E" & irow) = cbxDistrict.Value
    .Range("F" & irow) = cbxLocation.Value
    .Range("G" & irow) = TxtBxCustomer.Value
    .Range("H" & irow) = TxtBxPhone.Value
    .Range("I" & irow) = lstbxLoggingServiceType.Value
    .Range("J" & irow) = lstbxAcoustic.Value
    
    
    End With
   
    TxtBxCompany.Value = ""
    TxtBxWellname.Value = ""
    
    Application.ScreenUpdating = True
    Unload Me

    
End Sub

 

[bertie]

If you have the MultiSelect property enabled then you will need to loop through the ListBox and build up a text string for output.

For example, using your Accoustic Lixt box:

   [COLOR=darkblue]Dim[/COLOR] txt [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]String[/COLOR]
   [COLOR=darkblue]Dim[/COLOR] i [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Integer[/COLOR]
 
   [COLOR=darkblue]For[/COLOR] i = 0 [COLOR=darkblue]To[/COLOR] lstbxAcoustic.ListCount - 1
      [COLOR=darkblue]If[/COLOR] lstbxAcoustic.Selected(i) = [COLOR=darkblue]True[/COLOR] [COLOR=darkblue]Then[/COLOR]
         txt = txt & lstbxAcoustic.List(i) & " "
      [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
   [COLOR=darkblue]Next[/COLOR] i
 
   ws.Range("J" & irow).Value = txt