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
Respuesta de Raúl Guerrero
1 respuesta más de otro experto
Respuesta de Manuel Escalona