Macro con problema

Question

Sub Macro1()

    Sheets("hoja1").Cells.Copy Sheets("hoja2").Range("A1")

    Cells.Copy.Range("A1").Value.Range("A1") = Value

End Sub

Se producce el error 424 en la segunda linea, diciendo: "Se require un objeto"

Muchisimas gracias por su atención

Jorge_548 g

Answer 1

prueba de esta manera:

Sub copiaHojaEnValores()

  Worksheets("hoja1").Copy After:=Worksheets(Worksheets.Count)

  With ActiveSheet

    .Name = Format(Now, "yyyymmdd_hhmmss")

    .UsedRange.Value = .UsedRange.Value

  End With

End Sub

saludos,

hector.

Answer 2

Pues con algo tan simple como esto y nada más en la hoja, ....

… con el siguiente código... 'casca'...

… y con el que yo ofrecí funciona sin problemas.

¿Fallaron 'los trucos' y la forma en que tú crees que lo hace?

Answer 3

. . . lo que necesito es que la segunda linea copie en si misma la hoja2, pero en valores

¿No es un desperdicio de recursos, Copiar/Pegar  más de 2.434 MILLONES de celdas (tengan o no datos), en vez de utilizar rangos precisos que apunten solamente a las celdas ocupadas?

Por ejemplo (suponiendo tus datos en A:Z):

. . .

Dim ultima&

ultima = Cells(Rows.Count, 1).End(xlUp).Row

Range("A1:Z" & ultima).Value = Range("A1:Z" & ultima).Value

. . .

Answer 4

Sub Macro1()

    Sheets("hoja1").Cells.Copy Sheets("hoja2").Range("A1")

    Cells.Copy.Range("A1").Value.Range("A1") = Value

End Sub

Se producce el error 424 en la segunda linea, diciendo: "Se require un objeto"

Muchisimas gracias por su atención

Jorge_548 g

Hola:

Quita el .Copy y te sobra el ultimo Range():

    Cells.Copy.Range("A1").Value~~.Range("A1")~~ = Value

Te quedaría:

Cells.Range("A1").Value = Value

Un saludo

Answer 5

Hola

¿Qué intentas hacer con esa segunda línea?