Copiar rango en última fila de otra hoja

28/01/2008 - 15:48 por GRIEGO59 | Informe spam
Hola!
Estoy intentando copiar un rango de una hoja en la última fila de otra hoja.
Es decir, intento copiar el rango A2:C20 de la hoja Datos a otra hoja
llamada Relación, una fila por debajo de la última fila con datos, es decir,
en la primera fila disponible.
Estoy usando este código:


Sub Guardar_Click()
Dim ultF As Long
Range("A2:C20").Select
Selection.Copy
With Worksheets("Relación")
ultF = .[a65536].End(xlUp).Row + 1
.Cells(ultF, 1).Paste
End With
End Sub

Pero no funciona, me dice:
“El objeto no admite esta propiedad o método”

Que estoy haciendo mal?
Saludos,
Darío
 

Leer las respuestas

#1 Boris
28/01/2008 - 17:37 | Informe spam
On 28 ene, 09:48, GRIEGO59 wrote:
Hola!
Estoy intentando copiar un rango de una hoja en la última fila de otra hoja.
Es decir, intento copiar el rango A2:C20 de la hoja Datos a otra hoja
llamada Relación, una fila por debajo de la última fila con datos, es decir,
en la primera fila disponible.
Estoy usando este código:

Sub Guardar_Click()
Dim ultF As Long
Range("A2:C20").Select
Selection.Copy
With Worksheets("Relación")
ultF = .[a65536].End(xlUp).Row + 1
.Cells(ultF, 1).Paste
End With
End Sub

Pero no funciona, me dice:
"El objeto no admite esta propiedad o método"

Que estoy haciendo mal?
Saludos,
Darío



Dario, buenos días.

Mientras te solucionan el error que te genera el código, puedes probar
con este, que te realiza lo que deseas.

Sub Guardar_Click()
Dim ultF As Long
Dim r As Range

Set r = Range("A2:C20")

Worksheets("Relación").Activate
Range("a1").Activate
While ActiveCell.Offset(0, 0).Value <> ""
ActiveCell.Offset(1, 0).Activate
Wend
ultF = ActiveCell.Row

Range(Cells(ultF, 1), Cells(22, 3)).Value = r.Value

End Sub

Saludos

Boris

Preguntas similares