Saltar al contenido

Funcon Change en Userform Excel

publicado

Buenas tardes, tengo el siguiente problema:

Realice un Userform para que pase los datos a celdas de Excel, y en este userform en algunos TextBox utilice formulas manejando la funcion Change, el problema es que al colocar los datos en el userform todo lo hace bien y de hecho lo pasa a las celdas que corresponden pero detiene la macro al final, mandando error

"Se ha produciod el error 13 en tiempo de ejecucion: No coinciden los tipos y me ilumina en amarillo la primer linea de la siguiente macro:

Private Sub Gravamen_Change()

TextBox2.Text = (Format((Ingr.Text) * (Gravamen.Text) / 100, "#,##0.00"))

TextBox3.Text = (Format((Ingr.Text) + ((Ingr.Text) * (Gravamen.Text) / 100), "#,##0.00"))

TextBox4.Text = (Format((Ingr.Text) - Val(RetIVA.Text) - Val(RetISR.Text) + ((Ingr.Text) * (Gravamen.Text) / 100), "#,##0.00"))

End Sub

Espero me puedan ayudar, de antemano gracias por su atencion

Featured Replies

publicado

Hola! Rolex09. La expresión:

(Ingr.Text) * (Gravamen.Text) / 100

"no te va a andar", por la misma razón por la que jamás funcionaría:

("Cacho") * ("Rolex") / 100

¿Te das cuenta del por qué, verdad?...

Saludos, Cacho R.

publicado
  • Autor

Gracias por tu respuesta, de hecho te comento que si me realiza la operacion y tambien coloca el resultado en la celda indicada pero al final se detiene la macro, como puedo subir aqui el archivo para que lo veas?

publicado

Para subir un archivo tienes que mandar un mensaje.

Vas al modo "avanzado" y dentro de "Opciones adicionales" (a mitad de página) verás "Gestionar archivos adjuntos"...

El resto es intuitivo.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.