Error en Textbox3
Buenas tardes, ¿serían tan amables y me pueden decir porque me da error lo siguiente?
Private Sub CommandButton1_Click()
Dim i As Integer
i = 1
Do While Not IsEmpty(Cells(i, "A"))
i = i + 1
Loop
Cells(i, "A").Value = Me.TextBox1.Value
Cells(i, "B").Value = Me.TextBox2.Value
Cells(i, "C").Value = Me.TextBox3.Value
Cells(i, "D").Value = Me.TextBox4.Value
Cells(i, "E").Value = Me.TextBox5.Value
Cells(i, "G").Value = Me.TextBox6.Value
Cells(i, "H").Value = Me.TextBox7.Value
Cells(i, "F").Value = Me.ComboBox1.Value
Me.TextBox1.Value = Empty
Me.TextBox2.Value = Empty
Me.TextBox3.Value = Empty
Me.TextBox4.Value = Empty
Me.TextBox5.Value = Empty
Me.TextBox6.Value = Empty
Me.TextBox7.Value = Empty
Me.ComboBox1.Value = Empty
End Sub
Private Sub TextBox2_Change()
TextBox3.Value = TextBox2.Value - (TextBox2.Value * 0.4)
TextBox4.Value = TextBox2.Value - (TextBox2.Value * 0,6)
End Sub
La linea que esta en negrita me da el error.
Gracias y saludos
Juan manuel
Private Sub CommandButton1_Click()
Dim i As Integer
i = 1
Do While Not IsEmpty(Cells(i, "A"))
i = i + 1
Loop
Cells(i, "A").Value = Me.TextBox1.Value
Cells(i, "B").Value = Me.TextBox2.Value
Cells(i, "C").Value = Me.TextBox3.Value
Cells(i, "D").Value = Me.TextBox4.Value
Cells(i, "E").Value = Me.TextBox5.Value
Cells(i, "G").Value = Me.TextBox6.Value
Cells(i, "H").Value = Me.TextBox7.Value
Cells(i, "F").Value = Me.ComboBox1.Value
Me.TextBox1.Value = Empty
Me.TextBox2.Value = Empty
Me.TextBox3.Value = Empty
Me.TextBox4.Value = Empty
Me.TextBox5.Value = Empty
Me.TextBox6.Value = Empty
Me.TextBox7.Value = Empty
Me.ComboBox1.Value = Empty
End Sub
Private Sub TextBox2_Change()
TextBox3.Value = TextBox2.Value - (TextBox2.Value * 0.4)
TextBox4.Value = TextBox2.Value - (TextBox2.Value * 0,6)
End Sub
La linea que esta en negrita me da el error.
Gracias y saludos
Juan manuel
1 Respuesta
Respuesta de snd_alx
1