Copiar sin decimales

27/07/2007 - 22:27 por Jaime Javier Hernández M. | Informe spam
Disculpen que los moleste otra vez.



Quiero ver si me pueden ayudar en otra cosa de excel, lo que pasa es que
quiero copiar y pegar de una hoja a otra unos importes, pero en la hoja de
origen están los importes con decimales "ocultos" y en la hoja a la que los
quiero pegar solo quiero que me parezca el importe como tal sin los
decimales, por que lo que hace es pegarlos pero con los decimales que están
ocultos y yo no quiero que haga eso por que el programa de la Secretaria de
Hacienda no acepta decimales por que lo estoy haciendo a través de una carga
batch.



Jaime J
 

Leer las respuestas

#1 Héctor Miguel
28/07/2007 - 00:30 | Informe spam
hola, Jaime Javier !

... quiero copiar y pegar de una hoja a otra unos importes, pero en la hoja de origen estan los importes con decimales "ocultos"
y en la hoja a la que los quiero pegar solo quiero que me parezca el importe como tal sin los decimales
por que lo que hace es pegarlos pero con los decimales que estan ocultos y yo no quiero que haga eso
por que el programa de la Secretaria de Hacienda no acepta decimales por que lo estoy haciendo a traves de una carga batch.



1) [generalmente] obtendrias mejores propuestas [y mas rapido solucionas tu *problema*] si en la consulta incluyes algunos *detalles*

a) de los que no se ven desde el otro lado del mensaje como: nombres de las hojas, tipo de datos, rangos, de donde, a donde, etc.
b) y *clarificas* algunos terminos que pudieran no ser tan *obvios* [p.e. que significa *carga batch* ???]
c) hablando de enteros y decimales "ocultos", asumiendo formatos personalizados...
comentar si [p.e.] alguna cantidad *real* del tipo 49.7 que se *veria* como 50 la quieres pasar como 49 o 50 -?-

2) suponiendo que estamos hablando de las hojas con nombre: hoja1 y hoja2 [sin espacios]
y que los rangos que quieres pasar son 'A2:C35' de hoja1 a hoja2 -???-
prueba con las siguientes dos *sencillas* instrucciones en alguna macro: OJO: 49.7 *pasa* como 49 [solo la parte entera]

Sub Copia_Enteros_hoja1_a_hoja2()
[hoja2!a1:c35].formulaarray = "=int(hoja1!a1:c35)"
[hoja2!a1:c35] = [hoja2!a1:c35].value
End Sub

si requieres de algun *redondeo* hacia arriba... cambia la formula utilizada:
de: -> "=int(hoja1!a1:c35)"
a: -> "=round(hoja1!a1:c35,0)"

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares