Desbordamiento en Macro

Solicito de su colaboración para saber por qué al ejecutar esta macro me arroja error en la linea que aparece subrayada y con negrita. Mil gracias por su oportuna y pronta colaboración.
Beatriz
Private Sub CommandButton1_Click()
Rem inserta un renglon
Selection.EntireRow.Insert
Rem Empty Limpia Los Textbox
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
Rem Textbox1SetFocus Envia el cursor al Textbox1 para volver a capturar los datos
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Range("a9").Select
ActiveCell.FormulaR1C1 = Val(TextBox1)
End Sub
Private Sub TextBox2_Change()
Range("b9").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("c9").Select
ActiveCell.FormulaR1C1 = Val(TextBox3)
End Sub
Private Sub TextBox4_Change()
Range("d9").Select
ActiveCell.FormulaR1C1 = Val(TextBox4)
TextBox5 = Val(TextBox4) / Val(TextBox3)
End Sub
Private Sub TextBox5_Change()
Range("e9").Select
ActiveCell.FormulaR1C1 = Val(TextBox5)
Rem aquí se crea la Formula
TextBox6 = Val(TextBox3) * Val(TextBox4)
End Sub
Private Sub TextBox6_Change()
Range("f9").Select
ActiveCell.FormulaR1C1 = Val(TextBox6)
TextBox6 = Val(TextBox3) * Val(TextBox4)
End Sub

1 Respuesta

Respuesta
1
No veo ninguna línea subrayada ni en negrita.
Si veo que tenés una última rutina, que se ejecuta al cambio en el textbox6
Pero dentro de esta misma rutina estás acumulando un valor a ese control, por lo que siempre está cambiándose
No sé muy bien que hará tu proceso pero tenés que buscar otro evento u otro momento para volcar el resultado de la suma.
Que pena Doña Elsa, el renglón que me arroja error ahora si es el que esta subrayado y en negrita
Private Sub CommandButton1_Click()
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox1.SetFocus
End Sub
Private Sub TextBox1_Change()
Range("a9").Select
ActiveCell.FormulaR1C1 = Val(TextBox1)
End Sub
Private Sub TextBox2_Change()
Range("b9").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("c9").Select
ActiveCell.FormulaR1C1 = Val(TextBox3)
End Sub
Private Sub TextBox4_Change()
Range("d9").Select
ActiveCell.FormulaR1C1 = Val(TextBox4)
TextBox5 = Val(TextBox4) / Val(TextBox3)
End Sub
Private Sub TextBox5_Change()
Range("e9").Select
ActiveCell.FormulaR1C1 = Val(TextBox5)
Rem aquí se crea la Formula
TextBox6 = Val(TextBox3) * Val(TextBox4)
End Sub
Private Sub TextBox6_Change()
Range("f9").Select
ActiveCell.FormulaR1C1 = Val(TextBox6)
End Sub
Como estás utilizando evento Change (Cambio en contenido del control), 1 rutina se relaciona con la otra y así varias situaciones pueden darte error.
Como Textbox5 es el resultado de una división, verificá el valor que tomaron los controles 4 y especialmente el 3
Cuando salta el error, presioná Depurar y colocá el cursor en cada argumento de la línea para observar el valor que tienen. Esto te dará una mejor idea de porqué el error.
Luego, el control 4 envía un resultado al control 5, se está produciendo un cambio en el 5 que a su vez tiene una rutina que ejecuta otra cosa ... y así.
Colocá puntos de interrupción en cada rutina, en las líneas que te dejo en negrita para que vayas viendo los valores que toman los distintos argumentos de las fórmulas, y de paso vas viendo cuándo se ejecuta cada subrutina.
Private Sub TextBox3_Change()
Range("c9").Select
ActiveCell.FormulaR1C1 = Val(TextBox3)
End Sub
Private Sub TextBox4_Change()
Range("d9").Select
ActiveCell.FormulaR1C1 = Val(TextBox4)
TextBox5 = Val(TextBox4) / Val(TextBox3)
End Sub
Private Sub TextBox5_Change()
Range("e9").Select
ActiveCell.FormulaR1C1 = Val(TextBox5)
' aquí se crea la Formula
TextBox6 = Val(TextBox3) * Val(TextBox4)
End Sub
Private Sub TextBox6_Change()
Range("f9").Select
ActiveCell.FormulaR1C1 = Val(TextBox6)
Sdos
Elsa
REcién leí tu comentario sobre los manuales en consulta anterior.
Desde tu país están optando por los correos MoneyGram y WesternUnion, el primero con cargos más accesibles creo.
La mitad de los gs corren por mi cuenta, por lo que solo me tenés que enviar 40 - 3 dól = 37 dól por 1 manual. Por la compra de 2 de ellos, te descuento el total de gs que quedan enteramente a mi cargo.
Escribime al correo que encontrarás en mi sitio y así me explayo un poco más en los detalles.
Sdos
Elsa mil gracias por la información, ya encontré el error y lo pude solucionar. Muchas gracias.
Por lo del libro, estaremos en contacto, ¿yo le escribo para cuadrar bien lo de la compra vale?
Beatriz

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como mirar la información de una celdaen un textbox

Soy yo de nuevo La situación es la siguiente: estoy trabajando en un formulario "Userform1", tengo un textbox llamado "textbox7_Change()" y una hoja llamada "VENTA", en la hoja hay una celda "c9" que tiene una fórmula. Deseo que el al momento de...
1 respuesta

Introducir datos a celdas mediante formularios

Estaba viendo tu página y tengo la siguiente duda, tengo archivo excel con columnas ya definidas con encabezados, quiero introducir datos mediante un formularios, hice un macro introduce los datos en cada celda pero le doy grabar y da inserta un fila...
1 respuesta

Impedir textbox vacíos en userform

Mi problema es que tengo un userform que copia los datos de los textbox a celdas de una hoja de excel, y que al apretar un botón, ejecuta una macro usando esos datos, pero si dosn textbox en concreto no está lleno antes de apretar el botón, el...
1 respuesta

Entrada reservas hoteles: Crear formulario para rellenar distantas hojas según fechas.

He creado una hoja de Excel para gestionar las reservas de un hotel pequeño. El documento consta de 31 hojas, que coinciden con los días del mes en las que tengo información de cada habitación y reservas. Me gustaría crear un formulario donde entrar...
1 respuesta

Insertar datos mediante un textbox

Soy nuevo en esto de las macros y seguramente mi pregunta sea muy básica pero no encuentro la solución... Tengo una hoja con una base de datos de cinco campos. Los datos los quiero insertar mediante textbox. He hecho un formulario con cinco textbox...
1 respuesta

Macro para bajar renglones

Me podrías ayudar con una macro que realize la siguiente función: Tengo un useform que pone datos en la celdas, y le hice un botón de aceptar, lo que quiero que haga ese botón es que me pocisione en la siguiente celda, por ejemplo: Escribo datos en...
2 respuestas

Si se deja un Textbox en blanco

Tengo este código en un formulario de excel: Private Sub TextBox1_Change() largo_entrada = Len(Me.TextBox1) Select Case largo_entrada Case 2 Me.TextBox1.Value = Me.TextBox1.Value & "/" Case 5 Me.TextBox1.Value = Me.TextBox1.Value & "/2008"...
2 respuestas

Ingr datos en userform y guardarlos en otro libro

Tengo este código que copie de alguna pregunta la cual me resulta muy útil, sin embargo, quisiera que al capturar los datos desde el libro donde abro el userform los guarde en otro libro. Esto lo uso para una lista de clientes. Saludos cordiales....
2 respuestas

Formularios VBA en excel

Estoy realizando un directorio y quisiera que a la hora de introducir mis datos en el formulario que ya he realizado me los clasifique en las distintas hojas que he creado para cada sector pero que tambien se quede registrado en la hoja principal que...
1 respuesta

Actualizar caption de label con valor de celda

Tengo un userform que copia los valores introducidos en los textbox a celdas de una hoja. El problema es que la introducir un dato en el textbox3, la hoja devuelve un valor (nombre de producto) en otra celda de esa hoja. Necesito que antes de...
1 respuesta