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
Copyright © 2024 Q2A.ES - All rights reserved.
Answers & Comments
Te falta al final next i que este idioma de programacion requiere para determinar que queda dentro del bucle.
If ComboBox2.Text = " " Then
Cells(i + 2, 9).Value = "dentro"
Else
End If
Exit For
Next i
Saludos
Antonio
no se