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.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png