sthrncaliguy
Board Regular
- Joined
- Jul 28, 2009
- Messages
- 213
Private Sub CommandButton2_Click()
Dim ws As Worksheet
Dim myList As String
Dim ctlName As String
Dim ctl As Control, cboBox As ComboBox
Set ws = Worksheets("D_Table")
For Each cboBox In UserForm1.Controls
If cboBox.Value <> "" Then
nextrow = ws.Range("A100").End(xlUp).Row + 1
ws.Cells(nextrow, 1).Value = cboBox.Value
End If
Next
End Sub
Dim ws As Worksheet
Dim myList As String
Dim ctlName As String
Dim ctl As Control, cboBox As ComboBox
Set ws = Worksheets("D_Table")
For Each cboBox In UserForm1.Controls
If cboBox.Value <> "" Then
nextrow = ws.Range("A100").End(xlUp).Row + 1
ws.Cells(nextrow, 1).Value = cboBox.Value
End If
Next
End Sub