Where am I going wrong? CBOBox Loop

[sthrncaliguy]

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

 

[sulakvea]

remove this line and try again..

Dim ctl As Control, cboBox As ComboBox

P.S. ignore that - what is the error you're getting?

 

[sthrncaliguy]

remove this line and try again..

Dim ctl As Control, cboBox As ComboBox

P.S. ignore that - what is the error you're getting?

I was able to get it working with the below code:

Private Sub CommandButton2_Click()
Dim ws As Worksheet
Dim Nextrow As Integer
 
Set ws = Worksheets("DTable")
 
ws.Range("A5:A20").ClearContents
For i = 1 To 10
    If IsEmpty(Me.Controls("ComboBox" & i)) = False Then
        Nextrow = ws.Range("A100").End(xlUp).Row + 1
        ws.Cells(Nextrow, 1).Value = (Me.Controls("ComboBox" & i))
         End If
Next i
 
End Sub