Jump to content

kike21

Members
  • Content Count

    10
  • Joined

  • Last visited

About kike21

  • Rank
    Member
  • Birthday 06/16/1987

Converted

  • Campos
    ;
  1. Gracias estimado, claro que era una constante aunque variaba en dos solamente, disculpen la moslestias y gracias a todos!!!, SOLUCIONADO
  2. La verdad que no se utilizar bien las formulas, estoy recien aprendiendo disculpen :/, estoy intentando resolverlo todavia , en el archivo que subi esta claro lo que necesito, gracias!!!
  3. Aca amigos subi el ejemplo deseo eliminar los digitos que estan en rojo , saludos y gracias! ejemplo.xls
  4. Amigo necesito eliminar numero de en medio por ejemplo 123456789, neceisto eliminar los que estan en rojo , hay alguna funcion o formula, ya que estos estan en varias celdas, de antemano, gracias!
  5. 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!
  6. Gracias Max2005 por tu ayuda, pero en que parte debo declararla despues o antes de SubEntra? Option Explicit Dim ClaveEntrada as String ???? , saludos y muchas gracias!
  7. Hola mi nombre es kike y espero aprender mucho de este foro , saludos!!!!
  8. 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
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png