Private Sub commandbutton1_click()

UserForm1.Show

For i = 1 To 100 Step 1

If Cells(i + 2, 2).Value = i Then

Cells(i + 2, 2).Value = i

Cells(i + 2, 3).Value = TextBox1.Text

Cells(i + 2, 4).Value = TextBox2.Text

Cells(i + 2, 5).Value = ComboBox1.Text

Cells(i + 2, 6).Value = TextBox3.Text

Cells(i + 2, 7).Value = TextBox4.Text

Cells(i + 2, 8).Value = TextBox5.Text

If ComboBox2.Text = " " Then

Cells(i + 2, 9).Value = "dentro"

Else

End If

Next

Exit For