Problema con Next sin For en Excel 10
Compañeros no consigo resolver este problema que tengo. Bueno tengo un excel para hacer cuentas en el bar y resulta que tengo un botón que no se que pasa que ha dejado de funcionar y me pone Next sin For me imagino que se abra borrado algún comando o algo a pasado y no me deja utilizarlo os dejo la lista de la macro entera que sera alguna tontería yo no entiendo nada de esto y seria un alivio poder arreglar este problema.
Dejo una imagen
Private Sub boton_2_Click()
TextBox1.Text = Date - 1
End Sub
Private Sub BotonBorrar_Click()
UserForm1.Hide
ActiveCell.Offset(1, 0).Activate
End Sub
Private Sub BotonFecha_1_Click()
TextBox1.Text = Date
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
End Sub
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Range("a6:j50").Select
Do While (ActiveCell) <> Empty
ActiveCell.Offset(1, 0).Select
Loop
For i = 1 To 1000
If Cells(i + 5, 1).Value = "" Then
If Cells(i + 5, 1).Value = CDate(TextBox1) Then
If Cells(i + 5, 2).Value = TextBox2 Then
If Cells(i + 5, 3).Value = TextBox3 Then
If Cells(i + 5, 4).Value = TextBox4 Then
If Cells(i + 5, 5).Value = TextBox5 Then
If Cells(i + 5, 6).Value = TextBox6 Then
If Cells(i + 5, 7).Value = TextBox7 Then
Exit For
Next
End If
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
Application ScreenUpdating = True
End Sub
Private Sub LblFecha_Click()
End Sub
Private Sub LblGastos_Click()
End Sub
Private Sub LblIngresos_Click()
End Sub
Private Sub LblRecuento_Click()
End Sub
Private Sub TextBox6_Change()
End Sub
2 Respuestas
el exit for debe estar despues del next
Te anexo tu código corregido!
Private Sub boton_2_Click()
TextBox1.Text = Date - 1
End Sub
Private Sub BotonBorrar_Click()
UserForm1.Hide
ActiveCell.Offset(1, 0).Activate
End Sub
Private Sub BotonFecha_1_Click()
TextBox1.Text = Date
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
End Sub
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Range("a6:j50").Select
Do While (ActiveCell) <> Empty
ActiveCell.Offset(1, 0).Select
Loop
For i = 1 To 1000
If Cells(i + 5, 1).Value = "" Then
If Cells(i + 5, 1).Value = CDate(TextBox1) Then
If Cells(i + 5, 2).Value = TextBox2 Then
If Cells(i + 5, 3).Value = TextBox3 Then
If Cells(i + 5, 4).Value = TextBox4 Then
If Cells(i + 5, 5).Value = TextBox5 Then
If Cells(i + 5, 6).Value = TextBox6 Then
If Cells(i + 5, 7).Value = TextBox7 Then
Exit For
End If
End If
End If
End If
End If
End If
End If
End If
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
Application.ScreenUpdating = True
Next
End Sub
Private Sub LblFecha_Click()
End Sub
Private Sub LblGastos_Click()
End Sub
Private Sub LblIngresos_Click()
End Sub
Private Sub LblRecuento_Click()
End Sub
Private Sub TextBox6_Change()
End SubPor favor sustitúyelo todo y cualquier duda me comentas...
No olvides visitar mi canal en youtube
Me sale el siguiente error, he copiado y pegado todo el código tal cul.
No tengo ningún problema en enviarte el archivo original y que lo revises me harías un gran favor.
Dejo enlace del archivo
https://www.dropbox.com/s/qb2icny21gmlteh/MANHATTAN_CAJA.xlsm?dl=0#
Con gusto lo reviso y te confirmo!
Listo!
Da click en la siguiente liga para descargarlo:
Por favor chécalo y me confirmas!
Saludos.
No olvides suscribirte a mi canal