Jump to content
Sign in to follow this  
kike21

Como ingresar codigo alfanumerico error 13

Recommended Posts

Hola estimados, necesito su experticia para solucionar un problema, cuando quiero quiero cambiar un codigo numerico por uno alfanumerico al ingresar un valor para sumar stock este me da un error: Se ha producido el error '13' en tiempo de ejecucion: no coinciden los tipos, adjunto el archivo en .rar quiva el codigo:

Sub Entra()

Range("A2").Select

ClaveEntrada = ActiveCell.FormulaR1C1 + 12 <---------------- ahi va el error

CeldaEntrada = "D" & ClaveEntrada

Range("F4").Select

EntradaProducto = ActiveCell.FormulaR1C1

Range(CeldaEntrada).Select

ActiveCell.FormulaR1C1 = Val(ActiveCell.FormulaR1C1) + Val(EntradaProducto)

Range("F4").Select

ActiveCell.FormulaR1C1 = ""

saludos y gracias

Inventario Stock (1).rar

Share this post


Link to post
Share on other sites

Hola Kike21,

He visto tu macro y hasta donde yo puedo entender estas mezclando las variables, el Rango("A2") es un "string" y le estas sumando un numero por ello es que debe estar enviando el error, debes declarar variables usa Option Explicit al principio de tu macro para que declare variables, por ejemplo si ClaveEntrada es alfabética declárala como "string"

Saludos !!!

Share this post


Link to post
Share on other sites

Hola [uSER=206036]@kike21[/uSER]:

En la celda A2 tienes una "X" que es un valor de cadena.

Luego en este codigo quieres sumarle a esa celda un 12.

ClaveEntrada = ActiveCell.FormulaR1C1 + 12

No puedes sumar una letra con un numero es como querer sumar manzanas y naranjas. Explica que quieres hacer alli?

Share this post


Link to post
Share on other sites

Gracias elunico22 por responder, mira en la celda A2 ingreso el codigo de un producto el cual con numeros me funciona me encuentra el nombre del producto pero al querer utilizar un codigo alfanumerico para que encuentre el producto este me da error, siendo que como dice el compañero de mas arriba declare ClaveEntrada como String, al poner en entrar un numero para sumar al stock este me da el eeror que esta en el primer post , saludos y muchas gracias!

Share this post


Link to post
Share on other sites

Option Explicit

Public ClaveEntrada as String

Sub Entra()

Range("A2").Select

ClaveEntrada = ActiveCell.FormulaR1C1 + 12 <---------------- ahi va el error

CeldaEntrada = "D" & ClaveEntrada

Range("F4").Select

EntradaProducto = ActiveCell.FormulaR1C1

Range(CeldaEntrada).Select

ActiveCell.FormulaR1C1 = Val(ActiveCell.FormulaR1C1) + Val(EntradaProducto)

Range("F4").Select

ActiveCell.FormulaR1C1 = ""

PERO SI LO VAS A DEJAR ASÍ NO PUEDES SUMAR EL 12 QUE TINES EN TU FORMULA, ESTE ES NUMERO Y ClaveEntrada ES TEXTO, esperó que te sirva, revísalo y coméntanos

Saludos !!!

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png