Copiar rango y pegar desde la ultima columna vacia

[gatolafo]

Amigos

Muchas gracias por este necesario e impresionante sitio y ayuda prestada.

Tengo una duda tengo un macros para guardar ciertos datos de manera vertical, pero mi gran duda ahora es

se puede hacer algo similar pero de forma horizontal?

Sub copia()

Dim Datos As Range, Dato As Range, x As Byte

Set RECUENTO = Range("R3:U3")

With Sheets("Hrs").Cells(Rows.Count, 2).End(xlUp)(2)

For Each Dato In RECUENTO

.Offset(, x) = Dato: x = x + 1

Next Dato

End With

End Sub

Lo que necesito es copiar un rango fijo (q7:v404) a otra hoja y que estos sean copiados hacia la derecha (despues de la ultima columna vacia)

Desde ya muchas gracias

[Antoni]

Prueba con esta macro:

Sub CopiarDespuésÚltimaColumna()


   Sheets("Hoja1").Range("q7:v404").Copy _

   Sheets("Hoja2").Cells(7, Columns.Count).End(xlToLeft).Offset(0, 1)



End Sub



[/CODE]

[gatolafo]

Estimado

muchas gracias solo una duda. al copiar me aparece #¡REF!, creo que es donde tengo formulas en la celdas que copie. o me falto algo? muchas gracias

[Antoni]

Sin el archivo no te puedo decir nada.

[gatolafo]

Tema Cerrado muchas gracias