Error, no encuentro porque macro me da un error

[juan619ito]

Beunas noches.

Tengo un formulario en el cual llevo trabajando algunos días, bueno bastantes.

Lo que pasa es que tengo una macro que guarda los datos del formulario a una hoja de excel,

pero al darle clic en registrar me sale un error "Se a producido el error 13 en tiempo de ejecucion, No coiciden los tipos"

Si alguien pudiese revisar mi archivo para decirme en que estoy mal.

Se los agradezco.

[juan619ito]

Perdon, dejo mi archivo.

Ejemplo.rar

[Invitado jorgetchake]

Estimado Juan,...

Pienso que se debe a que quieres mover a una celda convirtiendo un texto en vez de un valor numérico.

Prueba modificando por ejemplo (ActiveCell.Offset(0, 2) = CDbl(Val(TextBox17))

Como ves le agregué el Val al textbox .

Es lo único que llegué a ver,

Cordiales saludos

[bigpetroman]

amigo, cuando te salga ese mensaje le das al botón Depurar, y veras que la ejecución del código queda parado en la fila donde está el error (o problema), y así puedes analizar a ver en que has fallado, y si le das F8 puedes ir ejecutando el código paso a paso para ver todo lo que realiza cada línea de codigo.

en este caso el error sucede por esto

ActiveCell.Offset(0, 1) = CDbl(TextBox2)

estas convirtiendo lo que está en el TextBox2 a número tipo doble, y el textbox tiene el simbolo "$" y por eso da el error ya que lo considera un string que no puede ser convertido a numero, intenta con esto

ActiveCell.Offset(0, 1) = CDbl(Replace(TextBox2, "$", ""))

suerte

[Invitado jorgetchake]

Estimado Juan

Olvidé sugerirte que para mi lo mejor sería controlar la digitación a que sea exclusivamente numérica,... usando IsNumeric en cada textbox,...

Saludos

[Antoni]

Estimado Juan

Olvidé sugerirte que para mi lo mejor sería controlar la digitación a que sea exclusivamente numérica,... usando IsNumeric en cada textbox,...

Saludos

Private Sub TextBox1_Change()


  If TextBox1 = "" Then Exit Sub

  If IsNumeric(TextBox1) = False Then

      Beep

      If Len(TextBox1) > 1 Then

        TextBox1 = Left(TextBox1, Len(TextBox1) - 1)

      Else

      TextBox1 = ""

      End If

  End If

End Sub[/CODE]

[juan619ito]

Amigo "jorgetchake"Me funciono tu respuesta, muchas gracias a ti y a los que se molestaron en apoyarme.

Gracias

[juan619ito]

A un me bota un error en este

Private Sub TextBox17_Change()

TextBox3.Text = (CCur(TextBox2.Text) - CCur(TextBox17.Text))
TextBox3 = Format(TextBox3, "$#,###,###.00")
End Sub[/PHP]

Igual error 13 en tiempo de ejecucion, al dar clic en el boton de registrar.

Espero me sigan ayudando

[Antoni]

amigo, cuando te salga ese mensaje le das al botón Depurar, y veras que la ejecución del código queda parado en la fila donde está el error (o problema), y así puedes analizar a ver en que has fallado, y si le das F8 puedes ir ejecutando el código paso a paso para ver todo lo que realiza cada línea de codigo.

en este caso el error sucede por esto

ActiveCell.Offset(0, 1) = CDbl(TextBox2)

estas convirtiendo lo que está en el TextBox2 a número tipo doble, y el textbox tiene el simbolo "$" y por eso da el error ya que lo considera un string que no puede ser convertido a numero, intenta con esto

ActiveCell.Offset(0, 1) = CDbl(Replace(TextBox2, "$", ""))

suerte

Estimado Juan

Olvidé sugerirte que para mi lo mejor sería controlar la digitación a que sea exclusivamente numérica,... usando IsNumeric en cada textbox,...

Saludos

Private Sub TextBox1_Change()


  If TextBox1 = "" Then Exit Sub

  If IsNumeric(TextBox1) = False Then

      Beep

      If Len(TextBox1) > 1 Then

        TextBox1 = Left(TextBox1, Len(TextBox1) - 1)

      Else

      TextBox1 = ""

      End If

  End If

End Sub[/CODE]

[b][size=4][color=#ff0000]A ver si volviéndolo a leer te enteras, porqué da la sensación de que no te lees las respuestas.[/color][/size][/b]