Clonar información entre hojas del mismo libro en celdas diferentes utilizando vba

Pensé en poner el titulo "Copiar y pegar información entre hojas", pero no es exactamente lo que busco.

La idea es: En la "hoja1" (que esta estilizada, con imágenes), tengo un formulario, la "hoja2" seria la que utilizo para imprimir en formulario.

Lo más sencillo seria poner "=" en una determinada celda de la hoja2, e indicar cual celda quiero copiar (clonar) en la hoja1, pero, ¿cómo puedo programar esto? ¿También podría grabar una macro pero hay otra solución?

Ejemplo: Clonar información de la celda A1 hoja1 en la C5 hoja2

2

2 respuestas

Respuesta
1

Fíjate si de este modo te sirve para imprimir. Solo estoy pegando valores, ni formatos ni fórmulas, ni objetos.

Sub copiaScra()
'x Elsamatilde
'limpia hoja IMPRIMIR de datos anterioes
Sheets("IMPRIMIR").Cells.Clear
Sheets("SCRA_1").Select
    Range("A1:AX38").Copy
    Sheets("IMPRIMIR").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

Espero te sirva sino comentame qué otros 'objetos' necesitas en el formulario.

No ha funcionado como pretendía. Busco el mismo resultado que la función (=), pero sin botones para activar, de momento mi amigo google no me ayuda. (:D)

Si se copia la hoja tal cual irá con objetos, colores, etc.

Si se copia como 'solo valor' no mantendrá ningún formato de fuente, color, alto y ancho...

Si deseas una hoja tal cual en cuanto a formatos y colores pero sin objetos, avisame para que te pase la macro para eliminarlos.

Y si necesitas una hoja que tenga fórmula = tendrás que tener una hoja 'IMPRIMIR' que sea del mismo modelo que tu hoja de datos (sin objetos y sin colores si te apetece). Luego me envías la hoja y te agrego la macro para las fórmulas.

Sdos!

Gracias por la paciencia Elsa y todos.

La "Hoja1" tiene un formato, la "Hoja2" tiene otro. ¿Y por qué eso?

La "1"(PRINCIPAL), es visible para todos, esta personalizada con tonos oscuros, la "2"(IMPRIMIR) tiene otro formato blanco, con menos información.

Os dejo un ejemplo: Modelo ejemplo

Gracias!

Como se han postergado mis planes termino de aclarar esta consulta.

Viendo el modelo de tu libro original veo que ya tenés resuelta la hoja Imprimir con fórmulas, y eso está bien.

Solo sugiero protegerla (con o sin clave) para que las fórmulas no se borren en algún descuido. Esta protección (como en la imagen) NO requiere que la única macro que trabaja en esta hoja sea modificada (la del botón Imprimir desde la hoja SCRA).

Ahora, si por alguna razón en especial no deseas seguir con fórmulas sino que se complete la hoja IMPRIMIR con una macro, debes utilizar algo como la que muestro a continuación donde completarás cada celda con la referencia que corresponda, ya sea alguna celda o un nombre de rango (dejo una línea para cada caso).

Aquí SI se requiere que la hoja se desproteja y se vuelva a proteger al finalizar.

Sub paseImpresión()
'x Elsamatilde
With Sheets("IMPRIMIR")
    .Unprotect
    .[C16] = Sheets("SCRA_1").[AC8]
    .[AO3] = Range("Data")            'nombre de rango
    'repetir para cada celda de hoja Imprimir
    'volver a proteger
    .Protect
End With
End Sub

PD) Hay muchos modos de pasar datos de una hoja a otra dependiendo de si se pasará con formatos, con fórmulas, solo valores, etc. En este ejemplo se pasan solo valores sin desconfigurar la hoja.

Más detalles en mis Guías Temáticas.

Respuesta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas