Excel de Rango a Punto
Publicado por David (3 intervenciones) el 11/06/2016 17:49:18
Saludos,
El archivo excel que adjunto contiene un codigo vb que permite de un rango de numeros separarlo segun empiesa a donde termine el rango, uniendo como podran apreciar la ilustracion linea con rpi y seguiendo la secuencia hasta rpf, que es inicial a final.
el problema es que en el modulo ejecuta la sigueinte linea, que la linea se multiplica por 100000 y suma por el rpi
Sheets("reportes por tramos").Cells(n, 11) = Sheets("reportes por tramos").Cells(j, 2) * 100000 + k
el problema es el multiplicar por 100000 ya que si le cambio el valor para lo rpi o rpf que contengan 4 digitos por 10000 me devuelve el valor correcto pero para los numeros que contienen 5 digitos me da mal valor.
Como puedo aplicar una condicional que me reconosca si el rpi y rpf son de 4 o 5 digitos para que me multiplique la linea el valor correcto o, realizar un simple concatenado de la linea con el rpi hasta el rpf.
Gracias por la yuda de antemano
El archivo excel que adjunto contiene un codigo vb que permite de un rango de numeros separarlo segun empiesa a donde termine el rango, uniendo como podran apreciar la ilustracion linea con rpi y seguiendo la secuencia hasta rpf, que es inicial a final.
el problema es que en el modulo ejecuta la sigueinte linea, que la linea se multiplica por 100000 y suma por el rpi
Sheets("reportes por tramos").Cells(n, 11) = Sheets("reportes por tramos").Cells(j, 2) * 100000 + k
el problema es el multiplicar por 100000 ya que si le cambio el valor para lo rpi o rpf que contengan 4 digitos por 10000 me devuelve el valor correcto pero para los numeros que contienen 5 digitos me da mal valor.
Como puedo aplicar una condicional que me reconosca si el rpi y rpf son de 4 o 5 digitos para que me multiplique la linea el valor correcto o, realizar un simple concatenado de la linea con el rpi hasta el rpf.
Gracias por la yuda de antemano
- rango-a-puntos_ok_v3.zip(25,5 KB)
Valora esta pregunta
0