Jump to content
Sign in to follow this  
shimuex

Copiar y pegar manteniendo el formato

Recommended Posts

Buenas tardes, soy nuevo en el foro, por el problema que tengo.

explico, resulta que tengo 2 libros. libro1 y libro2, cree un macros que copie el contenido de una hoja del libro2 y la pegue en una hoja del libro1, el problema es que los datos del libro2 son numero en formato 111,596 o 22.458,99 donde el punto separa los miles, el problema es que al traspasar me toma las "," como miles y me quedan los numero asi 111.596 en el caso de que el valor no venga con punto, como puedo hacerlo para que lo copie tal cual.

lo que estoy usando es : ActiveSheet.Paste, he probado con algunas variantes de especial pero sigue copiando mal.

Share this post


Link to post
Share on other sites

Ok mira.

esto es del archivo original

AP08 R600 2.121,00

AP08 R600 499,87

AP08 R600 216,002

y cuando lo pasa queda asi

AP08 R600 2.121,000

AP08 R600 499.870

AP08 R600 216.002

osea me cambia la coma por punto cuando no hay un punto antes.

ese es el código.

Sub Macro3()

'
' Macro3 Macro
'

'

Selection.ClearContents
Workbooks.Open Filename:=ThisWorkbook.Path & "\zstock.xls"
Cells.Select
Selection.Copy
Windows("zstock.xlsm").Activate
ActiveWindow.WindowState = xlMaximized
Cells.Select
Selection.PasteSpecial Paste:=xlPasteAll

Application.CutCopyMode = False
Workbooks("zstock.xls").Close SaveChanges:=False
Application.ScreenUpdating = False
End Sub
[/CODE]

Share this post


Link to post
Share on other sites

hola.

y como usaría replace? que reemplazaría en el código, porque por lo que leí, el replace me reemplazaría, el punto por coma, pero necesito los 2. hay valores que son con miles y decimales o solo con decimales, y los decimales pueden ser 2 o 3.

Share this post


Link to post
Share on other sites

Hola mediante la funcion instr y un if puedes hacer que unicamente te reemplace los valores donde no hay punto.

De todas maneras he tomado de tú ejemplo el valor (AP08 R600 499,87), pegado en una celda, luego de esa celda he hecho un copy y pegado en otra con pegado especial y no me cambia nada.

Seria interesante que hicieras esa misma prueba en tu hoja de calculo, tambien puedes adjuntar un pequeño ejemplo.

Saludos.

Share this post


Link to post
Share on other sites

Estimado, gracias por su tiempo.

Le adjunto los dos archivos, el zstock.xls es el origen de los datos y el ztock2.xlsm es donde debo almacenar los datos para trabajarlo con otros tablas que no agregue para no hacer tan pesado el archivo, para que se entienda mejor lo que quiero esta incluido el macro con lo necesito a excepción de los decimales.

si te fijas en la columna F, del archivo zstock.xls es donde están los números que se me cambia, que son los que traen puntos correspondiente a los miles y las comas que son lo decimales.

Cambiar al archivo zstock2.xls la terminacion a .xlsm

zstock.xls

zstock2.xls

Share this post


Link to post
Share on other sites

Hola.

He probado tu macro, los valores que copia y pega son los mismos en ambos libros. Para asegurarme he corrido esta formula en el libro zstock2.xls.

=F5=zstock.xls!F5

Dandome en todas las celdas VERDADERO, prueba de que son todos iguales.

Si el problema pudiese ser de tu sistema que interpreta el pegado de otra forma, se podria utilizar las funciones que ya te mencione, el caso que si tenemos estos formatos que hariamos:

525.123

1.900

Todos ellos correctos si usas como separador de miles el punto.

Tambien puedes revisar el separador de miles que usa tú sistema haber si van por hay los tiros.

Un saludo.

Share this post


Link to post
Share on other sites

amigo, revise tus archivos y me parece que el problema es que tu archivo original (de donde copias la información) es un archivo de texto pasado a excel (cierto??), si es así, lo mas probable es que los datos numericos de este archivo estan como texto y el formato que tengan dependera de donde obtienes la información (el punto pudiera ser decimal o miles), conociendo eso, ya pudieras acomodar tu macro para que reemplace el punto o la coma (según el formato original) por la coma que es tu separador decimal, suerte

Share this post


Link to post
Share on other sites

yo creo que allí es el problema, como te genera el archivo SAP?, es como un archivo de texto??, si es así, dejalo como archivo de texto y luego lo abres con Excel y con el asistente de importacion de datos le das el formato que quieres a tus datos, luego si lo guardas como un archivo excel y listo para usarlo con tu macro;

revisando nuevamente tus archivos vi que incluso el archivo donde tiene la macro, da un mensaje a la hora de abrirlo, el mensaje es como si no reconociera inicialmente el formato como excel, pero le das que si y lo abre "bien", yo creo que tu creastes tus .xls desde un archivo de texto y no desde el propio excel como tal, pendiente con eso.

Share this post


Link to post
Share on other sites

correcto, es un archivo de texto, que se guarda como excel, como te decía para trabajarlo, porque al momento de guardar, lo hace por defecto como .mht si no me equivoco, que también se abre con excel, pero si a guardarlo como se baja por defecto que es mht y se puede importar con algun metodo que mantenga los datos, no habría problema.

Share this post


Link to post
Share on other sites

exacto, yo lo que te digo es que en el archivo que te crea SAP cuando le das guardar como, me imagino que sustituyes el .mht por .xls y guardas y eso ESTA MALO, esa no es la forma correcta, dejalo como esta y con el excel abierto, le das abrir y buscar el archivo y cuando lo abras, automáticamente saldra el asistente de importación de excel que te guiara en el proceso, y luego si guardas el archivo resultante como .xls, prueba y nos avisas

Share this post


Link to post
Share on other sites

___________________________________________________________

A mi con esta macro, me funciona:

    Application.ScreenUpdating = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\zstock.xls"
Sheets("zstock").Cells.Copy ThisWorkbook.Sheets("zstock").Cells
Workbooks("zstock.xls").Close SaveChanges:=False
For Each celda In Sheets("zstock").Range("F5:F" & Rows.Count)
If celda.Value = "" Then Exit Sub
If IsNumeric(celda.Value) = True Then
celda.Value = CDbl(celda.Value)
celda.NumberFormat = "#,##0.00"
End If
Next
End Sub
[/CODE]

___________________________________________________________

Share this post


Link to post
Share on other sites

No Macro Antonio, no resulta, sigue cambiando la coma decimal por punto de mil, en los casos que no tenga, punto de mil.

El archivo como decía al momento de guardarlo con SAP me dice guardar con terminación .xls, si lo guardo con otro formato no se si resulta, ya que las formulas que uso en el otro libro van de acuerdo a la posición en que quedan en el xls, si lo paso a .txt me imagino se perdería el orden.

Share this post


Link to post
Share on other sites

amigo, revisaste esto:

revisando nuevamente tus archivos vi que incluso el archivo donde tiene la macro, da un mensaje a la hora de abrirlo, el mensaje es como si no reconociera inicialmente el formato como excel, pero le das que si y lo abre "bien", yo creo que tu creastes tus .xls desde un archivo de texto y no desde el propio excel como tal, pendiente con eso.

incialmente cuando yo abri tus archivos he intente copiar y pegar manualmente me dio un mensaje sobre los formatos y sobre el rango a copiar que no era igual al destino.

te recomiendo que tu archivo de trabajo (donde estan las macros), lo crees nuevamente desde Excel (las macros las puedes copiar despues), en teoria todo debería funcionarte bien.

Share this post


Link to post
Share on other sites
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy