Copiar y pegar manteniendo el formato

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.

Hola.

Busca en la ayuda excel el metodo Replace.

Saludos.

Gracias, pero no me resulta, me sigue tomando los valores con decimales como miles.

Hola.

Sube un pequeño ejemplo como indican las normas del foro y pones los resultados esperados de forma manual..

Saludos.

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]

Hola.

Yo he probado con la funcion replace y funciona, sube un pequeño ejemplo de lo que estas haciendo.

Saludos.

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.

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.

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

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.

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

Gracias por la ayuda.

ese archivo lo saco de SAP, después de generarlo le doy guardar archivo como y le pongo el nombre y .xls para poder trabajarlo.

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.

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.

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

___________________________________________________________

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]

___________________________________________________________

Ya mañana en el laburo la probare a ver si funciona, gracias.

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.

Ante la ignorancia a mi respuesta en

Pendiente - Copiar y pegar manteniendo el formato | Ayuda Excel

Doy por finalizada mi participacion en este tema.

Un saludo a todos.

jajaja, pero si Macro Antonio dice que el le funciona, pienso que quizás pueda ser alguna configuración de Excel??

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.