valor - Macro en Excel para copiar una hoja de trabajo(haciendo referencia a cada celda)

seleccionar hoja excel vba

Question

He encontrado muchos ejemplos para Copiar hojas de trabajo en VBA, o reemplazar fórmulas con valores, etc. Lo que quiero hacer es copiar una hoja de trabajo completa, pero en la nueva hoja de trabajo, cada celda hace referencia a su original. Entonces, en la celda A1 de la nueva hoja de trabajo, simplemente tendría la fórmula "= ''Hoja1''! A1"

¿Hay una forma fácil de hacer esto? Gracias

PD. Necesito que sea un Macro, ya que necesito poder ejecutarlo en hojas específicas, para copiar todas las celdas de esa hoja en una nueva, no siempre desde "Hoja1"

Answer 1

Casi le das la respuesta en tu pregunta:

sheet2.range("A1:F50").formula = =''Sheet1''!A1"

Answer 2

Si desea evitar el portapapeles, le sugiero el formato de fórmula R1C1:

Sub fillsheet()
Dim ows As Worksheet
Dim tws As Worksheet
Dim rng As Range

Set ows = Worksheets("Sheet1")
Set tws = Worksheets("Sheet2")

Set rng = ows.UsedRange

tws.Range(rng.Address()).FormulaR1C1 = "=''" & ows.Name & "''!RC"
End Sub