Hola chicos,
Tengo un pequeño problema.
Tengo una hoja llamada «principal», que toma los valores de otro de los archivos de hoja llamada «datos».
Cuando me activo el «ActiveSheet.copia» (en la «principal» archivo) copia de la hoja, pero con las células de los enlaces.
Quiero saber si hay alguna forma de copiar sólo los valores de la hoja?

Segundo, mi «main» de la hoja tiene algunas celdas combinadas por lo que incluso si yo manualmente copy & paste de las hojas mediante la selección de un rango no puede ser copiado debido a la fusión de las células.

P. S. espero haberme explicado bien – como se puede ver en inglés no es mi primera lengua.

Gracias

InformationsquelleAutor Gil Peretz | 2011-05-09

1 Comentario

  1. 2

    Echa un vistazo a las opciones que se obtiene con PasteSpecial:

    • Valores: esto no copia los enlaces y sólo valores sólo
    • Todo excepto bordes: esto mantendrá celda combinada formato

    Ejemplo – suponga que usted desea copiar la hoja1, hoja 2, donde en la hoja 1 se ha fusionado las células

    • En la Hoja1 de prensa CTRL + A a seleccionar todo y, a continuación, CTRL + C para copiar
    • En la Hoja2 seleccione la celda A1
    • Ahora haga clic derecho y seleccione Paste Special...
    • En el cuadro de diálogo seleccionar All except borders...

    Actualizado – VBA

    Sub CopyWithMergedCells()
        ActiveSheet.Cells.Copy //select all cells on sheet1 and copy
        Worksheets("Sheet2").Select 
        Cells.Select //select all cells on sheet2
        Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone,    SkipBlanks:=False, Transpose:=False //paste with formats preserved
    End Sub

    Paste:=xlPasteAllExceptBorders es la clave de bits. Usted necesita para cambiar esta opción si desea copiar los valores de (y enlaces)

    • y su es una manera de hacer esto con VBA ?
    • ver editado respuesta…lo mejor es utilizar la grabadora de macros y, a continuación, modificar el código como usted lo necesita…

Dejar respuesta

Please enter your comment!
Please enter your name here